エクセルで桁数が違う数字の頭にゼロを付けてすべて４桁にしたい。

質問

困り度： すぐに回答を！ すごく困っています。ある住所コードを作成しています。８桁で表示するのに、都道府県、市までで４桁　その下が４桁という指示なのですが、いただいたデータが最後の４桁の部分の桁数が１桁から４桁まで色々で、都道府県と市のコードと結合して８桁にするためには、最後のデータの頭にゼロを足してすべて４桁にしなくてはなりません。
VBは全くわかりませんが、関数などでどうにかなりますでしょうか？
ご教示の程、よろしくお願い致します。

回答No.3

Nouble · ベストアンサー

本来baq777さんの回答であってるのですが

只一点
記載する内容について
"0000"
と書かれてますがこの内の
"はゼロを強調する引用符で実際にそのまま書いてしまってはいけないものです

なので"を外して
0000
と、書けば行けますよ

まあこの応用ですが
見せたくない内容が書かれているセルに
""とユーザー書式を設定すると
消せないものもありますが
空白セルに見せかけることがほぼできます

お礼

ご指摘ありがとうございます。
テキストを表す""を入れていいものかどうか。。。と試す時に思ったのですが、やっぱりそうですか。""無しでやってみたらできました。
書式設定からできるなんて。。目からうろこです。

空白セルの件も非常に参考になりました。

ありがとうございました。

回答No.2

baq777

該当のセルをすべて選択して、
右クリック→書式設定→ユーザ定義、
右側の種類の部分に"0000"と書いてやれば
お望みの形かと思います。

お礼

早速の回答ありがとうございます。
ただ、やってみましたが。。。。すべての数字が0000になってしまいましたぁ。。。

もう一ついただいた回答で、列を挿入して　=TEXT(B1,"0000")でやってみたところ、あんなに悩んだのが嘘みたいに簡単でした。

皆様、本当にありがとうございます。これで無意味な数十（？）時間が救われました。
本当に親切な方が多いのですね。うれしいです。私もお役に立てるときには投稿するようにします。

補足

Noubleさんから指摘されましたように、　""無しで0000設定でやってみたところちゃんとできました。あんなに悩んだのがこんなに簡単なことでできるなんて目からうろこでした。

ありがとうございました。

回答No.1

n_na_tto

＿＿＿B＿＿_C_
1＿_123＿0123_
2＿1054＿1054_
3＿＿20＿0020_
4＿＿_8＿0008_

C1
=TEXT(B1,"0000")
下方向・↓

お礼

もう一人の方の回答へのお返事にも書きましたが、全く嘘のように簡単にできました。ありがとうございました。こんなに早く的確な回答をいただいて嬉しくて涙が出そうです。。。。。。