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

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

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

No.4 ベストアンサー 回答者： sgh 回答日時： 2004/01/05 15:53

A1に郵便番号データがあるとして、別セルに

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

この回答へのお礼

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

お礼日時：2004/01/07 13:31

No.6 回答者： imogasi 回答日時： 2004/01/05 21:38

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 回答日時： 2004/01/05 15:53

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

　お試しください。

この回答へのお礼

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

お礼日時：2004/01/07 13:23

No.3 回答者： takkuni 回答日時： 2004/01/05 15:52

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

これでOKです。

No.2 回答者： ara09 回答日時： 2004/01/05 15:52

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

では、再見！！

参考URL：http://oshiete1.goo.ne.jp/kotaeru.php3?q=312044

No.1 回答者： HageobaQ 回答日時： 2004/01/05 15:51

セルの書式設定をユーザー定義から

000"-"0000
とすることでそう表示させることが可能です。