自作関数について（VLOOKUP）

質問

質問させて下さい。

１ファイルの中に元データ（住所録）と都道府県マスタ（JISMS）というシートがあります。

住所録シートの列の中に住所データが入っており、その住所のデータと都道府県マスタと合致する場合にVLOOKUPで引き当てたデータを返すという関数がわからず困っています。

都道府県マスタは市区町村（都道府県付、都道府県なしの両方あり）のみで元データの中にある住所を左から１文字ずつ抽出し、マスターと合致するまで検索を続けるようにするものです。（ループは２文字～１６文字の固定です）

EXCELの関数であれば
=vlookup(住所のセル,範囲,3,false)
ですが、住所のセルを引き当てるためにleft関数で１文字ずつ抽出しているのが非常に面倒となっているため、一度にすべてをこなしてしまうVBAを考えています。

ex.
元データ：東京都中央区●●●・・・

１文字目　東→NG
２文字目　東京→NG
・
・
６文字目　東京都中央区→100-0001（検索結果はダミーです）

回答No.2

grumpy_the_dwarf · ベストアンサー

都道府県マスタを文字コード順で並べ替えちゃえば、普通にvlookup
の最後の引数をTRUEにするだけで済んでしまう話ですね。

お礼

そうでしたね。
すみません、助かりました。

回答No.1

hornest

>住所録シートの列の中に住所データが入っており、その住所のデータと都道
>府県マスタと合致する場合にVLOOKUPで引き当てたデータを返すという関数
>がわからず困っています。
意味が解りません。
Vlookupを使いたいと言う事ですか？

というか、Vlookupを使えばワイルドカードも使えて
便利かつ解り易いと思いますが。

補足

下記のような内容です。

（住所録）
A 　　　　　B
あいうえお　　東京都中央区中央１－１－１
かきくけこ　　北海道札幌市中央区中央１－１－１
さしすせそ　　青森県東津軽郡平内町平内１－１－１

（JISMS）
A　　　　　　　　　　B
北海道札幌市中央区 　100-0001
北海道札幌市北区　　 100-0002
北海道札幌市東区　　 100-0003
・
・
八重山郡与那国町　　 999-9999

JISMSには全国の都道府県市町村郡がすべて網羅されたデータが入っており、住所録には普通の住所データが入力されております。住所録データの左から１文字ずつJISMSに入っている情報と合致した時に検索結果が出るという内容です。

引き当てられる文字数は住所によって違いますので、合致するまで検索を続けるというＶＢＡを考えています。

よろしくお願いいたします。