How to blank out cells with duplicate values?
Perhaps you mean this
Sub test()
Dim iLastRow As Long
Dim i As Long
iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = iLastRow To 2 Step -1
If Application.CountIf(Columns(1), Cells(i, "A")) 1 Then
Cells(i, "A").Clearcontents
End If
Next i
End Sub
--
HTH
Bob Phillips
(remove nothere from email address if mailing direct)
"Bleu_808" wrote in message
oups.com...
Bob, Thanks - but this did not work for me. Let me explain a little
better...
ex:
1234 Part #1
1234 Part #2
1234 Part #2
1234 Part #4
4321 Part #1
4321 Part #2
4321 Part #3
6789 Part #1
6789 Part #2
I still want to view the informationon the rest of the row that has
the duplicate number, I just want to clear only the cell of the
duplicate.
Sorry if I wasn't clear :)
Bleu
|