查找和删除重复项的最简单方法?

时间:2011-05-11 13:52:31

标签: vba duplicates

我在Excel电子表格中有两列填充数据:

Column 1:
A
B
C
D

Column 2:
C
D
E
F
G

Desired Data: A,B,C,D,E,F,G (not A,B,C,D,C,D,E,F,G)

我想合并两列,并删除所有重复项。我来自一个C#字,所以我对VBA的理解是有限的。我知道我可以创建一个维度为维度(column1)+维度(column2)的数组,然后执行一些重复删除(内置一个?),或类似的东西。

任何指导都将不胜感激,谢谢!

1 个答案:

答案 0 :(得分:2)

使用以下方法进行处理......只需像调用任何其他函数或子程序一样调用它。

Sub RemoveDupes()

    'Add extra Column, "A" becomes "B"
    Columns(1).EntireColumn.Insert

    'Filter out duplicates and copy unique list to "A"
    Range("B1", Range("B65536").End(xlUp)).AdvancedFilter _
        Action:=xlFilterCopy, CopyToRange:=Range("A1"), Unique:=True

    'Add extra Column, "B" becomes "A"
    Columns(2).EntireColumn.Delete

End Sub

然后加入并对每列的结果进行排序:)