-PR-

解決済みの質問

質問No.742858
困ってます
困ってます
お気に入り投稿に追加する (0人が追加しました)
回答数6
閲覧数18562
郵便番号のハイフンを入れたい エクセル2000
エクセル2000で文字列のセルに
1234567
のように7桁郵便番号が入っています。
これを
123-4567
のように前から4桁めにハイフンを入れる方法を
教えていただけませんでしょうか。

*データ件数が3万件ほどあり、その変換のためです。
投稿日時 - 2004-01-05 15:46:08

質問者が選んだベストアンサー

回答No.4
A1に郵便番号データがあるとして、別セルに
=Left(A1,3) & "-" & Mid(A1,4,4)
を入力。
3万件分をコピーして、元セルに値のみを戻す方法ではいかがでしょうか?
投稿日時 - 2004-01-05 15:53:09
この回答を支持する
(現在0人が支持しています)
お礼
ありがとうございます。
0で始まる郵便番号がありデータは文字列で入っているため、この方法でうまくいきました。
投稿日時 - 2004-01-07 13:31:47

ベストアンサー以外の回答 (5)

回答No.6
VBAですが、7行ですから、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")のように。
住所が第4行目から始まるなら、
d = Range("A4").CurrentRegion.Rows.Count
For i = 4 To d + 4 - 1
のようにしてください。
郵便番号の文字が全角文字なら"-"を"-"に全角に変えて下さい。
セルの値を直接変えるので、別シートへ少数データをコピーし、テストしてから本番を実行のこと。
投稿日時 - 2004-01-05 21:38:37
この回答を支持する
(現在0人が支持しています)
回答No.5
列を選択 → 右クリック → セルの書式設定 → 分類(その他) → 種類(郵便番号) で変換可能です。 お試しください。
投稿日時 - 2004-01-05 15:53:41
この回答を支持する
(現在0人が支持しています)
お礼
この方法はセルに入っているデータが数値の場合に大変便利ですね。
今回は文字列でしたので他の方法をとりました。
投稿日時 - 2004-01-07 13:23:53
回答No.3
セルの書式設定からその他(郵便番号)を選択。
これでOKです。
投稿日時 - 2004-01-05 15:52:14
この回答を支持する
(現在0人が支持しています)
回答No.2
No.312044のQ&Aをご参照下さい。

では、再見!!
投稿日時 - 2004-01-05 15:52:01
この回答を支持する
(現在0人が支持しています)
回答No.1
セルの書式設定をユーザー定義から
000"-"0000
とすることでそう表示させることが可能です。
投稿日時 - 2004-01-05 15:51:42
この回答を支持する
(現在0人が支持しています)
この質問は役に立ちましたか?
23人が「このQ&Aが役に立った」と投票しています
もっと聞いてみる

関連するQ&A

この他の関連するQ&Aをキーワードで探す

同じカテゴリの人気Q&Aランキング

-PR-

-PR-

特集

背筋がゾクゾクする心霊体験を要チェック!

お城、ボート、ツリーハウス、ユニークな物件満載!

患者さんやご家族、それぞれに合ったゴールと道筋を。

同じカテゴリの人気Q&Aランキング

-PR-

ピックアップ

-PR-