エクセルでの抽出と円記号サブレス方法について

質問

セルA1に最大6桁の数値があり、これをセルB1～H1に円記号サプレス
したかたちで桁の抽出をしたいのですが、関数(組み合わせ)だけで可
能でしょうか?
例1)
セルA1→120897
BCDEFGH
\120897
例2)
セルA1→120
BCDEFGH
_______\120 (__はスペースです)
※HTMLになるとうまく表示されないので画像を参照してください。
B1からH1に入れる関数を教えてください。
直接B1からH1に入れる関数で不可能であれば間接的な方法、VBAマクロ
での方法でもありがたいです。教えてください。
よろしくお願いします。--以上

回答No.2

bin-chan

＃１です。ごめんなさい。

text()は無しにしてください。
でも、未入力の場合に　\　が出てしまうので、以下の通り修正してください

セルB1に式[=if(trim(A1)="","",mid(right("　　　 \" & A1,7),1,1))
セルC1に式[=if(trim(A1)="","",mid(right("　　　 \" & A1,7),2,1))

以下、同様です。

回答No.1

bin-chan

セルB1に式[=mid(right(" \" & text(A1),7),1,1)]
セルC1に式[=mid(right(" \" & text(A1),7),2,1)]
セルD1に式[=mid(right(" \" & text(A1),7),3,1)]
セルE1に式[=mid(right(" \" & text(A1),7),4,1)]
セルF1に式[=mid(right(" \" & text(A1),7),5,1)]
セルG1に式[=mid(right(" \" & text(A1),7),6,1)]
セルH1に式[=mid(right(" \" & text(A1),7),7,1)]

right(" \"のスペースは、半角6個です。
列Aが仕様外の7桁になった場合はB1は数値になります。

設定後、セルB1：H1をコピーして、下方向に貼り付け。

お礼

bin-chanさん、超即答ありがとうございます。
教えて頂いた関数を試したのですが
TEXT(A1)のところで必要な引数がないとエラーになります。
エクセルのバージョンは2002です。
ヘルプで確認すると【TEXT(値,表示形式)】の形です。
いろいろと試しましたがだめでした。
エクセルのバージョンの問題でしょうか?