[[20120524002740]]　『文字の抜き出しと集計』（a-su）　ページの最後に飛ぶ

『文字の抜き出しと集計』（a-su）

　1　小平市御幸町から小平市鈴木町
　2　西東京市泉町から西東京市西原町
　3　○○○○町から△△△△△△町

などリストがあります。それぞれ左側に記載している区市町村名だけを抜き出し

　1　小平市
　2　西東京市
　3　○○○○町

という表示が出来ますでしょうか？

 とりあえずUDF

 =GetCityTown(A1,"から")

 Function GetCityTown(ByVal txt As String, ByVal delim As String) As String
    With CreateObject("VBScript.RegExp")
        .Pattern = "(.+市)?(.*町)" & delim & ".*"
        GetCityTown = .Replace(txt, "$1")
        If GetCityTown = "" Then
            GetCityTown = .Replace(txt, "$2")
        End If
    End With
End Function
(seiya)

 B1 =LEFT(A1,MIN(FIND({"市","町"},A1&"市町")))

 (GobGob)

 >  B1 =LEFT(A1,MIN(FIND({"市","町"},A1&"市町")))

 市川市
 四日市市
 今市市
 etc
 (seiya)

 おぉ・・・ 市川市、四日市わすれてたｗ。

 「市川町」 とかはムリだけど。参考に。

 =LEFT(A1,LOOKUP(1,0/((MID(LEFT(A1,FIND("から",A1&"から")-1),ROW($1:$30),1)=IF(COUNTIF(A1,"*市*"),"市","町"))*ROW($1:$30)),ROW($1:$30)))

 (GobGob)

 南あわじ市市市なんてのがあるいみたい。
 (semm)

 >南あわじ市市市なんてのがあるいみたい。

 これはナントカ処理できるけど、町に「市」があるとダメっすw

 (GobGob)

 GobGobさんてすごいな！といつも感動。
なので、これはいちゃもんではなく、この種の文字列検索というか、一般的なコメント。
仮に（あまりに極端だけど）氏の名前が　市市　で　その中の町名が　市市　というのが誕生したとする。
住所を書くと　市市市市市。
処理する上で、どこからどこまでが市の名前で、どこからどこまでが町の名前かは判断できない。

だから、実は、（実際問題は別にして）自動解析をして判断するのは理屈としては不可能。
全国の市町村名テーブルを構えておいて、マッチングさせるというのが唯一の解決法かな。

http://okwave.jp/qa/q5361419.html
これなんかで紹介されている公的な機関からリストを入手して、それにぶつけるというのが
確実ですかね。

 (ぶらっと)

コメント返信：

[ 一覧(最新更新順) ]

[[20120524002740]] 『文字の抜き出しと集計』（a-su） ページの最後に飛ぶ

[[20120524002740]]　『文字の抜き出しと集計』（a-su）　ページの最後に飛ぶ