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

On Jan 22, 3:58*pm, S Himmelrich <himmelr...@gmail.com> 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