Excel 住所分け

質問

A1
大阪府泉南市信達童子畑20
埼玉県吉川市中野338
東京都足立区鹿浜6-26-10

B１　　　　　　　　C1　　　　　　D1　
大阪府　　　　　　　泉南市　　　　信達童子畑20
埼玉県　　　　　　　吉川市　　　　中野338
東京都　　　　　　　足立区　　　　鹿浜6-26-10

都道府県／市区郡／町名・番地
と三つに分けたいです。
どうやったらできますか。

回答No.3

ushi2015 · ベストアンサー

こんにちは
1列余分になっちゃいますけど、Ｅ列を作業列としてます。

セルＢ1に
=IF(MID(A1,4,1)="県",LEFT(A1,4),LEFT(A1,3))
セルＥ1に
=MID(A1,LEN(B1)+1,150)
セルＣ1に
=IF(ISERROR(FIND("大和郡山市",E1))=FALSE,"大和郡山市",IF(ISERROR(FIND("四日市市",E1))=FALSE,"四日市市",IF(ISERROR(FIND("廿日市市",E1))=FALSE,"廿日市市",IF(ISERROR(FIND("郡山市",E1))=FALSE,"郡山市",IF(ISERROR(FIND("市原市",E1))=FALSE,"市原市",IF(ISERROR(FIND("郡上市",E1))=FALSE,"郡上市",IF(ISERROR(FIND("蒲郡市",E1))=FALSE,"蒲郡市",IF(ISERROR(FIND("小郡市",E1))=FALSE,"小郡市",IF(ISERROR(FIND("市川市",E1))=FALSE,"市川市",IF(ISERROR(FIND("郡",E1))=FALSE,LEFT(E1,FIND("郡",E1)),IF(ISERROR(FIND("市",E1))=FALSE,LEFT(E1,FIND("市",E1)),IF(ISERROR(FIND("区",E1))=FALSE,LEFT(E1,FIND("区",E1)),IF(ISERROR(FIND("町",E1))=FALSE,LEFT(E1,FIND("町",E1)),IF(ISERROR(FIND("村",E1))=FALSE,LEFT(E1,FIND("村",E1)),""))))))))))))))
セルＤ1に
=SUBSTITUTE(SUBSTITUTE(A1,B1,"",1),C1,"",1)

合併とか市町村名変更とかあるとメンテが大変かと思います。

お礼

ありがとうございます。

回答No.2

m_and_dmp

mid find を使う方法とか、いろいろな方法があると思いますが、次の方法は応用が効くので試してください。
・データの範囲を選択して、置換ウイザードを起動します。
・置換前の文字列に「府」置換後の文字列に「府,」
・置換が完了したら、
　置換前の文字列に「県」置換後の文字列に「府,」
・置換が完了したら、
　置換前の文字列に「都」置換後の文字列に「府,」
・置換が完了したら、
　置換前の文字列に「市」置換後の文字列に「市,」
・置換が完了したら、
　置換前の文字列に「区」置換後の文字列に「区,」
置換はこれで終わりです。
府、県、都、市、区　の後ろに「,」（半角のカンマ）がつきました。

つぎに、データタブの「区切位置」で、
カンマやタブなどの区切文字によって区切ります。

うまく区切れない時は区切文字を変えてみてください。

政令指定都市では、つぎのようになりますが、問題がありますか？
架空の住所です。
埼玉県さいたま市中央区吉川町中野３３８
カンマを挿入後、
埼玉県,さいたま市,中央区,吉川町,中野３３８
カンマで区切った後、
埼玉県　さいたま市　中央区　吉川町　中野３３８

お礼

ありがとうございます。

回答No.1

kagakusuki

「余市郡」、「高市郡」、「蒲郡市」、「大和郡山市」、「小郡市」、「四日市市」、「廿日市市」、「山県市」などの様に、市区郡名や町村名の途中に「県」、「都」、「道」、「府」、「県」、「市」、「郡」等の文字が入っているものがありますので、「使われている『県』や『市』などの文字が先頭から数えて何番目の所にあるのか」という事だけで、分ける位置を求める事は出来ません。
　ですから、どこか別のセル範囲に全国の都道府県名と市区郡名のリストを作成しておいて、元データとなる文字列がそのリストの中のどれと合致するのかという事を基準にした分け方をしなければならないと思います。

お礼

ありがとうございます。