[[20030918134505]] 『セルに入っている住所を3つに分けたい!』(メッチャ初心者) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『セルに入っている住所を3つに分けたい!』(メッチャ初心者)

1つのセルに入っている住所を3つのセルに分けたい!。

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

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

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

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

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

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

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

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

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

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

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

(メッチャ初心者です)


 A列が対象範囲で、16文字で分割します。(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]] 『1セル内に入力された住所を3セルに分割する方法』(ひゆ)
 同様の住所分割例ですが、2分割で区があれば、区で区切り、それ以外は市で区切るでよいのですか?
郡、町村は除外してよいのですか?
A1に住所があり、B1に =IF(ISERR(FIND("区",A1)),LEFT(A1,FIND("市",A1)),LEFT(A1,FIND("区",A1)))
C1に =MID(A1,LEN(B1)+1,30) 
これで、質問の住所例では希望どおり分割できます。 
ただし、特例として 
市の抽出は以下7市が市の文字が2文字あります。 
千葉県八日市場市、市川市、市原市 栃木県今市市 三重県四日市市 滋賀県八日市市 広島県廿日市市 
 (シニア)

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.