循环删除重复项仅适用于第一次迭代

Question

我有下面的简单循环来删除各个列中的重复项。然而，它只适用于第一次迭代i = 1。第二次迭代i = 2给出

Application_defined或object_defined错误。

代码基本上是从微软的网站上复制的。因此，我不知道为什么它不起作用。

Sub remove_dup()    
Dim i As Integer
For i = 1 To 33
Range(ActiveSheet.Cells(1, i), ActiveSheet.Cells(100, i)).RemoveDuplicates Columns:=i, Header:=xlNo
Next i
End Sub

Answer 1

In columns参数只使用1而不是i，因为每次迭代都会从单列中删除重复项。

Sub remove_dup()
Dim i As Integer
For i = 1 To 33
Range(ActiveSheet.Cells(1, i), ActiveSheet.Cells(100, i)).RemoveDuplicates Columns:=1, Header:=xlNo
Next i
End Sub