あるセルに入れた数字を別のセルに一桁ずつ表示する方法は？（Ｅｘｃｅｌ2000）

質問

皆さまのお知恵を貸していただきたく、質問いたします。
使用ソフトはExcel2000です。
以下のようなことを自動的にできるような方法（関数等を使って）はありますでしょうか？？

《例》

(1)Ａ１に「153962」と数字を入れると・・・

(2)Ａ４に「1」、Ｂ４に「5」、Ｃ４に「3」、Ｄ４に「9」
　Ｅ４に「6」、Ｆ４に「2」
　と、自動的に表示されるようにする。　

なにか良い方法がありましたら、教えて下さい。
よろしくお願いいたします。

回答No.12

april21 · ベストアンサー

■補足
参照させるのが不便なら↓のようにしてください。

C列からJ列のセルを使いたいのであればCOLUMN()の所をCOLUMN()-2とします。
=IF(MID(REPT(" ",8-LEN($A$1))&$A$1,COLUMN()-2,1)=" ","",VALUE(MID(REPT(" ",8-LEN($A$1))&$A$1,COLUMN()-2,1)))

Ｅ列からならCOLUMN()-4　（Ｅは５列目だから-4で1にしてる）

お礼

Aprilさん！お仕事でお忙しい、とのことでしたのに、何度も書き込んで頂いて本当に本当にありがとうございます。No.10～12のお礼を言わせてください。
早速書き込んでいただいた内容をコピーしてセルに貼り付け、実践してみました。ちゃんとできてただいま感激しています～w(゜o゜)w！！

使う側のことを考えてくださって、いろいろなパターンを提示していただき、本当にありがたく思っています。m(_ _)m
しっかりと仕事に生かしたいと思います。言葉尽くせませんが、本当に有り難うございました！！

回答No.1

noname#5115

関数を使った場合。
本当のところ、データが何桁あるかわかりませんが、
以下のとおりで可能です。

A1 153962　を入力
以下左のセルに　等号以降の数式を入れる。

A4 =RIGHT(LEFT($A1,1),1)
B4 =RIGHT(LEFT($A1,2),1)
C4 =RIGHT(LEFT($A1,3),1)
D4 =RIGHT(LEFT($A1,4),1)
E4 =RIGHT(LEFT($A1,5),1)
F4 =RIGHT(LEFT($A1,6),1)

他にもVBAで取り出す方法もありますが、用途がわかんないので、
とりあえずってところです。

お礼

早速のご回答、ありがとうございます！
すぐに式をコピーしてやってみました。確かに一桁ずつ取り出せるんですね～。すごい！関数は奥深いですネ。
ありがとうございました。