VBA：文字列の正規表現（２）指定した範囲の数字、文字を全て変換・削除。「RegExp」の「Replace」利用

by chasou_tech · 公開済み 2023年2月9日 · 更新済み 2023年2月18日

文字列の途中の特定の記号を削除したい

入力された文字列から全角のアルファベットを変換したい

　VBAの処理でユーザが入力した値から特定の値を変換したい、全角と半角を変換したいなどが出てくると思います。その場合「Replace」を使うことで、以下のように変換や削除ができます。
　※このオブジェクトを利用するには事前の準備が必要です。設定されていない可能性もあるので、ページの一番下の関連記事にある「事前準備（参照設定の設定）」を事前に確認してください。

１．数字を変換・削除する方法

　以下を実行すると、半角数字(0-9)を削除した値がメッセージボックスに表示されます。
　これは基本的なものですが、応用することで様々な場面で使えると思います。

'文字列の中にある数字を変換する場合'
Sub 動作チェック1()
    Dim re As New RegExp

    re.pattern = "\d" '「\d」は半角数字(0-9)。[0-9]と同じ'
    re.Global = True
    
    '0-9を「#」に変換し、それ以外はそのまま表示'
    MsgBox re.Replace("abc123あいう4567ABC890", "#") '「#」を消すと、削除になります。'
    '→「abc###あいう####ABC###」と表示されます'
End Sub

'文字列の中にある数字を変換する場合'

Sub 動作チェック1()

Dim re As New RegExp

re.pattern = "\d" '「\d」は半角数字(0-9)。[0-9]と同じ'

re.Global = True

'0-9を「#」に変換し、それ以外はそのまま表示'

MsgBox re.Replace("abc123あいう4567ABC890", "#") '「#」を消すと、削除になります。'

'→「abc###あいう####ABC###」と表示されます'

End Sub

２．全角半角アルファベットを変換・削除する方法

　以下を実行すると、文字列の中にある全角半角のアルファベットを変換した値がメッセージボックスに表示されます。

'文字列の中にある全角半角のアルファベットだけを変換する場合'
Sub 動作チェック2()
    Dim re As New RegExp

    re.pattern = "[A-ZＡ-Ｚ]" '全角半角のアルファベット'
    re.Global = True
    
    '全角半角のアルファベットを「#」に変換し、それ以外はそのまま表示'
    MsgBox re.Replace("abc123あいう4567ABC890ＤＥＦ１２３", "#")
    '→「abc123あいう4567###890###１２３」と表示されます'
End Sub

'文字列の中にある全角半角のアルファベットだけを変換する場合'

Sub 動作チェック2()

Dim re As New RegExp

re.pattern = "[A-ZＡ-Ｚ]" '全角半角のアルファベット'

re.Global = True

'全角半角のアルファベットを「#」に変換し、それ以外はそのまま表示'

MsgBox re.Replace("abc123あいう4567ABC890ＤＥＦ１２３", "#")

'→「abc123あいう4567###890###１２３」と表示されます'

End Sub

VBA：文字列の正規表現（２）指定した範囲の数字、文字を全て変換・削除。「RegExp」の「Replace」利用

１．数字を変換・削除する方法

２．全角半角アルファベットを変換・削除する方法

◆関連記事

VBA：文字列の正規表現「RegExpオブジェクト」利用の事前準備

VBA：半角数値かどうか判定する方法（RegExpオブジェクト）

VBA：文字列の正規表現（３）指定した位置の数字、文字を変換・削除。「RegExp」の「Replace」利用