Remove duplicate if column B is blank

Hi Guys,

I'm looking for a macro that will sort column A in alphabetical order (It does have a header), check for duplicates in column A and if duplicates exist, check if the corresponding cell in column B is blank. If it is then delete the row where column B is blank.

i.e.

Column A|Column B
d1mwork |
d1mwork | French
d2mwork |
d2mwork | French

Becomes
Column A|Column B
d1mwork | French
d2mwork | French

Thanks all!

Maybe:

Please Login or Register  to view this content.

Spot on John! - Many Thanks (rep added )

You're welcome. Glad to help out and thanks for the feedback.

Just taking this one step further, what would I need to add (and where) if I also wanted to remove duplicate entries (where column A and column B match exactly?)

Thanks

Originally Posted by sktneer

@John
Did I miss something?

I think your version deletes all blank rows where Column B is blank, even when there are no duplicates.

Originally Posted by MagicMan

Just taking this one step further, what would I need to add (and where) if I also wanted to remove duplicate entries (where column A and column B match exactly?)

Thanks

Try:

Please Login or Register  to view this content.

Thanks again John,

That didn't work (of course it might just be me! ) But I've put this in and at the end of your code I've made it call

Please Login or Register  to view this content.

Not that it makes any difference, but at least they can be operated in isolation.

But thank you again for allowing me to take up your valuable time. :D

Originally Posted by sktneer

I think, it would delete a row with blank in col. B if value in col. A is not unique i.e. it is a duplicate. And I assume that following line of code does this.....

Please Login or Register  to view this content.

Did you triy this?

I hadn't tested it. But it certainly does work. Good insight for a different approach.