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

質問

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

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

回答No.1

noname#204879 · ベストアンサー

「英数文字であるabcd1234」についてお尋ねします。
１．右端にある？
２．桁数が決まっている（８桁）？
３．半角小文字の４英字で始まる？

補足

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

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

回答No.4

noname#204879

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

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

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

回答No.3

imogasi

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.2

baihu

＃１の補足を拝見して。

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

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

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

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