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を削除したいのです。

最後のスペースから右を削除、もしくは最後のスペースから左を抽出、等の検索用語で検索してみましたが、見つかりません。

どうぞよろしくお願いいたします。

回答No.1

keithin · ベストアンサー

Ｂ列には間違いなく半角で記入してあるとします。
標準モジュールに次のマクロを記入し、実行します

sub macro1()
　dim h as range
　on error resume next
　for each h in range("B1:B" & range("B65536").end(xlup).row)
　　h = left(h, instrrev(h, " ") - 1)
　next
end sub

＃ご利用のエクセルのバージョンが不明のご相談ですが、エクセル９７以前を使っているときはこのマクロは使えません。

お礼

ありがとうございました。
Excelのバージョンは2007です。
一発でできました。

マクロ、もっと勉強したいです。

回答No.2

nda23

抽出したい文字列のパターンを
箇条書きにするようにしましょう。

(1)最後の空白から後方の文字
(2)数字で始まる空白でない文字が
　終端まで続く

よってパターンは以下のようになります。

\s+\d\S*$

(1)\s+
　空白(\s:タブ等を含む)が1個以上(+)連続
(2)\d
　数字(\d)　個数を指定しないので1文字
(3)\S*$
　空白でない文字(\S)が0個以上(*)続いて、
　文字列の終端($)に至る

尚、後方の非空白だけなら"\S*$"です。
これを除去してTrimすれば同じ結果に
なります。

http://msdn.microsoft.com/ja-jp/library/cc392020.aspx

お礼

ありがとうございました。
なるほど、箇条書きにして整理すればいいのですね。
正規表現の構文、役にたちそうです。