VBA or Code For split the data

[Vishaal]

Hi All,

Thanks in advance,

i have a data

[TABLE="width: 50"]
<tbody>[TR]
[TD]Coloumn 1[/TD]
[TD] Coloumn 2 [/TD]
[/TR]
[TR]
[TD]2305[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]2054[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]0654[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

now i want to split, but when we split the data, "0" is not coming

[TABLE="width: 50"]
<tbody>[TR]
[TD]Col 1[/TD]
[TD]Col 2[/TD]
[TD]Col 3[/TD]
[TD]Col 4[/TD]
[TD]Col 5[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]2305[/TD]
[TD]2[/TD]
[TD]3[/TD]
[TD][/TD]
[TD]5[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]2054[/TD]
[TD]2[/TD]
[TD][/TD]
[TD]5[/TD]
[TD]4[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]0654[/TD]
[TD][/TD]
[TD]6[/TD]
[TD]5[/TD]
[TD]4[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

pls provide the VBA code/ formula

 

[Peter_SSs]

Another vba approach if the numbers are all 4-digit. Assumed starting in cell A2.

Sub Split_Numbers()
    Range("A2", Range("A" & Rows.Count).End(xlUp)).TextToColumns Range("B2"), xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(1, 1), Array(2, 1), Array(3, 1))
End Sub

 

[Vishaal]

Thanks Peter_SSs Sirji