clearing duplicate values in Column A
 

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

clearing duplicate values in Column A
 

On Jan 22, 3:58*pm, S Himmelrich wrote:
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
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