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:

<b>Excel 2012</b><table cellpadding="2.5px" rules="all" style=";background-color: #FFFFFF;border: 1px solid;border-collapse: collapse; border-color: #BBB"><colgroup><col width="25px" style="background-color: #DAE7F5" /><col /><col /><col /><col /><col /><col /><col /><col /><col /><col /><col /><col /><col /><col /><col /><col /><col /></colgroup><thead><tr style=" background-color: #DAE7F5;text-align: center;color: #161120"><th></th><th>AL</th><th>AM</th><th>AN</th><th>AO</th><th>AP</th><th>AQ</th><th>AR</th><th>AS</th><th>AT</th><th>AU</th><th>AV</th><th>AW</th><th>AX</th><th>AY</th><th>AZ</th><th>BA</th><th>BB</th></tr></thead><tbody><tr ><td style="color: #161120;text-align: center;">1</td><td style="text-align: right;;"></td><td style="text-align: right;;"></td><td style="text-align: right;;"></td><td style="text-align: right;;"></td><td style="text-align: right;;"></td><td style="text-align: right;;"></td><td style="text-align: right;;"></td><td style="text-align: right;;"></td><td style="text-align: right;;"></td><td style="text-align: right;;"></td><td style="text-align: right;;"></td><td style="text-align: right;;"></td><td style="text-align: right;;"></td><td style="text-align: right;;"></td><td style="text-align: right;;"></td><td style="text-align: right;;"></td><td style="text-align: right;;"></td></tr><tr ><td style="color: #161120;text-align: center;">2</td><td style="text-align: right;;">1.00002494005922</td><td style="text-align: right;;"></td><td style="text-align: center;;">1</td><td style="text-align: center;;">0</td><td style="text-align: center;;">0</td><td style="text-align: center;;">0</td><td style="text-align: center;;">0</td><td style="text-align: center;;">2</td><td style="text-align: center;;">4</td><td style="text-align: center;;">9</td><td style="text-align: center;;">4</td><td style="text-align: center;;">0</td><td style="text-align: center;;">0</td><td style="text-align: center;;">5</td><td style="text-align: center;;">9</td><td style="text-align: center;;">2</td><td style="text-align: center;;">2</td></tr></tbody></table><p style="width:3.6em;font-weight:bold;margin:0;padding:0.2em 0.6em 0.2em 0.5em;border: 1px solid #BBB;border-top:none;text-align: center;background-color: #DAE7F5;color: #161120">Sheet4</p><br /><br />

 

[michaelsmith559]

<b>Excel 2012</b><table cellpadding="2.5px" rules="all" style=";background-color: #FFFFFF;border: 1px solid;border-collapse: collapse; border-color: #BBB"><colgroup><col width="25px" style="background-color: #DAE7F5" /><col /><col /><col /><col /><col /><col /><col /><col /><col /><col /><col /><col /><col /><col /><col /><col /><col /></colgroup><thead><tr style=" background-color: #DAE7F5;text-align: center;color: #161120"><th></th><th>AL</th><th>AM</th><th>AN</th><th>AO</th><th>AP</th><th>AQ</th><th>AR</th><th>AS</th><th>AT</th><th>AU</th><th>AV</th><th>AW</th><th>AX</th><th>AY</th><th>AZ</th><th>BA</th><th>BB</th></tr></thead><tbody><tr ><td style="color: #161120;text-align: center;">1</td><td style="text-align: right;;"></td><td style="text-align: right;;"></td><td style="text-align: right;;"></td><td style="text-align: right;;"></td><td style="text-align: right;;"></td><td style="text-align: right;;"></td><td style="text-align: right;;"></td><td style="text-align: right;;"></td><td style="text-align: right;;"></td><td style="text-align: right;;"></td><td style="text-align: right;;"></td><td style="text-align: right;;"></td><td style="text-align: right;;"></td><td style="text-align: right;;"></td><td style="text-align: right;;"></td><td style="text-align: right;;"></td><td style="text-align: right;;"></td></tr><tr ><td style="color: #161120;text-align: center;">2</td><td style="text-align: right;;">1.00002494005922</td><td style="text-align: right;;"></td><td style="text-align: center;;">1</td><td style="text-align: center;;">0</td><td style="text-align: center;;">0</td><td style="text-align: center;;">0</td><td style="text-align: center;;">0</td><td style="text-align: center;;">2</td><td style="text-align: center;;">4</td><td style="text-align: center;;">9</td><td style="text-align: center;;">4</td><td style="text-align: center;;">0</td><td style="text-align: center;;">0</td><td style="text-align: center;;">5</td><td style="text-align: center;;">9</td><td style="text-align: center;;">2</td><td style="text-align: center;;">2</td></tr></tbody></table><p style="width:3.6em;font-weight:bold;margin:0;padding:0.2em 0.6em 0.2em 0.5em;border: 1px solid #BBB;border-top:none;text-align: center;background-color: #DAE7F5;color: #161120">Sheet4</p><br /><br />

 

[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