Quite easily done in Word. If you have a document with email addresses in:

• Word's hyperlink format (i.e. clickable hyperlinks, not plain text), you can use a wildcard Find/Replace, with:
Find = <[^1-^31\!-\?A-ÿ]{1,}[!\@][^1-\?A-ÿ]{1,}
Replace = nothing

• plain text, you can use a wildcard Find/Replace, with:
Find = <[0-9A-ÿ.\-]{1,}\@[0-9A-ÿ\-.]{1,}([^13 -/\:-\@\\-`\{-¿])
Replace = \1

Afterwards, you should have a file with only email addresses in it (and maybe the odd @ and the following word if you have any loose @ characters in the data).

So, if you copy the cells to Word and use whichever Find/Replace approach applies to your data, you should then be able to copy the cleaned data back to Excel.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]