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