Excelで文字列の後ろにある1~4桁の数字のみを削除したい。

前回も似たような質問をしたのですが。http://q.hatena.ne.jp/1527309075
今、A列に下記のようなデータが並んでおりまして、各文字列の後ろに、以下のような数字がくっ付いております。

りんご23
ごりら1113
らっぱ242
パルテノン神殿4244


ごりら0221


らっぱ321
パイナップル2333
ルイ14世243



と、後ろに1~4桁の数字がランダム入ってまして。
なんとか関数やマクロで効率的に、これらの数字だけを削除できる方法があればお教えいただけますと助かります。
よろしくお願い致します。

回答の条件
  • 1人20回まで
  • 登録:2018/07/31 17:02:22
  • 終了:2018/07/31 17:51:31

ベストアンサー

id:a-kuma3 No.1

a-kuma3回答回数4749ベストアンサー獲得回数20372018/07/31 17:40:04

ポイント1500pt

こんな感じでどうでしょう。

Sub cut_suffix_number()
    source_col = 1      ' A列
    last_row = Cells(Rows.Count, source_col).End(xlUp).Row
    Set re = CreateObject("VBScript.RegExp")
    re.Pattern = "\d{1,4}$"
    For r = 2 To last_row
        s = Cells(r, source_col).Value
        s = re.Replace(s, "")
        Cells(r, source_col).Value = s
    Next
End Sub

標準モジュールに、上記のコードを貼り付けて、cut_suffix_number サブルーチンを実行してください。
先頭行は、タイトル行だと想定して、2行目から開始します。

id:moon-fondu

ありがとうございます、うまく消えました!
助かりました(^^;

2018/07/31 17:51:08

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません