[[20190619161604]]　『住所の分割について』（みゆ）　ページの最後に飛ぶ

『住所の分割について』（みゆ）

住所の2分割方法を教えてください。（番地までと、建物・号室）

A1　奈良市あやめ池北5丁目18-25ソレージュ205
B1　奈良市あやめ池北5丁目18-25
C1　ソレージュ205

番地表示は、5丁目18-25もしくわ5-8-25というデータもあります。

過去ログ見ましたが、3分割等はあるのですが
番地以降の分ける数式がわかりませんでした<(_ _)>

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

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

Sub main()

    Dim juusho As String, i As Integer, j As Integer
    juusho = Range("A1").Value
    For i = 1 To Len(juusho)
        If Val(Mid(juusho, i, 1)) > 0 And Val(Mid(juusho, i + 1, 1)) = 0 Then
            j = j + 1
            If j = 3 Then Range("B1").Value = Left(juusho, i): Range("C1").Value = Mid(juusho, i + 1): Exit Sub
        End If
    Next i
End Sub
（mm） 2019/06/19(水) 16:44

コメント返信：

[ 一覧(最新更新順) ]

[[20190619161604]] 『住所の分割について』（みゆ） ページの最後に飛ぶ

[[20190619161604]]　『住所の分割について』（みゆ）　ページの最後に飛ぶ