VBAで重複を削除する - Excel 2003

Question

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

Answer 1

[OK]を

よろしく

グレッグは、それはあなたのために働く必要があります。 ルーチンdeletsすべてダブルId'dは列C

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