Excel(英文）で最後の文字列のみを削除する方法
エクセルで用語集を作成しています。
Aの列には日本語（全角）、Bの列には英語（半角）を入力します。
各用語には、部品番号が付いており、その部品番号を削除する方法を教えていただけますでしょうか。
今までは手作業ですべて削除しておりましたが、用語数が多いので、一度にできればと思います。
ちなみに、Aの日本語の場合、
マクロで
Alt+F11 → 挿入 → 標準モジュール を選択して下のコードをコピペ。
戻って範囲を選択し、Alt+F8 または 右向きの▼をクリックし、英数削除
Sub 英数削除()
Dim c As Range
With CreateObject("vbscript.regexp")
.Pattern = "[\w０-９Ａ-ｚ]+"
.Global = True
For Each c In Selection
If .test(c) Then
c = Trim(.Replace(c, ""))
End If
Next c
End With
End Sub
という方法でできることまではわかりました。
問題は、Bの英文の半角英数字です。
ratchet 7
inner tooth 7a
projecting portion 7b
outer peripheral ring 8
などのように、ワード数は様々で、また、a,bなどの符合が付いている場合もあります。
このいちばん右の、7、7a, 7b, 8を削除したいのです。
最後のスペースから右を削除、もしくは最後のスペースから左を抽出、等の検索用語で検索してみましたが、見つかりません。
どうぞよろしくお願いいたします。
