Removing duplicates from multiple columns (treating each column separately)

**Rob8489** · 06-11-2013, 01:43 PM

hi all

Hopefully the description is self explanatory

http://i.imgur.com/MkPEs1l.png

I know how to remove duplicates from a columns but i have 200+ columns and will need to perform this on all.

I couldnt find anything on the net. I found this http://www.mrexcel.com/forum/excel-q...e-columns.html but the vba came up with an error (not sure if its because I have excel 2003?)

Anyway, assistance would be greatly appreciated

thanks !!

**young_86** · 06-11-2013, 04:06 PM

try this one:
Sub delete_dupl()
Dim abc As Range

With Worksheets("Sheet1")
For Each abc In Range("A2:AA2")
abc.EntireColumn.RemoveDuplicates 1
abc.EntireColumn.Sort Key1:=abc(2, 1), _
Order1:=xlAscending, Header:=xlYes
Next abc
End With

Application.ScreenUpdating = True
End Sub

**Rob8489** · 06-12-2013, 02:07 AM

awesome! thank you

**young_86** · 06-12-2013, 06:10 AM

you welcome, i'm glad that i could help.

**sathishkm** · 07-24-2013, 05:56 PM

Its good code

Removing duplicates from multiple columns (treating each column separately)

LinkBack

Thread Tools

Rate This Thread

Display

Removing duplicates from multiple columns (treating each column separately)

Re: Removing duplicates from multiple columns (treating each column separately)

Re: Removing duplicates from multiple columns (treating each column separately)

Re: Removing duplicates from multiple columns (treating each column separately)

Re: Removing duplicates from multiple columns (treating each column separately)

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions