VBA or formula to seperate long decimal number into separate cells

[michaelsmith559]

I need vba or formula that can separate a number into different columns. Must be able to go down entire column.

Here is what I want to do:

[RANGE=cls:xl2bb-100][XR][XH=cs:18]Excel 2012[/XH][/XR][XR][XH][/XH][XH]AL[/XH][XH]AM[/XH][XH]AN[/XH][XH]AO[/XH][XH]AP[/XH][XH]AQ[/XH][XH]AR[/XH][XH]AS[/XH][XH]AT[/XH][XH]AU[/XH][XH]AV[/XH][XH]AW[/XH][XH]AX[/XH][XH]AY[/XH][XH]AZ[/XH][XH]BA[/XH][XH]BB[/XH][/XR][XR][XH]1[/XH][XD=h:r][/XD][XD=h:r][/XD][XD=h:r][/XD][XD=h:r][/XD][XD=h:r][/XD][XD=h:r][/XD][XD=h:r][/XD][XD=h:r][/XD][XD=h:r][/XD][XD=h:r][/XD][XD=h:r][/XD][XD=h:r][/XD][XD=h:r][/XD][XD=h:r][/XD][XD=h:r][/XD][XD=h:r][/XD][XD=h:r][/XD][/XR][XR][XH]2[/XH][XD=h:r]1.00002494005922[/XD][XD=h:r][/XD][XD=h:c]1[/XD][XD=h:c]0[/XD][XD=h:c]0[/XD][XD=h:c]0[/XD][XD=h:c]0[/XD][XD=h:c]2[/XD][XD=h:c]4[/XD][XD=h:c]9[/XD][XD=h:c]4[/XD][XD=h:c]0[/XD][XD=h:c]0[/XD][XD=h:c]5[/XD][XD=h:c]9[/XD][XD=h:c]2[/XD][XD=h:c]2[/XD][/XR][XR][XH=cs:18][RANGE][XR][XD]Sheet4[/XD][XH][/XH][/XR][/RANGE][/XH][/XR][/RANGE]

 

[michaelsmith559]

Excel 2012
	AL	AM	AN	AO	AP	AQ	AR	AS	AT	AU	AV	AW	AX	AY	AZ	BA	BB
1
2	1.00002494005922		1	0	0	0	0	2	4	9	4	0	0	5	9	2	2
Sheet4

 

[michaelsmith559]

Sorry about post #1. I hit the wrong button. What I want to accomplish is in post #2. Thanks.

Mike

 

[István Hirsch]

Enter in AN2 and copy across as long as needed:

=MID(SUBSTITUTE($A3,".",""),COLUMNS($B:B),1)

Excel Workbook
	AL	AM	AN	AO	AP	AQ	AR	AS	AT	AU	AV	AW	AX	AY	AZ	BA	BB	BC
1
2	1,00002494005922		1	0	0	0	0	2	4	9	4	0	0	5	9	2	2
Sheet

 

[michaelsmith559]

Tried the formula and it puts a 3 into cell AN2 and clears the rest of the cells.

 

[michaelsmith559]

Just found what was wrong. I forgot to put to change A3 to AL3. Thanks. Works great.

Mike