エクセルで住所録の数字だけを取り出したいのですが・・・

他人からもらったエクセルのデータを次のようにしたいと思っています。

まず、A列には住所が入っています。
　A1には　○○5条2丁目123番地××マンション1001号
　A2には　●●●8条9丁目45番地コーポ△△201号
　A3には　◎◎67番地3号
　…
　となっています。
　ちなみに○○、●●●、◎◎には～町とは書かれておらず、山川、山川北、山川中央というような町名です。
　
　これをバラバラに他の列にうつしたいのです。つまり、
　B列に　町名(○○、●●●、◎◎…)
　C列に　条(5，8，空欄，…)←ただし、数字のみ
　D列に　丁(2，9，空欄，…)←これも、数字のみ
　E列に　番地(123，45，67，…)←これも、数字のみ
　f列に　その他(アパート名、マンション名など)
　
この書き方でわかってもらえるでしょうか？
このサイトで他の方の質問も調べたのですが、応用が利かせることができなく、うまく分けることができません。
どなたかわかりやすく教えていただける方はいらっしゃいませんか？お願いします。

No.2 ベストアンサー 回答者： nishi6 回答日時： 2004/01/23 00:48

＞このような技を磨くための良い本やサイトなどがあるのでしょうか？

本はあまり買ったことがありませんが、『ＨＥＬＰ』を読むのが一番と思っています。

よくお世話になったのが、
『エクセル技道場』、
http://www2.odn.ne.jp/excel/

『モーグ』などです。
http://www.moug.net/

メールマガジンも有効です。
『なーるほどドットコム』で検索してみて下さい。

以上、参考に書いてみました。がんばって下さい。

この回答へのお礼

返事送れて申し訳ありません。『エクセル技道場』、『モーグ』見て勉強していきたいと思います。ありがとうございました。

お礼日時：2004/01/29 22:34

No.1 回答者： nishi6 回答日時： 2004/01/21 00:56

1行目の算式を書いてみます。

B1=LEFT(A1,MIN(FIND({0,1,2,3,4,5,6,7,8,9},ASC(A1)&1234567890))-1)

C1=IF(FIND("条",ASC(A1)&"条")<LEN(A1),
　　　　　MID(LEFT(A1,MIN(FIND("条",ASC(A1)&"条"))-1),LEN(B1)+1,1000),"")

D1=IF(FIND("丁目",ASC(A1)&"丁目")<LEN(A1),
　　　　　MID(LEFT(A1,MIN(FIND("丁目",ASC(A1)&"丁目"))-1),LEN(B1&C1)+2-(C1="")*1,1000),"")

E1=IF(FIND("番地",ASC(A1)&"番地")<LEN(A1),
　　　　　MID(LEFT(A1,MIN(FIND("番地",ASC(A1)&"番地"))-1),LEN(B1&C1&D1)+4-(C1="")*1-(D1="")*2,1000),"")

F1=MID(A1,LEN(B1&C1&D1&E1)+6-(C1="")*1-(D1="")*2-(E1="")*2,1000)



長い式になったので2行で表現しています。セルに貼り付ける時は1行にして下さい。(フォントサイズ如何では画面では3～4行で見えるかもしれません)

基本的には、『数値』、『条』、『丁目』、『番地』を文字列から探しています。
みつからない場合はエラー処理で長くなるので、検索する文字をその文字の最後に付加して検索しています。
見つかった位置で本当にあったか判定しています。検索手法の『番兵』です。

見つかった位置を元に、LEFT、MID関数で該当文字列を切り取っています。
MID関数で使っている『1000』という値は、切り出す文字長を正確に求めると長くなるので、この値をセットしています。
(C1="")*1、(D1="")*2　などは、その前の条や丁目が見つからなかったときの調整です。

なお、『条』、『丁目』、『番地』が無い、○○マンション1001号　等は対応していません。

この回答へのお礼

ありがとうございました。大変助かりました。と同時に申し訳ありません。こんなに手間をかけていただいて…。
というのも、こんなに複雑な数式になるとは全然思っていなかったものですから。nishi6さんには感謝感謝です。
私のような初心者にはこの関数の意味をとらえるのもままならないのですが、さらにエクセルに興味を持ちました。　もっと勉強していきたいのですが、このような技を磨くための良い本やサイトなどがあるのでしょうか？アドバイス頂けたらうれしいです。
　ああ、こんなふうに、自分のやりたいことを自分の力で解決できる日はいつになることやら…。

お礼日時：2004/01/21 21:56