Separate numbers into individual cells

[stephen.smith]

Hey guys I have about 2000 phone numbers in a string in one cell, each individual number is separated by ";". Is it possible to perform a function that will separate all of these numbers into individual cells in one column.
Thanks
Stephen

 

[Weaver]

Try this:

Paste this code into a new module

Sub sep2()
    With Selection
        a = Split(.Value, ";")
        .Offset(1).Resize(UBound(a) + 1) = WorksheetFunction.Transpose(a)
    End With
End Sub

Select the cell with the numbers and then activate the code. The numbers will get listed starting in the cell below your selection.

HTH

 

[stephen.smith]

Thats great, thanks

 

[Weaver]

Thats great, thanks

No problem, thanks for the feedback.