Elimating Duplicate Entries

[Houstonwolf]

Hello. I am trying to truncate an existing report to make it more usable for my department's needs. You can see that the attached report contains multiple entries for the Trl# in Col D. I only need the trailer listed once (to another worksheet would be fine or I could delete all repeated instances of the Trl# in D providing any instance remained in the worksheet once and only once).

Any ideas as to how this can be done?

DV02 Report.xls
	C	D	E	F	G	H	I	J
1	SCAC	Trl#	Part#	HPWO#	SchdShipDate	ActualShipDate	SchdDelDate	ApptDate
2	SWFT	500961	Q5933A#ABA	1000392992	09/01/06	09/01/06	09/06/06	09/06/06
3	SWFT	500961	Q7822A#ABA	1000393011	09/01/06	09/01/06	09/06/06	09/06/06
4	SWFT	500961	Q5985A#	1000393255	09/01/06	09/01/06	09/06/06	09/06/06
5	SWFT	500961	Q6500A#ABA	1000393260	09/01/06	09/01/06	09/06/06	09/06/06
6	SWFT	500961	Q6503A#ABA	1000393265	09/01/06	09/01/06	09/06/06	09/06/06
7	SWFT	500961	Q5987A#ABA	1000393266	09/01/06	09/01/06	09/06/06	09/06/06
8	SWFT	500961	Q5927A#ABA	1000393307	09/01/06	09/01/06	09/06/06	09/06/06
9	SWFT	500961	Q6455A#ABA	1000393351	09/01/06	09/01/06	09/06/06	09/06/06
10	GRSF	4176	Q3714A#ABA	1000392939	09/01/06	09/01/06	09/04/06	09/04/06
11	GRSF	4176	Q3715A#ABA	1000392940	09/01/06	09/01/06	09/04/06	09/04/06
12	GRSF	2102	Q3944A#ABA	1000393301	09/01/06	09/01/06	09/06/06	09/06/06
13	CTRQ	33271	Q3714A#ABA	1000392939	09/01/06	09/01/06	09/04/06	09/04/06
14	CTRQ	33271	Q3944A#ABA	1000393301	09/01/06	09/01/06	09/04/06	09/04/06
15	CTRQ	13379	Q5927A#ABA	1000392984	09/01/06	09/01/06	09/04/06	09/04/06
16	CTRQ	13379	Q6500A#ABA	1000393260	09/01/06	09/01/06	09/04/06	09/04/06
17	CTRQ	13379	Q5987A#ABA	1000393266	09/01/06	09/01/06	09/04/06	09/04/06
18	CTRQ	13379	Q6455A#ABA	1000393351	09/01/06	09/01/06	09/04/06	09/04/06
19	CEPA	4776	Q6455A#ABA	1000392948-1	09/01/06	09/01/06	09/04/06	09/04/06
20	CEPA	4776	Q5927A#ABA	1000392984	09/01/06	09/01/06	09/04/06	09/04/06
SEP 06

 

[SteveO59L]

Try using an advanced filter, with the "Copy to another Location" and "Unique Values" options

 

[onlyadrafter]

Hello

Is this suitable?

Sub copy_to_sheet()
For MY_ROWS = 1 To Range("D65536").End(xlUp).Row
    If Range("D" & MY_ROWS).Value <> Range("D" & MY_ROWS + 1).Value Then
        Rows(MY_ROWS).Copy
        Sheets("Sheet2").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial (xlPasteAll)
    End If
Next MY_ROWS
End Sub

 

[Houstonwolf]

The filter was easy enough! Thank you!

Adrafter, the SUB routine is more than I need now, but I'm saving your code to try it out for some other things I'm trying to do. Thanks!