Excel/VBA Find email addresses within worksheet

majix7

New Member
Joined
Jul 29, 2002
Messages
5
Hello,

I have an Excel worksheet with several thousand email addresses. The email addresses are all in different columns. It is mixed in with their names, phone numbers, street addresses etc. What function/code could be written to search for the "@" symbol, since this is the only thing they will all have in common and then copy or cut/paste the cell with the email address to a new column. So the first email it finds would go in let's say column G Row 1 the next it finds would go in Column G Row 2 all the way down Column G until all emails are copied/cut pasted to it. I suppose you would also have to highlight the range to search so it does not go to column G in the search.

Any help you can provide is greatly appreciated on this matter.

Thank you.
 

Excel Facts

Shade all formula cells
To shade all formula cells: Home, Find & Select, Formulas to select all formulas. Then apply a light fill color.

Forum statistics

Threads
1,222,174
Messages
6,164,390
Members
451,889
Latest member
invalidlabel

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top