excel - 使用 VBA 删除重复项 - Excel 2003

Question

我想知道是否有人会知道任何可以消除重复项的 VBA 代码。例如，在 D 列中，我想保留 ID 的第一个实例，并删除重复项。

问候

格雷格

Answer 1

好的，这应该对你有用。该例程删除了 C 列中的所有双重 ID

Option Explicit


Sub DeletDuplicate()
    Dim x As Long
    Dim LastRow As Long
    LastRow = Range("C65536").End(xlUp).Row
    For x = LastRow To 1 Step -1
        If Application.WorksheetFunction.CountIf(Range("C1:C" & x), Range("C" & x).Text) > 1 Then
            Range("C" & x).EntireRow.Delete
        End If
    Next x
End Sub