Reply to thread

Message: [QUOTE="S Himmelrich, post: 6343412"] The following code works for only Column A: 'Removed Duplicates in Column A Dim rng As Range Dim i As Integer Set rng = Range(Cells(1, 1), Cells(1, 1).End(xlDown)) For i = rng.Rows(rng.Rows.Count).Row To rng.Row + 1 Step -1 If Cells(i, 1).Value = Cells(i - 1, 1) Then Cells(i, 1).ClearContents End If Next End Sub I need similar results, but evaluating four columns for duplicate rows: Columns A, C, F & G, and deleting values in Column F, G, H & I if condition is true. Can anyone help? [/QUOTE]