EXCEL VBA 比较 2 列并删除重复的行

EXCEL VBA TO COMPARE 2 COLUMNS & DELETE DUPLICATED ROWS

我需要比较 2 列中的相同值并删除下面描述的重复行：

  A   B

1 5   A 
2 6   B
3 7   C
4 5   A
5 6   A
6 7   C

2 列中的第 4 行和第 6 行相同，必须在宏的 运行 之后删除。我在互联网上搜索但找不到删除具有真正匹配的正确行。 vba 之后的 sheet 应该是：

  A   B

1 5   A 
2 6   B
3 7   C
4 6   A

提前致谢

除非我遗漏了什么，否则您不需要使用 VBA 来执行此操作。

您可以使用 "Data" 选项卡中的 "Remove Duplicates" 功能。

示例：

我有以下内容：

当您比较 A 列和 B 列时，您可以看到第 13、14、15 和 16 行是重复的。

解决方案：

突出显示整个 A 列和 B 列，然后 运行 "Remove Duplicates" 函数。根据您的 headers.

，系统会提示您类似的内容

确保您选择了两列，然后单击“确定”按钮。

我的结果如下：

如果您确实需要在 VBA 中完成此操作，那么我在 运行 启用宏录制器时得到以下代码：

Sub Macro1()

    Columns("A:B").Select
    ActiveSheet.Range("$A:$B").RemoveDuplicates Columns:=Array(1, 2), Header _
        :=xlNo
End Sub

您应该能够对其进行编辑以满足您的需要。