Evaluate duplicate rows and delete information in specified columns

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?
 
J

Joel

'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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top