Remove Duplicate

[vijaychennai]

Remove Duplicate


Hi all,

I have excel file in the below format.

Excel Workbook
	A	B
1	Name	Date
2	a	2/18/2010
3	a	2/19/2010
4	a	2/19/2010
5	a	2/19/2010
6	a	2/19/2010
7	a	2/19/2010
8	a	2/19/2010
9	a	2/19/2010
10	a	2/19/2010
11	b	2/16/2010
12	b	2/18/2010
13	b	2/18/2010
14	b	2/18/2010
15	c	2/18/2010
16	c	2/18/2010
17	c	2/15/2010
18	c	2/18/2010
19	c	2/18/2010
20	d	2/10/2010
21	d	2/18/2010
22	d	2/18/2010
Sheet1

I want to remove the duplicate based on the date.

i want to take the first date .

Answer :

Excel Workbook
	E	F
1	Name	Date
2	a	2/18/2010
3	b	2/16/2010
4	c	2/15/2010
5	d	2/10/2010
Sheet1

 

[SteveO59L]

Sort by Name then Date.

In c2

=COUNTIF($A$2:A2,A2)

and fill down

filter for values > 1

then delete

 

[VoG]

Try

Sub DelDup()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = LR To 3 Step -1
    With Range("A" & i)
        If .Value = .Offset(-1).Value Then .EntireRow.Delete
    End With
Next i
End Sub