excel - VBA による重複の削除 - Excel 2003

Question

重複を取り除くVBAコードを誰かが知っているかどうか疑問に思っていました. たとえば、列 D では、ID の最初のインスタンスを保持し、重複を削除します。

よろしく

グレッグ

Answer 1

わかりました、それはあなたのために働くはずです。そのルーチンは、列 C の double Id'd をすべて削除します

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