文字列の途中の空白を除く、また、Ａ列の桁数に応じてＢ列に異なる値を記入する方法

質問

初心者です。エクセル２０００を使います。年は若くないです。
　次のことで困っています。データが多いため、ひとつひとつを手で訂正できないのです。
１．セル内の文字列に含まれる空白（スペース）を除く方法
　　例えば、　東　いろは→→東いろは
　　空白を置換して除こうとしましたがうまくいきませんでした
２．Ａ列の数字の桁数に応じて、Ｂ列に異なる数字を入れる方法。以前に教えていただいた方法＋α　が必要なのです。
　　Ａ列の数字が　４桁　なら　Ｂ列に　０１を入力
　　Ａ列の数字が　６桁　なら　Ｂ列に　６０を入力
　　Ａ列の数字が　７桁　なら　Ｂ列に　０６を入力
　　Ａ列の数字が　８桁　なら　Ｂ列にＡ列の数字の上位２桁を入力
したいのです。前回次のような数式を教えてえていただきました。
　=IF(LEN(A1)=4,"01",IF(LEN(A1)=6,"60",IF(LEN(A1)=7,"06","")))
８桁のときの数式の組み立て（条件判断、表示の仕方）が分からず、困っています。教えて下さい。

回答No.1

takachan7272 · ベストアンサー

１.
空白スペースを除くのではなく別の文字に置き換えます。
使用する関数は　SUBSTITUTE　です。
Ａ１の置き換え結果は　=SUBSTITUTE(A1,"　","")で出ます。
"　"、""　←これがミソです。
""、""にしてしまうと何も変わりません。

２．
ほとんど答えが出ていますね。
８桁の時も一緒ですよ。
ＩＦで８桁かどうか確認してやればいいだけです。
真の場合上２桁を、偽の場合は空白を返す式です。
=IF(LEN(A1)=4,"01",IF(LEN(A1)=6,"60",IF(LEN(A1)=7,"06",IF(LEN(A1)=8,LEFT(A1,2),""))))

どうでしょう？

お礼

早速の回答、有難うございました。おかげさまで解決しました。
助かりました。

回答No.3

Cupper

＞空白を置換して除こうとしましたがうまくいきませんでした

置換で置換後の文字を設定してしまったのか、半角と全角を間違えているかですね。
もう一度チャレンジしてみてください。
入力できない文字が使われているのであれば、CLEAN関数をつかってみましょう（ CLEAN(A1) ）
印刷できない文字を削除する関数ですが、意外と使えるものです

＞８桁のときの数式の組み立て（条件判断、表示の仕方）が分からず、困っています

7桁までの場合に続けて条件式を書けばOK
上位の桁と言うことであれば、LEFT関数です（ LEFT(A1,2) ）
ただし、このままでは文字列として抽出されます
数値に置き変えるのであれば、VALUE関数を使って数値に直します（ VALUE(LEFT(A1,2)) ）
A列のデータが数値であり数値として抽出したいのであれば、
1,000,000で割った商を求めても良いでしょう（ INT(A1/1000000) ）
　#０１、０６としているので文字列の方が都合よいと思いますけど参考まで

お礼

早速の回答、有難うございました。おかげさまで、解決しました。
エクセルの能力はすごいと思いました。もっと勉強したいと思います。
３人の方に、良回答２０pt差し上げたいのですが、出来ませんでした。すみません。

回答No.2

fumufumu_2006

こんなのではどうでしょうか？

1.
全角空白だけなら
=SUBSTITUTE(A1,"　","")
全角空白と半角空白があるなら
=SUBSTITUTE(SUBSTITUTE(A1,"　","")," ","")

2.
=IF(LEN(A1)=4,"01",IF(LEN(A1)=6,"60",IF(LEN(A1)=7,"06",IF(LEN(A1)=8,LEFT(A1,2),""))))

お礼

早速の回答、有難うございました。おかげさまで、解決しました。
３人の方に、良回答２０pt差し上げたいのですが、出来ませんでした。すみません。