エクセルで、一括削除について。

質問

エクセルでの質問です。
製品修理番号が約３万件程、入っておりましてその中のある番号のものだけ削除したいのですが、どの様にして削除して良いのか御助言を頂ければと思います。
Ａ列～Ｃ列までそれぞれに１万件づつデーターが入っております。
製品修理番号の末尾が数字のものだけ削除したいのです。
例：AB-001-cdf-ad5この様になっております。末尾の数字は０～９までです。
１件づつ確認して削除していくのも大変時間がかかってしまいますので出来れば一括で削除したいのですが何かしら方法があるのでしょうか？御手数をお掛け致しますがどちら様か御助言くだされば幸いです。宜しくお願い致します。ちなみにエクセルは、２００７を使用しております。

回答No.1

mcsp

こんにちは。

　削除というのはセル内を空白状態にするだけでよろしいのでしょうか？
ざっくりですがこんなのではどうでしょうか？実行する前に必ず
ファイルは保存しておいて下さい。

Sub ClearData()

　　Dim myRg As Range
　　Dim wkRg As Range
　　Dim wkStr As String

　　Worksheets(1).Select　　　　　'とりあえず一番左にあるシートを指定
　　Set myRg = Range("A2:C10001")　'セルの範囲を指定
　　For Each wkRg In myRg
　　　　wkStr = Right(wkRg.Value, 1)
　　　　If IsNumeric(wkStr) = True Then
　　　　　　wkRg.ClearContents
　　　　End If
　　Next

　　Set myRg = Nothing

End Sub

お礼

ありがとうございます。
実は、セル自体を削除したいのです。説明不足で申し訳ございませんでした。でもとても参考になります。似たような事、がありますので
実行してみます。御手数をお掛け致しまして恐縮です。