☰

有条件地删除重复项

tag-icon • tag-icon microsoft-excel vba
有条件地删除重复项

所以我有 A 列和 C 列。两列都有重复项。但是，如果合并后的 A 列和 C 列具有相同的值，我只想根据存在重复项这一事实进行删除。

例子：

Column A             Column B             Column C
Cool-1                 Def                  Story
Cool-1                 Def                  Story
Cool-1                 Def                  Movie
Cool-1                 Def                  Book

Cool-1 Def Story 本质上是重复的。我该如何删除这些重复项？

答案1

我刚刚在 Excel 2010 中尝试过这个，它有效。我使用了过滤器。您可以使用此关联

选择整个表格并单击数据->高级（排序和过滤）。在高级过滤窗口中选择“复制到另一个位置”。选择“复制到”并输入要将新数据复制到的单元格。然后选择“仅限唯一记录”。

您将获得一个包含所有不重复记录的新表

答案2

作为 VBA 参考，以下所有语句都将执行该任务：

Sub removeDuplicates()

    With ActiveSheet.UsedRange

        .removeDuplicates                           'duplicated rows based on all cols

        .removeDuplicates Columns:=Array(1, 2, 3)   'duplicates based on cols 1, 2, and 3

        .removeDuplicates Columns:=Array(3)         'duplicates in col 3

        .removeDuplicates Columns:=3                'duplicates in col 3

        .removeDuplicates Columns:=3, Header:=xlYes 'excludes header row

    End With

End Sub

相关内容