Sub Test()
Dim iLastRow As Long
Dim i As Long
Dim rng As Range

iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To iLastRow
If Application.CountIf(Range("A" & i & ":A" & iLastRow), Cells(i,
"A")) 1 Then
If rng Is Nothing Then
Set rng = Rows(i)
Else
Set rng = Union(rng, Rows(i))
End If
End If
Next i

If Not rng Is Nothing Then rng.Delete

End Sub



--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"vanessa h" wrote
in message ...

I have one excel sheet. In the first column I have some numbers which
are key numbers. I want to write a macro by which I want to delete the
rows which have duplicate data in that column.
for eg. these are the values of the column 1.

1
1
1
2
2
3
3
4
5

In this case I want to delete the first two rows of the column
containing 1. But I want to keep the last row containing 1 as it is.
Then again delete 1 row for 2 and keep the last row containing 2 as it
is, delete 1 row for 3 and keep the last row containing 3 as it is. In
short I want to keep only one row of a number. So finally my column
should be

1
2
3
4
5

Can anyone help me out for this?


--
vanessa h
------------------------------------------------------------------------
vanessa h's Profile:
http://www.excelforum.com/member.php...o&userid=30731
View this thread: http://www.excelforum.com/showthread...hreadid=503975