delete duplicate rows..

ashleykelley


Try this little macro to delete the duplicates

Sub DeleteDuplicates()
   Dim iLastRow As Integer
   Dim iRow As Integer
   
   iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
   For iRow = iLastRow To 2 Step -1
      If Cells(iRow, "a").Value = Cells(iRow - 1, "a").Value Then
         If Cells(iRow, "b").Value = Cells(iRow - 1, "b").Value Then
            Rows(iRow).Delete
         End If
      End If
   Next iRow
End Sub