使用VBA刪除重複 - Excel 2003

Question

我想知道是否有人會知道任何VBA代碼將擺脫重複。例如，在D列中，我想保留ID的第一個實例，並刪除重複的（s）。

問候

格雷格

Answer 1

好吧，這應該爲你工作。 ，常規delets所有雙在列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