Extract Numbers

[fromspenny]

Hope someone can help with this
How do I Extract all the numbers between the dashes into individual cells
see example below

Excel Workbook
	A	B	C	D	E	F	G
1	8-18-27-28-46-48	8	18	27	28	46	48
2	17-30-33-34-38-48	17	30	33	34	38	48
3	17-18-24-29-35-48	17	18	24	29	35	48
4	2-3-7-17-21-32	2	3	7	17	21	32
Sheet

 

[Richard Schollar]

Hi

Have you tried Data>TextToColumns>Delimited>dash delimiter (put it in Other box)?

 

[VoG]

Try this macro

Sub splt()
Dim LR As Long, i As Long, X
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LR
    With Range("A" & i)
        X = Split(.Value, "-")
        With .Offset(, 1).Resize(, UBound(X) + 1)
            .Value = X
            .Value = .Value
        End With
    End With
Next i
End Sub

 

[fromspenny]

Thanks Richard works a treat