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

 

[tyija1995]

Given first cell (2305) is in A2 try this in B2 and copy across:

IF(VALUE(MID($A2,COLUMNS($B$1:B1),1))=0,"",MID($A2,COLUMNS($B$1:B1),1))

 

[Vishaal]

Thanks Tyija1995

 

[Vishaal]

Still 0 is not coming

 

[Fluff]

How about

Book1
	A	B	C	D	E	F
1
2	12305	1	2	3	0	5
3	2054	2	0	5	4
4	0654	0	6	5	4
Data

Cell Formulas
Range	Formula
B2	=MID($A2,COLUMNS($B$1:B1),1)

 

[mohadin]

And what about

Sub test()
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 1 To lr
        For j = 1 To Len(Cells(i, 1))
             Cells(i, j).Offset(0, 1) = Mid(Cells(i, 1), j, 1)
        Next
    Next
End Sub

 

[SpillerBD]

given first cell (2305) is in a2 try this in b2 and copy across:

If(value(mid($a2,columns($b$1:b1),1))=0,"",mid($a2,columns($b$1:b1),1))

if(value(mid($a2,columns($b$1:b1),1))=0,"0",text(mid($a2,columns($b$1:b1),1)))

 

[Vishaal]

thanks Fluff
bro,

great its working

 

[Vishaal]

thanks mohadin bro,

its easy and fast

 

[Fluff]

You're welcome & thanks for the feedback