基于多列的表去重

Question

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

例如：https://imgur.com/elzyjTJ

我只用了1列，但不知道如何在代码中比较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