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

冠军欧洲2010

1.     For I = 2 To Range("A" & Rows.Count).End(xlUp).Row+1
   
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

那么的帅 发表于 2014-4-15 15:05

嗯，可以了。

felix3

冠军欧洲2010 发表于 2014-4-15 15:15

设成从2开始是因为(i-1)吗？

grf1973

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

代码中最后一句就是按现在的年月填入

felix3

grf1973 发表于 2014-4-15 16:24

r = [a65536].End(3).Row
请问这句什么意思，是区域最后一行的行数吗？

grf1973

是的。[a65536]表示A列最大行数（2007版以前工作表的最大行数为65536）
End(3)=End(XlUp)表示向上搜索
r = [a65536].End(3).Row表示：A列最底下单元格向上找到第一个非空单元格的行数为r

felix3

grf1973 发表于 2014-4-15 16:43
是的。[a65536]表示A列最大行数（2007版以前工作表的最大行数为65536）
End(3)=End(XlUp)表示向上搜索
r ...

嗯。谢谢了！