Delete row containing all previous values.

[mohd21uk via OfficeKB.com]

I have a column in a spreadsheet with repeated values for e.g a name which
is repeated 5 times I would like to keep the last row containing this value
but delete all previous rows i.e in this example i would like to keep row
five containing the last occourence of this value and delete all previous
rows.

 

[Don Guillett]

try this

Sub deleledupsinpreviousrows()
For i = Cells(Rows.Count, "a").End(xlUp).Row To 2 Step -1
If Cells(i - 1, 1) = Cells(i, 1) Then Rows(i - 1).Delete
Next
End Sub