かなと英数混じりの文字列からかなだけ除去する方法

こんにちは。
エクセルで１０００行くらいのデータがあります。
それぞれのセルには
例）山田さんのabcd1234
のような文字列が入っています。
この文字列から英数文字であるabcd1234のみを残して”山田さんの”という部分だけを削除する方法はありませんでしょうか？

手作業ですと大変時間がかかりますのでなんとか自動化する方法が無いかと模索しています。

No.1 ベストアンサー 回答者： mike_g 回答日時： 2006/06/01 22:14

「英数文字であるabcd1234」についてお尋ねします。

１．右端にある？
２．桁数が決まっている（８桁）？
３．半角小文字の４英字で始まる？

この回答への補足

mike_g様こんばんは
1.英数字は右側にあります
2.桁数が決まっていません
3.半角英数の頭桁数が決まっていません

というバラバラのフォーマットでほとほと困っている次第です・・・
ちなみに　”山田さんの”と、abcd1234の間には半角のスペースが必ず入りますが、これは何かの役に立ちますかね？

補足日時：2006/06/01 22:50

No.2 回答者： baihu 回答日時： 2006/06/01 23:40

＃１の補足を拝見して。

> ちなみに　”山田さんの”と、abcd1234の間には半角のスペースが必ず入りますが、これは何かの役に立ちますかね？

対象列を選択し、[データ]>[区切り位置]でウィザードを出して、区切り文字をスペースに指定します。すると、スペースで複数のセルに分断できます。

同一セルのほかの場所にもスペースがあると、その数だけ分断されてしまうのですが、手作業でやることに問題がない程度の例外なんだったらお勧めします。

内容を変えてしまう操作なので、対象列を全データの右端の列にコピーしてからの方がいいと思います。

No.3 回答者： imogasi 回答日時： 2006/06/02 00:05

A列に文字列があり、Ｂ列に問題のものを出すとして

Sub test01()
d = Range("a65536").End(xlUp).Row
For i = 1 To d
a = Cells(i, "A")
t = ""
For j = 1 To Len(a)
s = Mid(a, j, 1)
If s = StrConv(s, vbWide) Then
Else
t = t & s
End If
Next j
Cells(i, "B") = t
Next i
End Sub
でうまくいくか（満足か）やってみて、更なる注文を書いてください。
Ｂ列は文字列に書式設定して置いてください。

No.4 回答者： mike_g 回答日時： 2006/06/02 00:34

[No.1回答に対する補足]に対するコメント、

その「ちなみに」を最初から言って欲しかった！それが簡単に問題を解決してくれます。

=MID(A1,FIND(" ",A1)+1,99)