エクセルで数字を1文字ずつセルに入れたい

エクセルでの質問です
1つのセルに例えば”1530”という数字を入力します
そうすると　その数字を分解して　ｆ１のセルに”０”　e1のセルには”３” d1のセルに”5”　ｃ１のセルに”１”　ｂ１のセルに”￥”が自動的に入るようにしたいのですが　どうすれば良いでしょう
数字は4ケタ～7ケタまで変わります
よろしくお願いいたします。

No.2 ベストアンサー 回答者： tom04 回答日時： 2011/04/12 14:22

こんにちは！

外していたらごめんなさい。

データはA列の1行目からあるとします。
B1セルに
=IF($A1="","",IF(LEN($A1)+1<COLUMN(A1),"",MID("\"&$A1,COLUMN(A1),1)))
として列方向と行方向にオートフィルではどうでしょうか？m(__)m

この回答へのお礼

ありがとうございました。
御蔭さまで出来ました。

お礼日時：2011/06/07 18:40

No.1 回答者： Turbo415 回答日時： 2011/04/12 10:11

MID関数が一番簡単でしょう。

A1セルに数値を入れるとして最初のセルC1に=mid(＄A＄1,1,1)とします。それを横に７つコピーします。
その後、カンマで区切られた真ん中の数値１を、１つ隣なら２、２つ隣なら３にすれば良いです。
意味としたら、A1セルにある数値の、１桁目の１文字を表示という関数です。
\マークはB1セルに=if(isblank(A1),"","\")とすると、A1に数値が入ると￥を表示します。

この回答へのお礼

ありがとうございます。
いろいろ試してみます。

お礼日時：2011/06/07 18:39