Separating mass groups of numbers

[stephen.smith]

Hey guys. I am trying to separate a huge group of phone numbers from one cell into individual cells in a column. the numbers are currently separated by a semicolon. Is there an easy way to perform this action?? Thanks

 

[BenMiller]

Try using Text To Columns with a semicolon as your delimiter.

 

[mirabeau]

Hey guys. I am trying to separate a huge group of phone numbers from one cell into individual cells in a column. the numbers are currently separated by a semicolon. Is there an easy way to perform this action?? Thanks

Individual cells in a column?
You could try out this small code

Sub separate()
Dim spl
With Range("A1")
    spl = Split(.Value, ";")
    .Offset(1).Resize(UBound(spl) + 1) = Application.Transpose(spl)
End With
End Sub

 

[BenMiller]

Sorry, didn't notice you said column! After you do text to columns, you can copy>paste special>transpose into a column.

 

[stephen.smith]

Thats great thanks, worked like a dream, now I have my numbers separated however I need to add a "0" before every number in my list, is there a way to perform this easily.
Thanks again
Stephen

 

[mirabeau]

Thats great thanks, worked like a dream, now I have my numbers separated however I need to add a "0" before every number in my list, is there a way to perform this easily.
Thanks again
Stephen

Not sure which answer you refer to, but if VBA then

Sub separate2()
Dim spl
With Range("A1")
    spl = Split(.Value, ",")
    With .Offset(1).Resize(UBound(spl) + 1)
        .Cells = Application.Transpose(spl)
        .NumberFormat = """0""General"
    End With
End With
End Sub