Duplicate Delete Cell Content

[danjw_98]

I am trying to delete cell data duplicates in a column. I don't want to delete the cell or row just remove the data in that cell. I have the below macro that kinda works but deletes the data from the top, leaving one at the bottom. I need to have this reversed. Any help would be appreciated....
a>
a>
a>a
b>
b>
b>b

Sub test()
finalrow = Range("a65536").End(xlUp).Row
For x = 1 To finalrow
cd1 = Range("d" & x).Value
cd2 = Range("d" & x + 1).Value
cd3 = cd2
If cd1 = cd2 Then
Range("d" & x).Value = " "
End If
Next x
End Sub

 

[brettdj]

This approach
- uses variant arrays so is much faster than ranges
- works bottom up rather than top down

hth

Dave

Sub Cull()
    Dim X()
    Dim lngRrow As Long
    X = Range([a1], Cells(Rows.Count, "A").End(xlUp)).Offset(0, 3)
    For lngrow = UBound(X, 1) To 2 Step -1
        If X(lngrow, 1) = X(lngrow - 1, 1) Then X(lngrow, 1) = vbNullString
    Next
    Range([a1], Cells(Rows.Count, "A").End(xlUp)).Offset(0, 3) = X
End Sub