remove duplicates except blanks

  • Thread starter Thread starter jat
  • Start date Start date
J

jat

is it possible to have a macro that removes duplicates except blanks in a
column?

jat
 
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
 
You must log in or register to reply here.

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
import flat file 3
is there a simple formula that will remove all duplicates 3
code to prevent users from adding new worksheets 2
index, match in array setup question 1
loop to find text and place text in adjoining cell 4
Duplicate Function Help 1
vlook on different tabs based on value 1

Back
Top