vba - 通过比较列删除excel中的重复行

Question

下面给出的是我正在使用的数据示例
如您所见，它有重复的条目。(实际数据库是 30000 个条目)

我想找到一种方法，了解如何根据列出百分比的相应列删除重复行。

该方法应该比较重复的行百分比并选择最高的一个并丢弃另一个

这是问题(初始):


我希望这个输出清楚。
这是结果，我要


任何帮助，将不胜感激!

Answer 1

尝试这个。它将(应该)按电子邮件和百分比列对数据进行排序，然后删除重复项，保持最高百分比不变。

With ActiveSheet
    .Range("A1:B" & Cells(Rows.Count, "A").End(xlUp).Row).Sort _
        Key1:=Range("A1"), Order1:=xlDescending, Header:=xlYes, KEY2:=Range("B1"), Order2:=xlDescending, Header:=xlYes
    .Range("A1:B" & Cells(Rows.Count, "A").End(xlUp).Row).RemoveDuplicates Columns:=Array(1), Header:=xlYes
End With