前回も似たような質問をしたのですが。http://q.hatena.ne.jp/1527309075
今、A列に下記のようなデータが並んでおりまして、各文字列の後ろに、以下のような数字がくっ付いております。
りんご23
ごりら1113
らっぱ242
パルテノン神殿4244
・
ごりら0221
・
・
らっぱ321
パイナップル2333
ルイ14世243
・
・
と、後ろに1~4桁の数字がランダム入ってまして。
なんとか関数やマクロで効率的に、これらの数字だけを削除できる方法があればお教えいただけますと助かります。
よろしくお願い致します。
こんな感じでどうでしょう。
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行目から開始します。