全角文字と半角数字を分けるには？

ひとつのセル内に、全角文字と半角数字が混ざっているシート(簡単な住所録）があります。
最終的には文字のみ残したいのですがどういう方法がありますか?

たくさんあるデータの中で文字数がばらばらで、頭から何文字目を削除、等の手は使えません。

たぶん検索や置き換えで、半角数字を拾い出せると楽だと思うのですが、どうしたらいいかわからないので・・・宜しくお願いします。

No.4 ベストアンサー 回答者： nishi6 回答日時： 2002/12/01 15:42

最初にでてくる半角数値に着目していいなら、A1に元の住所があるとして、B1に

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

とします。
●○区××町2-3-4　→　●○区××町　となります。


全角数値も対応するなら、

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

とすれば

●○区××町２－３－４　→　●○区××町になるでしょう。

この回答へのお礼

すんなり解決です。

大変助かります。ありがとうございました。(((((*^o^*)♪

お礼日時：2002/12/01 16:30

No.3 回答者： imogasi 回答日時： 2002/12/01 14:30

余分な２列を確保して（Ｂ列Ｃ列と仮にします）、

（１）Ｂ１セルに=SUBSTITUTE(A1,"1","")と入れる。
Ａ列データの最下行まで複写する。
Ｂ列の値複写をＢ列に行う。
（２）次にＣ１セルに=SUBSTITUTE(B1,"2","")と入れる。
Ａ列データの最下行まで複写する。
Ｃ列の値複写をＣ列に行う。
（３）次はＢ１セルに=SUBSTITUTE(C1,"3","")と入れる。
Ａ列データの最下行まで複写する。
Ｂ列の値複写をＢ列に行う。
（４）以下０、－まで１１回交互のセルで行う。
－－－－－－－－－－－－
上記は面倒くさい。ＶＢＡでやれば一発。
Sub Macro1()
a = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "-", "")
b = Array("０", "１", "２", "３", "４", "５", "６", "７", "８", "９", "－")
Worksheets("sheet1").Range("a1:a10").Select
For i = 0 To 10
Selection.Replace What:=a(i), Replacement:=b(i), LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Next i
End Sub
（留意点）
（１）Range("a1:a10").のa1:a10は住所の入っている列の最下行まで指定するよう変えること。
（１）上記は1-->１，2-->２・・・のようにしているが、消してしまいたいなら、上記Replacement:=b(i)の部分をReplacement:="",とすれば良い。
（２）元へ戻すが効かないので、原シートをコピーしたシートなりを作ってテストすること。

この回答へのお礼

とりあえず、前者の方の回答で解決できてしまいました。

いろいろありがとうございました。

お礼日時：2002/12/01 16:33

No.2 回答者： taknt 回答日時： 2002/12/01 12:51

JIS(文字列) とやれば 全角に変換されます。

もう一列 隣に 挿入して =JIS(A1) とか 入れてあげればいいでしょう。

この回答への補足

半角と全角の変換ではなく、今半角で記入されている数字のみを削除したいのですが、それがひとつのセルに全角文字と混在しているので困っております。

●○区××町2-3-4　→　●○区××町
としたい。

説明不足だったようでスミマセン。

補足日時：2002/12/01 12:54

No.1 回答者： raytaro 回答日時： 2002/12/01 12:50

何をしたいのかよく見当がつきませんが、

次の関数を使うと良いかと思います

関数＞文字列操作
　ＡＳＣ（アスキー）全角を半角に
　ＪＩＳ（ジス）半角を全角に

では。

この回答への補足

半角と全角の変換ではなく、今半角で記入されている数字のみを削除したいのですが、それがひとつのセルに全角文字と混在しているので困っております。

●○区××町2-3-4　→　●○区××町
としたい。

説明不足だったようでスミマセン。

補足日時：2002/12/01 13:00