remove duplicates except blanks
 

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

jat

remove duplicates except blanks
 

It is not a problem, but we need more information.

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

Regards,
Per

"jat" skrev i meddelelsen
...
is it possible to have a macro that removes duplicates except blanks in a
column?

jat

remove duplicates except blanks
 

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

--
Jacob


"jat" wrote:

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

jat