Remove Duplicates from 4 columns

skamat · Feb 6th 2014

How do I remove duplicate entries from 4 columns. I have made the VBA code but it does not work and removes duplicates only from first 2 columns

Code

Range(Cells(1, 1), Cells(1, 1).End(xlDown).Offset(0, 1)).Select
    Application.DisplayAlerts = False
    Selection.RemoveDuplicates Columns:=2, Header:=xlNo
    Application.DisplayAlerts = True

**pike** · Feb 7th 2014

Re: Remove Duplicates from 4 columns

Hi skamat

you could try expanding the code like ..

Code

Range(Cells(1, 1), Cells(1, 1).End(xlDown).Offset(0, 3)).Select
'Application.DisplayAlerts = False
Selection.RemoveDuplicates Columns:=4, Header:=xlNo
'Application.DisplayAlerts = True

skamat · Feb 7th 2014

Re: Remove Duplicates from 4 columns

All duplicates are not removed, I am attaching the excel sheet

**pike** · Feb 7th 2014

Re: Remove Duplicates from 4 columns

hi skamat
duplicate in which columns?? do you mean duplicates in three columns but removve all four?? can you please explain as i dont know what you are requesting

skamat · Feb 7th 2014

Re: Remove Duplicates from 4 columns

Duplicates from all 4 columns ie. A, B, C, and D

Here duplicates only from column D is removed I want duplicates removed from all 4 columns

**pike** · Feb 7th 2014

Re: Remove Duplicates from 4 columns

the duplicates are not across the columns
just the duplicates in each row
maybe

Code

for intCol = 1 to 4
Range(Cells(1,  intCol ), Cells(1,  intCol ).End(xlDown).Select 
 Selection.RemoveDuplicates Columns:=1, Header:=xlNo 
next

skamat · Feb 7th 2014

Re: Remove Duplicates from 4 columns

the following line comes in red

Code

Range(Cells(1,  intCol ), Cells(1,  intCol ).End(xlDown).Select

**pike** · Feb 7th 2014

Re: Remove Duplicates from 4 columns

ops
left out a end bracket

Code

For intCol = 1 To 4
    Range(Cells(1, intCol), Cells(1, intCol).End(xlDown)).Select
    Selection.RemoveDuplicates Columns:=1, Header:=xlNo
Next

skamat · Feb 7th 2014

Re: Remove Duplicates from 4 columns

Just for information when I tried manually from Data and remove duplicates it is showing "No Duplicate Values Found"

skamat · Feb 7th 2014

Re: Remove Duplicates from 4 columns

Great now worked, thanks very very much

skamat · Feb 7th 2014

Re: Remove Duplicates from 4 columns

:smile:

**pike** · Feb 7th 2014

Re: Remove Duplicates from 4 columns

Thanks skamat
I was stumped if it did work

Remove Duplicates from 4 columns

Participate now!

Share

Users Viewing This Thread