Excelのセルに数字の文字列が出てきたらスラッシュに置換


現在、C3セルに以下の内容が入っています。
-----------
あいうえ3212おかき名人1番くけこ…
-----------
C4セルには、
-----------
さしすせそた木魚22ちつてとわをんらりる331れろ…
-----------
と。こういったデータが1000行ぐらい(C1000)あるとします。

ここにおきまして、
2桁以上の数字の文字列については、
-----------
あいうえ/おかき名人1番くけこ…
-----------
さしすせそた木魚/ちつてとわをんらりる/れろ…
-----------
のように、"/"(スラッシュ)に置換したいのですが。
何か効率的な方法がありましたらご教授いただきたいです。
よろしくお願い致します。

回答の条件
  • 1人20回まで
  • 登録:2018/09/26 20:32:46
  • 終了:2018/09/27 19:49:25

ベストアンサー

id:a-kuma3 No.1

a-kuma3回答回数4739ベストアンサー獲得回数20322018/09/26 23:08:50

ポイント1200pt

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

Sub replace_number()
    col = 3     ' C列
    max_col = 1000
    Set re = CreateObject("VBScript.RegExp")
    re.Pattern = "\d{2,}"
    re.Global = True
    For r = 3 To max_col
        Set cell = Cells(r, col)
        If re.test(cell.Value) Then
            cell.Value = re.Replace(cell.Value, "/")
        End If
    Next
End Sub

標準モジュールに、上記のコードを貼り付けて、replace_number サブルーチンを実行してください。

id:moon-fondu

ありがとうございます!うまくいきました(^^;

2018/09/27 19:47:26

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

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

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

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

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