エクセルで全角と半角を分離する方法って？

エクセル2000で、住所の管理をしているのですが、全角文字と半角文字（丁目、番地等）を分離したいのですが簡単な方法はあるのでしょうか。
例
セルＡ１
東京都千代田区千代田1-1-1

これを全角と半角で分離して
セルＡ１
東京都千代田区千代田
セルＢ１
1-1-1
というように、１行に並ぶとうれしいのですが
（質問時の見た目は縦に並んでいますが、横に並ばせたい）

No.2 ベストアンサー 回答者： akki- 回答日時： 2001/04/25 12:18

Ｂ１のセルに次の関数を入れてください。

　　　=LEFT(A1,-(LENB(A1)-LENB(JIS(A1)))*2)
Ｃ１のセルに次の関数を入れてください。
　　　=RIGHT(A1,LENB(JIS(A1))-LENB(A1))

これで、Ａ１セルの内容が全角と半角に分かれます。
あとは、別のシートにでも「値のみ」で貼り付けましょう。

この回答へのお礼

簡単に分けることができました。ありがとうございます。みなさん、関数の研究をいつもされているのですか？

お礼日時：2001/04/25 21:24

No.4 回答者： kbonb 回答日時： 2001/04/25 21:00

こんにちは

　私のサイトの以下のページがご参考になるのでは？

【エクセル技道場】－関数－数字で始まる部分から区分
http://www2.odn.ne.jp/excel/waza/function.html#S …

No.3 回答者： akki- 回答日時： 2001/04/25 12:30

すいません。

Ｂ１セルには以下の関数に変更して下さい。
　　=LEFT(A1,(LENB(A1)-LEN(C1))/2)

先ほどの関数ではうまくいかないことを、自分でみつけました。
セルへの入力も簡単にもなります。
すみません。

No.1 回答者： bin-chan 回答日時： 2001/04/25 09:49

シート関数のみで行う場合を示しますが、セルＡ１・セルＢ１には入りません。

後から編集してくださいね。

１．　セルＢ１に"=len(A1)" ←全角半角お構いなしの文字数
　　　セルＣ１に"=lenb(A1)"　　←バイト数
　　　で
　　　セルＤ１に"=left(A1,C1-B1)"
　　　セルＥ１に"=right(A1,B1*2-C1)"
　　　を入力。

２．　セルＢ１：セルＥ１を範囲指定して右下角の黒ぽちをダブルクリック。
３．　列Ｄ：列Ｅを選択して右クリックで「コピー」
４．　セルＤ１を選択して右クリックで[形式を選択してコピー]-[値]でペースト。
５．　列Ａ：列Ｃを削除。

いかがでしょうか？

この回答へのお礼

上手に分離できました。ありがとうございました。

お礼日時：2001/04/25 21:22