VBA Excel：如何删除 2 列中的重复项答案

【问题标题】：VBA Excel: How to remove duplicates in 2 columnsVBA Excel：如何删除 2 列中的重复项
【发布时间】：2012-08-18 04:41:46
【问题描述】：

我有以下内容，但我遇到了语法问题。我想将当前选择设置为一个范围，并且我想从该选择中删除重复项。我该怎么做？

'remove duplicates
Columns("B:C").Select
Dim duplicates As Range
Set duplicates = Selection
ActiveSheet.duplicates.RemoveDuplicates(Columns:=Array(1, 2), Header:=xlYes)

【问题讨论】：

顺便说一句，您可以写Set duplicates = Columns("B:C") 并摆脱Columns("B:C").Select。你也可以只写 duplicates.removeduplicates Columns:=Array(1,2), Header:=xlYes` 并去掉ActiveSheet，因为它是在你设置范围变量时隐含的。
也可以不设置引用直接调用Columns("B:C").RemoveDuplicates。

标签： excel vba duplicates range

【解决方案1】：

如果函数没有返回任何值，则在调用 RemoveDuplicates 时删除括号，如下所示：

selection.RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes

【讨论】：

或者可以使用前面的调用语句。这样，您的语法是正确的。