VBA 判断单元格是否相同

Question

使用VBA判断，sheet1中A1单元格的内容是否与sheet2中A1单元格内容相同。
如果相同，则不操作，如果不相同，则把sheet1中A1单元格的背景色改为红色。
做个循环，用以比较sheet1和sheet2所有单元格的异同。
除此之外，如果有更好的办法，也请指教
补充：本人希望有了VBA代码之后，在那基础上追加条件。比如数字大了用绿色，数字小了用黄色。甚至把不同的地方用批注表现出来。但是第一步就卡住了，故此请教，谢谢！

Answer 1

您好，您这样：
Sub 判断()
Dim i As Long
Dim j As Long
For j = 1 To Sheets(1).Cells(65536, 1).End(xlUp).Row
For i = 1 To Sheets(2).Cells(65536, 2).End(xlUp).Row
If Sheets(1).Cells(j, 1).Value = Sheets(2).Cells(i, 1).Value Then
If Sheets(1).Cells(j, 2).Value = Sheets(2).Cells(i, 2).Value Then
Cells(j, 3).Value = "相同"
Exit For
End If
End If
Next
Next
End Sub追问

这样2个循环只得到一个 相同不相同。而且只能用2列，也没改颜色，不如一个公式了。

本回答被提问者和网友采纳