关于EXCEL VBA的问题，修改下代码。

Question

Sub FOT()
Dim RNG!
For RNG = 2 To 6000
If Sheet1.Cells(RNG, 1) = Sheet1.Cells(RNG, 2) Then
Sheet1.Cells(RNG, 2).Interior.ColorIndex = 3
Next RNG
End Sub
想请问这个代码应该如何改呢，想表达的意思是A1列和A2列，相比较，数值相同的就标记颜色在A2对应的位置上。谢谢。
上面写错了，想表达的意思是A列和B列，相比较，数值相同的就标记颜色在B列对应的位置上。谢谢。

Answer 1

把6000改为
Sheet1.Columns(1).Find("*", , , 1, , 2).Row
即可

Answer 2

我修改了下，可以了。你的语法有问题，少了END IF
Sub FOT()
Dim RNG!
For RNG = 2 To 6000
If Sheet1.Cells(RNG, 1) = Sheet1.Cells(RNG, 2) Then
Sheet1.Cells(RNG, 2).Interior.ColorIndex = 3
End If
Next
End Sub追问

的确可以运行了，但没达到我想要的要求，能帮我再改下吗。

追答

你的要求不是在B列的单元格上标识出颜色吗？
如是对A列一整列比较，可以把6000改为Cells(Cells.Rows.Count, 1).End(xlUp).Row，这样会动态自动计算

本回答被网友采纳

Answer 3

vba代码帮修改 调试 讲解