[已解决]请问用VBA如何判断相邻两个单元格内容是否相同

felix3

如图，我需要选中aa，bb，cc，ddd列所在的行，由于数据增减，它们所在的行是不固定的，请问怎样判断相邻两个单元格内容是否相同？先谢过各位老师了！
Book1.rar (2.02 KB, 下载次数: 36)

2014-4-15 15:14 上传

点击文件名下载附件

我用if提示应用程序定义或对象定义错误， 能解释下吗？
If Cells(i, 1).Value <> Cells(i + 1, 1).Value And Cells(i, 1).Value <> Cells(i - 1, 1).Value Then
        Cells(i, 1).Select
End If

最佳答案

月排行榜 / 总排行榜

grf1973

2014-4-15 16:24

1. Sub tt()
   
2.     ActiveSheet.UsedRange.Interior.ColorIndex = 0
   
3.     r = [a65536].End(3).Row
   
4.     For i = 3 To r
   
5.         If Cells(i, 1).Value <> Cells(i + 1, 1).Value And Cells(i, 1).Value <> Cells(i - 1, 1).Value Then
   
6.             Cells(i, 1).Resize(1, 6).Interior.Color = vbYellow
   
7.         End If
   
8.     Next
   
9.     Cells(r, 1).Resize(1, 6).Interior.Color = vbRed
   
10.     [a1] = Year(Date) & "年" & Month(Date) & "月统计"
    
11. End Sub
    

复制代码

跳转到最佳答案楼层

grf1973

可能是i=1的时候Cells(i - 1, 1)变成cells(0,1)，此单元格不存在，所以报错。

那么的帅

是不是 变量 I 没有赋值？

冠军欧洲2010

I 从二开始循环吧。应该。

felix3

grf1973 发表于 2014-4-15 14:44
可能是i=1的时候Cells(i - 1, 1)变成cells(0,1)，此单元格不存在，所以报错。

我改成i+1,i+2,i,  还是同样报错

felix3

那么的帅 发表于 2014-4-15 14:49
是不是 变量 I 没有赋值？

i 是不确定的，怎么赋值？

felix3

冠军欧洲2010 发表于 2014-4-15 14:51
I 从二开始循环吧。应该。

老师，请问具体要怎么写呢？

grf1973

上附件吧。。。。。。。。

那么的帅

1.     For I = 1 To Range("A" & Rows.Count).End(xlUp).Row
   
2.         If Cells(I, 1).Value <> Cells(I + 1, 1).Value And Cells(I, 1).Value <> Cells(I - 1, 1).Value Then
   
3.             Cells(I, 1).Select
   
4.         End If
   
5.     Next I

复制代码

felix3

grf1973 发表于 2014-4-15 14:59
上附件吧。。。。。。。。

上传了