extract several email addresses from certain cells

[bottledwater]

Hi there,

I got an Excel sheet with about 1500 email contacts which I need to clean up in order to import it to our newsletter system.
Unfortunately it has all the nightmares of an email list you can hope for: some cells have several lines with email addresses, @-signs, duplicate addresses and so on.
I also need to get rid of duplicates which shouldn't be a problem with the Remove Duplicates button, but since there are sometimes several duplicates in the same cell Excel doesn't recognize them.
So what I need is to extract multiple email addresses from single cells and spread them to column A. Get rid of certain addresses from specific domains or with specific names like donotreply@... and eliminate duplicates which shouldn't be a problem once each cell contains only one email address and no other signs and letters.

The most pressing question: How do I clean up the cells with multiple email addresses and other junk? I wasn't able to find a VBA script for exactly this problem.

[dflak]

You'll have to modify this code to accommodate the actual range of your values. The code will produce a list in Column C. You can get the duplicates out of this column using whatever method you choose.

Please Login or Register  to view this content.

[bottledwater]

That was exactly what I was looking for. Thank you!