Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


10799 / 13644 ツリー ←次へ | 前へ→

【19747】町村合併した住所録を新町名に変更したい おがけん 04/11/16(火) 14:59 質問[未読]
【19751】Re:町村合併した住所録を新町名に変更したい IROC 04/11/16(火) 15:49 回答[未読]
【19771】Re:町村合併した住所録を新町名に変更したい 角田 04/11/16(火) 17:00 回答[未読]
【19841】Re:町村合併した住所録を新町名に変更したい おがけん 04/11/17(水) 18:56 お礼[未読]

【19747】町村合併した住所録を新町名に変更したい
質問  おがけん  - 04/11/16(火) 14:59 -

引用なし
パスワード
   SHEET1に住所録
1    2    3
氏名  郵便番号 住所
(以下5000行ほどあります)

SHEET2に新旧の市町村対比リストがあります
1      2  
旧町名   新町名
山田町   朝日市 
山田町東  朝日市
河上町   川上町
(以下20行ほどあります)
よろしくお願いします。
なお初心者ですので
SUB ()
END SUB
の間に入力したらよい方法でご説明ください。

【19751】Re:町村合併した住所録を新町名に変更し...
回答  IROC  - 04/11/16(火) 15:49 -

引用なし
パスワード
   一般機能の「置換」をお試し下さい。
それをマクロの記録すれば参考になると思います。

【19771】Re:町村合併した住所録を新町名に変更し...
回答  角田 WEB  - 04/11/16(火) 17:00 -

引用なし
パスワード
   こんにちは。
> 旧町名   新町名
> 山田町   朝日市 
> 山田町東  朝日市
都道府県から定義しなければ正確に処理できないでしょう。
(町なら、その前に郡名が付いているでしょうし)

市町村名の次に来る"町域/丁目番地"が変更後も同じとは限らないですよ。
[町→市]に変わったのなら
 朝日市 山田xx丁目xx番xx号
 朝日市 山田東yy丁目yy番yy号  (市町村名は"朝日市"まで)
というような変わり方をしているようにも思えますしね。

また、置換するなら文字数の多い方(山田町東→山田町)から処理しないと
おかしくなりますよ。
"〜山田町東‥‥‥" →山田町で置換→ "〜朝日市東‥‥‥"

σ(^_^)の[kt電話郵便アドイン]
http://www.h3.dion.ne.jp/~sakatsu/TelPost.htm
の一括変換機能で、[住所⇒〒]変換を[エラーメッセージ有り]で行なうと
市町村名が変わっている所では、新しい市町村名をエラーメッセージで
返します(変わってないところは郵便番号が出ます)。
それを見ながら、現住所の町域/丁目/番地をコピペして処理するのも
一案かな‥‥‥

【19841】Re:町村合併した住所録を新町名に変更し...
お礼  おがけん  - 04/11/17(水) 18:56 -

引用なし
パスワード
   レスをありがとうございます。
条件がいろいろあって難しいようですね。
置換えでがんばります。
ありがとうございました。

10799 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free