Question

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

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 documentation说明，您必须将Columns参数中的数组传递给RemoveDuplicates方法。

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

或使用定义的范围：

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

注意：在没有上下文的情况下使用Range("A:Z")可能会产生意外结果，具体取决于当前处于活动状态的工作表。

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

1 个答案: