[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『セルに入っている住所を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
同様の住所分割例ですが、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.