郵便番号のハイフンを入れたい エクセル２０００

質問

エクセル２０００で文字列のセルに
1234567
のように７桁郵便番号が入っています。
これを
123-4567
のように前から４桁めにハイフンを入れる方法を
教えていただけませんでしょうか。

＊データ件数が３万件ほどあり、その変換のためです。

回答No.4

sgh · ベストアンサー

A1に郵便番号データがあるとして、別セルに
=Left(A1,3) & "-" & Mid(A1,4,4)
を入力。
３万件分をコピーして、元セルに値のみを戻す方法ではいかがでしょうか？

お礼

ありがとうございます。
０で始まる郵便番号がありデータは文字列で入っているため、この方法でうまくいきました。

回答No.6

imogasi

VBAですが、７行ですから、VBE画面に標準モジュールを挿入し、そこに下記をコピーし貼りつけ、実行すれば、三万行でも数秒で終わるでしょう。セルの値を直接変えます。
Sub test01()
d = Range("A1").CurrentRegion.Rows.Count
For i = 1 To d
a = Cells(i, "A")
Cells(i, "A") = Mid(a, 1, 3) & "-" & Mid(a, 4, 4)
Next i
End Sub
Aとなっているところは、郵便番号の入っている列番号に変えて下さい。C列なら(i,"C")のように。
住所が第４行目から始まるなら、
d = Range("A4").CurrentRegion.Rows.Count
For i = 4 To d + 4 - 1
のようにしてください。
郵便番号の文字が全角文字なら"-"を"－"に全角に変えて下さい。
セルの値を直接変えるので、別シートへ少数データをコピーし、テストしてから本番を実行のこと。

回答No.5

negitoro

列を選択　→　右クリック　→　セルの書式設定　→　分類（その他）　→　種類（郵便番号）　で変換可能です。　お試しください。

お礼

この方法はセルに入っているデータが数値の場合に大変便利ですね。
今回は文字列でしたので他の方法をとりました。

回答No.3

takkuni

セルの書式設定からその他（郵便番号）を選択。
これでOKです。

回答No.2

ara09

No.312044のＱ＆Ａをご参照下さい。

では、再見！！

参考URL：

http://oshiete1.goo.ne.jp/kotaeru.php3?q=312044

回答No.1

HageobaQ

セルの書式設定をユーザー定義から
000"-"0000
とすることでそう表示させることが可能です。