今日は住所について文字列分割していきます。また例のごとくパートのおねえさんからの要望です。
通常、文字列分割は特定の文字で区切るのが多いですが、住所の場合は区切る位置が都道府県から始まり、市区町村があるのでエクセルの区切り位置の機能は使えません。
また、文字数が同じであれば、right関数やmid関数、left関数でも片づけられそうですが、文字数もバラバラなのでこれも不可。ということでVBAでちゃちゃっとやることにしました。
Sub 住所分割()
Dim ws As Worksheet
Set ws = ActiveSheet
Dim lastRow As Long
lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
' ▼ 政令指定都市リスト（必要に応じて追加/削除）
' ここに含まれている都市は「市＋区」を市区欄にまとめて格納
Dim seiReiCities As Variant
seiReiCities = Array( _
"札幌市", "仙台市", "さいたま市", "千葉市", "川崎市", "横浜市", _
"新潟市", "静岡市", "浜松市", "名古屋市", "京都市", "大阪市", _
"堺市", "神戸市", "岡山市", "広島市", "北九州市", "福岡市", "熊本市" _
)
Dim i As Long
For i = 2 To lastRow ' 2行目から最終行まで処理
Dim address As String
address = ws.Cells(i, 1).Value
Dim ken As String, shi As String, machi As String
Dim kenEnd As Long, shiEnd As Long
'========================================
'【1】都道府県の取得
'========================================
If Left(address, 3) = "北海道" Then
' 北海道は3文字
ken = "北海道"
kenEnd = 3
ElseIf Left(address, 3) = "京都府" Then
ken = "京都府"
kenEnd = 3
ElseIf Left(address, 3) = "大阪府" Then
ken = "大阪府"
kenEnd = 3
Else
' 「都」「道」「府」「県」のいずれかを検索
kenEnd = InStr(address, "都")
If kenEnd = 0 Then kenEnd = InStr(address, "道")
If kenEnd = 0 Then kenEnd = InStr(address, "府")
If kenEnd = 0 Then kenEnd = InStr(address, "県")
If kenEnd > 0 Then
ken = Left(address, kenEnd)
End If
End If
'========================================
'【2】市区の取得
'========================================
' --- 2-1. 東京の場合（東京23区を「市区」欄に） ---
If ken = "東京都" Then
' 「区」を探す（例: 新宿区、中央区 など）
shiEnd = InStr(kenEnd + 1, address, "区")
If shiEnd > 0 Then
' 例: 「東京都新宿区◯◯」の場合
' kenEnd=3, shiEnd=6 （それぞれ「都」「区」の位置）
' → Mid(...,4,6-4+1)=「新宿区」
shi = Mid(address, kenEnd + 1, shiEnd - (kenEnd + 1) + 1)
End If
' --- 2-2. その他の都道府県の場合 ---
Else
' まず政令指定都市かどうかを確認
Dim city As Variant
Dim cityPos As Long, wardPos As Long
Dim foundCity As Boolean
foundCity = False
For Each city In seiReiCities
' 例: 「福岡市」「札幌市」「横浜市」など
cityPos = InStr(kenEnd + 1, address, city)
If cityPos > 0 Then
' 政令指定都市を見つけたら、そのあとに「区」があるか探す
wardPos = InStr(cityPos + Len(city) - 1, address, "区")
' 例: 「福岡市博多区」の場合
' cityPos=「福岡市」の先頭位置、そこからさらに「区」を検索
If wardPos > 0 Then
' 「市＋区」全体を市区欄にまとめる
shi = Mid(address, kenEnd + 1, wardPos - (kenEnd + 1) + 1)
shiEnd = wardPos
Else
' 「区」が見つからない場合は「市」までで市区欄とする
Dim cityEnd As Long
cityEnd = cityPos + Len(city) - 1
shi = Mid(address, kenEnd + 1, cityEnd - (kenEnd + 1) + 1)
shiEnd = cityEnd
End If
foundCity = True
Exit For
End If
Next city
If Not foundCity Then
' 通常の市・区・町・村を探す（政令指定都市以外の場合）
shiEnd = InStr(kenEnd + 1, address, "市")
If shiEnd = 0 Then shiEnd = InStr(kenEnd + 1, address, "区")
If shiEnd = 0 Then shiEnd = InStr(kenEnd + 1, address, "町")
If shiEnd = 0 Then shiEnd = InStr(kenEnd + 1, address, "村")
If shiEnd > 0 Then
shi = Mid(address, kenEnd + 1, shiEnd - (kenEnd + 1) + 1)
End If
End If
End If
'========================================
'【3】町域の取得
'========================================
If shiEnd > 0 Then
' shiEnd の次から最後までを町域とする
machi = Mid(address, shiEnd + 1)
Else
' shiEnd が0 (「市区」を見つけられなかった) 場合は
' 都道府県の次から最後までを町域とする
machi = Mid(address, kenEnd + 1)
End If
'========================================
'【4】結果を出力
'========================================
ws.Cells(i, 2).Value = ken ' B列: 都道府県
ws.Cells(i, 3).Value = shi ' C列: 市区
ws.Cells(i, 4).Value = machi ' D列: 町域
Next i
End Sub
実行するとこんな感じです。
これで長さのまちまちな住所もワンクリックで分割できます。
ただ、ひとつ問題があって、下の４行
石川県野々市市
三重県四日市市
広島県廿日市市
佐賀県大町町
この４市町は市と町が２文字続いているためうまく区切れていません。本来なら
石川県｜野々市市
三重県｜四日市市
広島県｜廿日市市
佐賀県｜大町町 となるはずが、
石川県｜野々市｜市
三重県｜四日市｜市
広島県｜廿日市｜市
佐賀県｜大町｜町 となってしまっています。
この住所が出てくることはほとんどないので今回はこの不具合はスルーします。もし万が一この市町が出てきた場合は手計算とします。
