VBA that extracts all email address from a excel workbook

[NL111]

Does anyknow how to do it?
I have a workbook with about 11 sheets, with a total of about a million or so lines. All the emails are contained within the first column, and they are in this format:
email,randomText,randomText
I am looking for a way to just extract the email out and output it into perhaps a new excel document?
If someone can help me in this it will be great.
Thank you so much!

[cjo]

So, in cell A2, you might have something like
[email protected], blah blah, blah blah blah?
Where there's always a comma after the email address?

If so, you can use a formula like this:

Please Login or Register  to view this content.

in an empty column to get the addresses.

[NL111]

Yes, from Cell A1-A100000, the format is always like this:
[email protected],blahblah,blahblah
I just need a way to extract that out. Is it possible for you to give me a code which I can do this? I am not experienced with VBA

[cjo]

You can just use that formula above. If necessary, you can copy/paste special - values the result back on top of column A. No VBA needed.

[NL111]

Ah yea it works. But that means I will ahve to replace the number in slowly, so like
=LEFT(A1,FIND(",",A1)-1)
=LEFT(A2,FIND(",",A2)-1)
etc
Is there anyway for me to just make it apply to the whole column? I tried double clicking the black square at the bottom right of the box but it doesn't work

[cjo]

If it doesn't fill down with a double click, you can click and drag, or you can do a ctrl-c (copy), select the cells you want the updated formula to be in, and then ctrl-v (paste) the formula.

[NL111]

I tried to click and drag, and double click. The ctrl-C just copies the exact formula into the next box :\

[cjo]

On the spreadsheet, do you see the formula, or the result of the formula?

[NL111]

Never mind haha, I managed to get it to work. Thanks a lot for your help