删除 Excel 中 A 列的所有重复项

我正在寻找一个可以删除 A 列中所有重复项的宏。

Input:

John
Jimmy
Brenda
Brenda
Tom
Tom
Todd

Output:

John
Jimmy
Todd

我正在处理大量数据，但 Excel 不配合。似乎无法在网上找到有效的解决方案。

Thanks!

当你想要的时候去重复您的列表，即确保每个项目只剩下一项，您可以这样做：

在 Excel 2007 及更高版本中，“数据”菜单中有“删除重复项”，它可以为您完成此操作。

在 Excel 2003 及更早版本中，您可以使用“数据/筛选器”菜单中的“高级筛选器”：

然后将结果复制粘贴到新工作表中。

你可以看到完整的流程here. http://www.wiseowl.co.uk/blog/s177/how_to_remove_duplicates_from_a_list_in_excel_pt2.htm

否则，编写宏是一个乏味的宏（一个递归循环来检查该值是否存在于集合中）。这是可以做到的，但你真的需要它吗？

但如果你想实际删除所有相同的条目，那么使用 @Eoins 的宏就可以完成这项工作，但稍作修改如下：

Option Explicit

Sub DeleteDuplicate()
    Dim x, Y As Long
    Dim LastRow As Long
    Dim myCell As String
    LastRow = Range("A1").SpecialCells(xlLastCell).Row
    For x = LastRow To 1 Step -1
        myCell = Range("A" & x).Text
        If Application.WorksheetFunction.CountIf(Range("A1:A" & x), myCell) > 1 Then
            For Y = x To 1 Step -1
                If Range("A" & Y).Text = myCell Then
                    Range("A" & Y).EntireRow.Delete
                End If
            Next Y
        End If
    Next x
End Sub