VBAで住所から都道府県だけを抽出する

Question

前提・実現したいこと

ここに質問の内容を詳しく書いてください。
VBAでセルにある住所から都道府県を別のセルに抽出するシステムを作っています。
機能を実装中に以下のエラーメッセージが発生しました。

例）「A会員」シートの住所が「福岡県京都～」の場合、「B結果」シートに「福岡県」だけを抜き出したいが「福岡県京都」として抽出されてしまいます。※住所はシート「A会員」のF2セルからF10001までの１００００行あります。
どのようにコードを書けば良いでしょうか。

該当のソースコード

Option Explicit

Dim i
Dim a
Dim b
Dim c
Dim d


Sub pref()
    i = 2
    Do While Worksheets(1).Cells(i, 6).Value <> ""
        If InStr(Worksheets(1).Cells(i, 6).Value, "都") > 1 Then
            a = InStr(Worksheets(1).Cells(i, 6).Value, "都")
            Worksheets(2).Cells(i, 1).Value = Left(Worksheets(1).Cells(i, 6).Value, a)
            
        ElseIf InStr(Worksheets(1).Cells(i, 6).Value, "道") > 1 Then
            b = InStr(Worksheets(1).Cells(i, 6).Value, "道")
            Worksheets(2).Cells(i, 1).Value = Left(Worksheets(1).Cells(i, 6).Value, b)
            
        ElseIf InStr(Worksheets(1).Cells(i, 6).Value, "府") > 1 Then
            c = InStr(Worksheets(1).Cells(i, 6).Value, "府")
            Worksheets(2).Cells(i, 1).Value = Left(Worksheets(1).Cells(i, 6).Value, c)
            
        Else
            d = InStr(Worksheets(1).Cells(i, 6).Value, "県")
            Worksheets(2).Cells(i, 1).Value = Left(Worksheets(1).Cells(i, 6).Value, d)
        End If
        i = i + 1
    Loop
End Sub

補足情報（FW/ツールのバージョンなど）

Excel　2016

分かる方、ご教示お願いいたします。

Answer 1

いちばん確実なのは、47都道府県のデータを持っておいて、それとlike "東京都*"のような形でマッチングさせて切り出す、ということになります。

とはいえデータをもたせるのも煩雑なので、都道府県がかならずあるという前提なら、3文字+県になる「和歌山県」「鹿児島県」「神奈川県」だけチェックすれば、あとはleft(str, 3)で3文字切り出すことで抽出できます。

---

元のコードを活かすなら、「InStrの結果を先に取っておいて、結果が3（県だけ3または4）か確認する」という方法で乗り切ることもできます。「東京都府中市」や「京都府京都市」、「宮崎県都城市」など、都道府県を示す以外に都・道・府・県の入った住所で確認しておくといいです（実際、東京都府/中市と切ってしまうバグを食らったこともあります）。

Comments

[退会済みユーザー]

これ、面白い方法ですね。

[maisumakun]

日本の住所はイレギュラーも多いので、都道府県・市町村を切り分けるだけですら一仕事になってしまいます。

https://qiita.com/zakuroishikuro/items/066421bce820e3c73ce9

そして、それ以降は地域によって構造からバラバラなので、本気でやるには極めて面倒です。

http://geodosu.com/ （京都の通り名住所に対応したジオコーディングサイト）←この例のように、各地域ごとの作り込みが必要になります。

[1004]

的確なご教示ありがとうございます。早速試してみます。