remove duplicates except blanks

  • Thread starter Thread starter jat
  • Start date Start date
It is not a problem, but we need more information.

Which column do you want to compare, should both entries be deleted?

Regards,
Per
 
With data in ColA try the below macro which will use ColB as a helper column...

Sub Macro1()
Columns(1).Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, Orientation:=xlTopToBottom
Columns(1).AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("B1"), Unique:=True
Columns(1).Value = Columns(2).Value
Columns(2).Value = ""
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Check if Duplicate with Exceptions 6
is there a simple formula that will remove all duplicates 3
import flat file 3
code to prevent users from adding new worksheets 2
Duplicate Function Help 1
index, match in array setup question 1
loop to find text and place text in adjoining cell 4
vlook on different tabs based on value 1

Back
Top