[[20040304105654]] 『住所を都道府県、市別にしたい』(みどりん) >>BOT

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

 

『住所を都道府県、市別にしたい』(みどりん)

住所録で大阪府大阪市中央区○○町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.