clearing duplicate values in Column A

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

S Himmelrich - 22 Jan 2008 21:58 GMT

this solution deletes the row, I only want to clear the duplicate 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).Delete shift:=xlUp
End If
Next

Reply to this Message

GTVT06 - 22 Jan 2008 22:20 GMT

> this solution deletes the row, I only want to clear the duplicate in
> Column A.
[quoted text clipped - 6 lines]
> End If
> Next

Try this one

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

Reply to this Message