Evaluate duplicate rows and delete information in specified columns

  • Thread starter Thread starter S Himmelrich
  • Start date Start date
S

S Himmelrich

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?
 
'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, "A").Value = Cells(i - 1, "A") and _
Cells(i, "C").Value = Cells(i - 1, "C") and _
Cells(i, "F").Value = Cells(i - 1, "F") and _
Cells(i, "G").Value = Cells(i - 1, "G") Then

Cells(i, "F").ClearContents
Cells(i, "G").ClearContents
Cells(i, "H").ClearContents
Cells(i, "I").ClearContents

'or this
'Range("F" & i & ":i" & i).ClearContents

End If
Next

End Sub
 
Back
Top