という問題設定と作業環境です。
ＴＡＫＡは、WordVBAというあまりやりたい人がいない分野のVBAをさわっていたもので、どうもExcelは苦手であります（キッパリ）。実は、スクリプトやプログラムそのものが嫌いというか・・まあ、でも、おあそび程度に、手慰み。（さ）さまがつくってくださるのを心待ちにしながら、ＴＡＫＡも少しやったふりするです。
まず、設定と手順をもう少し限定し単純化してみます。
- Excelの住所録は、すでに開いている。
- Ａ列に郵便番号、Ｂ列に行政区町名、Ｃ列に番地・アパート名
- 第1行に列名が上記の如く設定されている
- 第2列に実データとして、Ａ列から、700-0913、岡山県岡山市大供、1-1-1、となっている（「大口郵便番号忘れるな！」との声が聞こえるがとりあえず無視）。
- 第2列の実データのうち、Ｂ列を読み取り、対照資料と突き合わせ、「岡山県岡山市北区大供」となることを判定し、Ｂ列に埋め戻す。
このうち、４までは条件で、５が手順です。問題は５ですね。
５をもう少し分解すると、次のような手順が浮かんできます。
- 区名と町名の対象資料を、Excelシートから配列として読み込む
- Excelシートの実データを配列に読み込む
- 実データと対照資料を、配列をつかって突き合わせる
- 前記手順で得た結果にもとづき、実データ配列を書き直す
- 実データ配列を、実データのExcelシートに書き込む
はい。ここまでで息切れです。続きはそのうち・・・・（ｚｚｚｚｚｚｚｚｚｚ）
追記：
（さ）さまがつくってくださいました。ありがたや・ありがたや。
>> http://suzupara.iinaa.net/t/okayama_kuwari/
