エクセルのセルデータを分解する？

質問

こんばんは。
エクセル2002を使用しています。
住所録を作成していたのですが、ひとつのセルにすべての住所を入力してしまいました。
たとえば「東京都千代田区1-1-1」と入力しました。
この住所を、「東京都千代田区」と「1-1-1」と振り分ける簡単な方法を調べているのですが・・・
ちょっと先に進めないの状態です。
よろしかったら助けていただきたいのです。
よろしくお願いいたします。

回答No.4

imogasi · ベストアンサー

#3です。配列数式による回答を１つ。
＃２の配列数式のご回答が、私のやり方が悪いのかも知れないが、上手く出来なかったので
どの列でも良いがＥ１：Ｅ９に全角で１，２，３，４，５，６，７，８，９と入れる。０１町目、０１番地、の０１は無いと思って０は省いた。
Ａ列に住所が入っているとして
Ｆ列（どの列でも良い）に
=MIN(IF(ISERROR(FIND($E$1:$E$9,A1)),100,FIND($E$1:$E$9,A1)))
といれ、ＳｈｉｆｔキーとＣｔｒｌキーを押しつつＥｎｔｅｒキーを押す（配列数式）
（データと結果）
千代田区３－１　　　　　　　　　５
山田２－１　　　　　　　　　　　３
久留米市梅田町５－１１　　　　　８
山中市上田町北端３－９－１　　　９
山中市上田町北５－６－２　　　　８
北２－５　　　　　　　　　　　　２
この数字を基に前半と後半に分けるのは
Ｇ１に=LEFT(A1,F1-1)をいれてＧ２以下に複写する。
Ｈ１に=RIGHT(A1,LEN(A1)-F1+1)といれ、Ｈ２以下に複写する。

お礼

色々とお手数をお掛けいたしました。
本当にありがとうございました。

補足

ほかでも色々と調べまして、先程以下の関数を見つけました。
失礼とは存じますがここに掲載させていただきます。

セル「A1」に住所が入っているとして、
セル「B1」に
=LEFT(A1,MIN(FIND({0,1,2,3,4,5,6,7,8,9},ASC(A1)&1234567890))-1)
セル「C1」に
=RIGHT(A1,LEN(A1)-LEN(B1))
または
=RIGHT(A1,LEN(A1)-MIN(FIND({0,1,2,3,4,5,6,7,8,9},ASC(A1)&1234567890)-1))

回答No.3

imogasi

初めて全角数字が表れる位置を返す、ユーザー関数を作ります。（丁目が半角数字の例になってますが、全角の方が
ベターと考えた）
ツール－マクロ－ＶＢＥ－挿入－標準モジュールで出てくる画面に
Function fndp(a)
f = Len(a)
b = "１２３４５６７８９" '丁目が半角なら半角に変える
For i = 1 To 9
c = Mid(b, i, 1)
p = InStr(a, c)
If p <> 0 Then
If p < f Then
f = p
End If
End If
Next i
fndp = f
End Function
を貼りつける。
そしてＡ列以外に=LEFT(A1,fndp(A1)-1)で漢字部分、
丁目部分は=RIGHT(A1,LEN(A1)-fndp(A1)+1)

お礼

御礼が遅くなりました。
マクロですか・・・
チョッと自信がないのですが試してみます。
ありがとうございます。

回答No.2

edomin

A1に住所が、E1:E9に１～９までの数字が入っているとして、
左側
=LEFT(A1,FIND(E1:E9,ASC(A1),1)-1)
右側
=RIGHT(A1,LEN(A1)-FIND(E1:E9,ASC(A1),1)+1)
と入力し、「Ctrl」＋「Shift」＋「Enter」で確定します。
これで、数字で始まっているところとそれ以前を分離できます。

お礼

御礼が遅くなって申し訳ございません。
今試していたところです。
なんとなく先にすすめそうです。頑張ってみます。
ありがとうございます。

回答No.1

noname#8445

区内であれば

A列データ,B列所在地,C列番号として

B列に
　　=left(A2,find("区",a2))

C列に
　　=right(a2,len(a2)-len(b2))

でいけます

お礼

お礼の返事遅くなりました。
セルのデータを右と左で振り分けるわけですね。
やってみます。
ありがとうございました。