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

Question

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

输入:

John
Jimmy
Brenda
Brenda
Tom
Tom
Todd

输出:

John
Jimmy
Todd

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

谢谢!

Answer 1

当您想要消除重复列表时，即确保每个列表中只剩下一项，您可以这样做:

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

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

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

您可以看到完整的过程here.

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

但是如果您想实际删除所有相同的条目，那么使用 @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