EXCEL VBA比较2列和; DELETE DUPLICATE ROWS

时间:2015-01-19 11:31:58

标签: excel excel-vba vba

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

  A   B

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

第4行和第4行6列中的6列是相同的,必须在运行宏后删除。我在网上搜索但是找不到用真正的数学删除正确的行。 vba之后的表格应为:

  A   B

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

提前致谢

1 个答案:

答案 0 :(得分:2)

除非我遗漏了某些内容,否则您无需使用VBA来执行此操作。

您可以使用“数据”标签中的“删除重复项”功能。

实施例

我有以下内容:

enter image description here

你可以看到第13,14,15行,&当您比较A列和A列时,16个是重复的。乙

解决方案:

突出显示完整列A& B然后运行“删除重复项”功能。根据您的标题,系统会提示您输入与此类似的内容。

enter image description here

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

我的结果如下:

enter image description here

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

Sub Macro1()

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

您应该能够编辑它以满足您的需求。