[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『住所を都道府県、市別にしたい』(みどりん)
住所録で大阪府大阪市中央区○○町123-4とある住所録をセルに
A1 大阪府 B1大阪市 C1中央区 D1○○町 E123-4 と表示するようにしたいのですが・・・可能ですか??
条件が明確でないと無理です。
3文字目で区切るとか、府の後で区切るとか、数字になったら区切るとか。
(INA)
A1に 県 を含む文字列が入力されているとき、 県以降の文字をB1に分割させる サンプルです。
Sub Sample() Dim myData As String Dim i As Long
myData = Range("A1").Value
i = InStr(myData, "県")
If i > 0 Then Range("A1").Value = Left(myData, i) Range("B1").Value = Mid(myData, i + 1) End If
End Sub
(INA)
[INA]さん、ここまでできているのなら、Function にしてあげてください。 (kazu)
失礼しました、答えが複数セルですよね。 (kazu)
関数なら [[20030407215436]]『1セル内に入力された住所を3セルに分割する方法』(ひゆ) や [[20030918134505]]『セルに入っている住所を3つに分けたい!』(メッチャ初心者) は、参考になりませんかね? 少し試したのですが、シニアさんじゃないと解明出来ませんでした。 (jun53)
住所が例のように、都道府県、市、区、町の順にKeywordがすべての住所にあれば(不可能でしょう?) A B C D E F 大阪府大阪市中央区○○町123-4 大阪府 大阪市 中央区 ○○町 123-4
B1の式 =IF(MID(A1,4,1)="県",LEFT(A1,4),LEFT(A1,3)) C1の式 =MID(A1,LEN(B1)+1,FIND("市",A1)-LEN(B1)) D1の式 =MID(A1,LEN(B1)+LEN(C1)+1,FIND("区",A1)-LEN(B1)-LEN(C1)) E1の式 =MID(A1,SUMPRODUCT(LEN(B1:D1))+1,FIND("町",A1)-SUMPRODUCT(LEN(B1:D1))) F1の式 =MID(A1,SUMPRODUCT(LEN(B1:E1))+1,100) 単純にMID関数でKeywordを手がかりにして分割した例です。参考になれば、幸いです。(シニア)
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.