删除基于多列的表中的重复项

Question

你好，我想比较一个表中的两列，如果两列相同，则删除重复项。

例如：https://i.stack.imgur.com/zKDqa.jpg

我只做了一列，但不知道如何在代码中比较2：

Sheets("A").ListObjects("Data").Range.RemoveDuplicates Columns:=Array(1), Header:=xlYes

Answer 1

要组合这两列，必须将两组数据捕获为一个数组。这适用于删除任何数据集区域或表上的重复项，也适用于要筛选多个成员的情况。

在您的情况下，由于您希望对表中的第二列和第三列进行评估，因此可以轻松地将代码重写为：

Sheets("A").ListObjects("Data").Range.RemoveDuplicates Columns:=Array(2,3), Header:=xlYes

Answer 2

如果您的数据范围称为"data"，则代码应为：
ActiveSheet.Range("data").RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes