ｴｸｾﾙの関数に関してです｡住所を市町村で分けたいと思います｡仕様は下記の通りです｡都道府県名は既に削除されている状態です｡｢区｣がある場合は｢区｣まで｢…

ｴｸｾﾙの関数に関してです｡
住所を市町村で分けたいと思います｡
仕様は下記の通りです｡
都道府県名は既に削除されている状態です｡

｢区｣がある場合は｢区｣まで
｢市｣がある場合は｢市｣まで
｢郡｣はある場合は｢町｣か｢村｣まで

｢市原市｣のようなｲﾚｷﾞｭﾗｰ案件は無視し
上記の仕様の関数を作って頂けますでしょうか｡

お忙しい所､恐縮です｡
よろしく､お願いいたします｡

もしかしたら一括処理や､標準関数をご希望だったかもしれませんが､
ﾕｰｻﾞ定義関数ということでVBAの例です｡

下記を標準ﾓｼﾞｭｰﾙに置き､A1 に処理ﾃﾞｰﾀがあるとした
B1 =SplitAddress($A1,1)
C1 =SplitAddress($A1,2)
として､どうでしょうか｡

Option Explicit

Function SplitAddress(adr, pos)
 SplitAddress = ""
 Dim sPos As Long
 
 sPos = InStr(adr, "区")
 If sPos > 0 Then
 If pos = 1 Then SplitAddress = Left(adr, sPos)
 If pos = 2 Then SplitAddress = Mid(adr, sPos + 1)
 Exit Function
 End If
 
 sPos = InStr(2, adr, "市")
 If sPos > 0 Then
 If pos = 1 Then SplitAddress = Left(adr, sPos)
 If pos = 2 Then SplitAddress = Mid(adr, sPos + 1)
 Exit Function
 End If
 
 sPos = InStr(2, adr, "郡")
 If sPos > 0 Then
 sPos = InStr(sPos + 1, adr, "町")
 If sPos > 0 Then
 If pos = 1 Then SplitAddress = Left(adr, sPos)
 If pos = 2 Then SplitAddress = Mid(adr, sPos + 1)
 Exit Function
 End If
 
 sPos = InStr(sPos + 1, adr, "村")
 If sPos > 0 Then
 If pos = 1 Then SplitAddress = Left(adr, sPos)
 If pos = 2 Then SplitAddress = Mid(adr, sPos + 1)
 Exit Function
 End If
 End If
 
 If pos = 1 Then SplitAddress = adr
End Function