尝试删除一系列列中的单个列的重复项

我正在尝试删除我的工作表中一个列的范围内的单个列的重复项。 到目前为止，我已经得到了这个。

Sub removeDups() Dim col As Range For Each col In Range("A:Z").Columns With col .RemoveDuplicates Columns:=1, Header:=xlYes End With Next col End Sub 

这继续给我一个1004错误，我猜测它的结构

 .RemoveDuplicates Columns:=1, Header:xYes 

行，但我一直没能弄清楚这一部分。

Answer 1

根据MSDN文档所述 ，您必须将Columns参数中的数组传递给RemoveDuplicates方法。

 ActiveSheet.Range("A1:C100").RemoveDuplicates Columns:=Array(1,2), Header:=xlYes 

或使用定义的范围：

 ActiveSheet.Range("A:A100").RemoveDuplicates 

注意：使用不带上下文的Range("A:Z")可能会提供意外的结果，具体取决于当前活动的纸张。