[[20030918134505]]　『セルに入っている住所を３つに分けたい！』（メッチャ初心者）　ページの最後に飛ぶ

『セルに入っている住所を３つに分けたい！』（メッチャ初心者）

１つのセルに入っている住所を３つのセルに分けたい！。

はじめまして　ただいま住所録と格闘中で頭がパンクしそうですｗ

北海道札幌市白石区北郷4条*-*-*

北海道旭川市豊岡8条7丁目*-*

青森県八戸市大字市川町字南尻引**-*

とういようなものが　１つのセルに入っています。

北海道札幌市白河区　北郷4条*-*-*

北海道旭川市　　豊岡8条7丁目*-*

青森県八戸市　　大字市川町字南尻引**-*

といようにしたいのですが。。。

上記のような形が無理なら　１つのセルには１６文字以内とし　２～のセルに分ける方法を教えてください。

よろしくお願いします！！

（メッチャ初心者です）

 Ａ列が対象範囲で、１６文字で分割します。(INA)

 Sub Sample1()
 Dim myRange As Range

 For Each myRange In Range("A1:A" & Cells(65536, 1).End(xlUp).Row)

    If Len(myRange.Value) >= 17 Then
        myRange.Offset(, 1).Value = Mid(myRange.Value, 17)
        myRange.Value = Left(myRange.Value, 16)
    End If

 Next myRange

 End Sub

[[20030407215436]] 『１セル内に入力された住所を３セルに分割する方法』（ひゆ）

 同様の住所分割例ですが、２分割で区があれば、区で区切り、それ以外は市で区切るでよいのですか？
郡、町村は除外してよいのですか？
A1に住所があり、B1に =IF(ISERR(FIND("区",A1)),LEFT(A1,FIND("市",A1)),LEFT(A1,FIND("区",A1)))
C1に =MID(A1,LEN(B1)+1,30)　
これで、質問の住所例では希望どおり分割できます。 
ただし、特例として 
市の抽出は以下7市が市の文字が2文字あります。 
千葉県八日市場市、市川市、市原市　栃木県今市市　三重県四日市市　滋賀県八日市市　広島県廿日市市 
 (シニア)

コメント返信：

[ 一覧(最新更新順) ]

[[20030918134505]] 『セルに入っている住所を３つに分けたい！』（メッチャ初心者） ページの最後に飛ぶ

[[20030918134505]]　『セルに入っている住所を３つに分けたい！』（メッチャ初心者）　ページの最後に飛ぶ