Filtering Unique records

[chiswickbridge]

My data is as follows...6 columns....Duplicate data in col A and col D....need to be attended to

AAA	xxx	yyy	USD	zzz	www			AAA	USD
BBB	abc	swe	INR	wed	fde			AAA	CAN
CCC			CAN					AAA	INR
DDD			USD					BBB	INR
EEE			ROU					BBB	SRT
BBB			SRT					CCC	CAN
CCC			MYN					CCC	MYN
AAA			CAN					DDD	USD
AAA			INR					DDD	INR
DDD			INR					EEE	ROU

<tbody>
</tbody>

Since the data set runs in 50,000 rows, I need a VBA to select Unique records of A and paste them in Col I and the corresponding unique records from Col D pasted in Col J.
AAA - has 3 unique records
BBB - has 2 unique records
CCC - has 2 unique records

Thanks.....

 

[DanteAmor]

Try:

Sub Macro()
    Range("A:A,D:D").Copy Range("I1")
    u = Range("I" & Rows.Count).End(xlUp).Row
    ActiveSheet.Range("I1:J" & u).RemoveDuplicates Columns:=Array(1, 2), Header:=xlNo
End Sub

 

[chiswickbridge]

Thank You....Dante....What more can I say.....Lovely VBA in a short script.....FANTASTIC

Any tips on which book to use for VBA learning....or is it hands-on ?.....Would love to be like you...

 

[chiswickbridge]

Hi Dante.....What changes do I need to do... if I plan to startsaving my data from A10 to M10

I intend leaving the top 9 rows for placing icons and some cells for tabulations...

 

[DanteAmor]

Try:

Sub Macro()
    u = Range("A" & Rows.Count).End(xlUp).Row
    Range("A10:A" & u & ",D10:D" & u).Copy Range("I10")
    u = Range("I" & Rows.Count).End(xlUp).Row
    ActiveSheet.Range("I10:J" & u).RemoveDuplicates Columns:=Array(1, 2), Header:=xlNo
End Sub

 

[chiswickbridge]

WOW... great...works fine....THANK YOU.....

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.