Question

关于VBA筛选重复数据代码问题？

Sub test1()
Dim x As Long
Dim y As Long
For x = 3 To 2000
For y = 3 To 2000
If Range("a" & x) = Range("h" & y) Then
Range("c" & x) = Range("i" & y)
End If
Next x
Next y
End Sub
错误提示:无效的NEXT变量控件
请问什么原因?代码对吗?

Answer 1

Next x
Next y
顺序错了，调换一下。