Extracting Email Addresses

[ChrisFoster]

Hi all,

I have a stupid problem.
In A1 I have a list of email addresses (About 500 of them) which are all separated by a semi-colon ;

How do I extract all email addresses to show in column A rather than them being in just one cell?

Thanks,

Chris

 

[ExceLoki]

try this in a2

=TEXTSPLIT(A1,,";")

 

[ChrisFoster]

Legend. Thanks.

 

[Flaiban]

Sub SeparatebyRows()
Dim Arr As Variant

Arr = Split(Range("A1"), ";")
Range("B1").Resize(UBound(Arr) + 1).Value = _
    Application.WorksheetFunction.Transpose(Arr)
    Range("A:A").Delete
    Range("A:A").EntireColumn.AutoFit
End Sub