Microsoft Office Forums - View Single Post - [Solved] Macro to Delete Duplicate Rows and Retain Unique Value

macropod · 02-17-2014, 08:02 PM

Try something based on:

Code:

Sub DeleteDuplicateRows()
Dim LRow As Long, i As Long, j As Long
With ActiveSheet
  LRow = .Cells.SpecialCells(xlCellTypeLastCell).Row
  For i = LRow To 2 Step -1
    For j = i - 1 To 1 Step -1
      If .Range("A" & i).Value = .Range("A" & j).Value Then .Range("A" & j).EntireRow.Delete
    Next
  Next
End With
End Sub