使用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