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

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

文字列の先頭や末尾を特定の値に変換したい

入力された単語の間に特定の記号を入れたい

　「Replace」を使うことで、文字列の先頭のみ変換したり、単語の前後に値を挿入したりすることができます。
　※このオブジェクトを利用するには事前の準備が必要です。設定されていない可能性もあるので、ページの一番下の関連記事にある「事前準備（参照設定の設定）」を事前に確認してください。

３．先頭の文字を変換。「^」(カレット)を付ける

　以下を実行すると、先頭の文字が一致した場合、値が変換されメッセージボックスに表示されます。

'先頭の文字を変換'
Sub 動作チェック()
    Dim re As New RegExp

    re.pattern = "^a" '「^」を付けると文字列の先頭のみ一致するかどうか検証する'
    re.Global = True
    
    '対象を「#」に変換し、それ以外はそのまま表示'
    MsgBox re.Replace("abc123ada", "#")
    '→「#bc123adf」と表示されます'
End Sub

'先頭の文字を変換'

Sub 動作チェック()

Dim re As New RegExp

re.pattern = "^a" '「^」を付けると文字列の先頭のみ一致するかどうか検証する'

re.Global = True

'対象を「#」に変換し、それ以外はそのまま表示'

MsgBox re.Replace("abc123ada", "#")

'→「#bc123adf」と表示されます'

End Sub

４．末尾の文字を変換。「$」(ドルマーク)を付ける

　以下を実行すると、末尾の文字が一致した場合、値が変換されメッセージボックスに表示されます。

'末尾の文字を変換'
Sub 動作チェック()
    Dim re As New RegExp

    re.pattern = "a$" '「$」を付けると文字列の末尾のみ一致するかどうか検証する'
    re.Global = True
    
    '対象を「#」に変換し、それ以外はそのまま表示'
    MsgBox re.Replace("abc123ada", "#")
    '→「abc123ad#」と表示されます'
End Sub

'末尾の文字を変換'

Sub 動作チェック()

Dim re As New RegExp

re.pattern = "a$" '「$」を付けると文字列の末尾のみ一致するかどうか検証する'

re.Global = True

'対象を「#」に変換し、それ以外はそのまま表示'

MsgBox re.Replace("abc123ada", "#")

'→「abc123ad#」と表示されます'

End Sub

５．単語の境界に任意の値を表示。「¥b」

　以下を実行すると、単語の境界に任意の値が追加され、メッセージボックスに表示されます。

'単語の境界に任意の値を表示'
Sub 動作チェック()
    Dim re As New RegExp

    re.pattern = "¥b" '「¥b」を付けると文字列の境界に任意の値を表示する'
    re.Global = True
    
    '対象を「#」に変換し、それ以外はそのまま表示'
    MsgBox re.Replace("abc 123ada", "#")
    '→「#abc# #123ada#」と表示されます'
End Sub

'単語の境界に任意の値を表示'

Sub 動作チェック()

Dim re As New RegExp

re.pattern = "¥b" '「¥b」を付けると文字列の境界に任意の値を表示する'

re.Global = True

'対象を「#」に変換し、それ以外はそのまま表示'

MsgBox re.Replace("abc 123ada", "#")

'→「#abc# #123ada#」と表示されます'

End Sub

◆関連記事

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

投稿: 2023年2月9日

【VBA】文字列の正規表現「RegExpオブジェクト」利用の事前準備。参照設定の「Microsoft VBScript Regular Expressions 5.5」の設定方法

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

投稿: 2024年3月17日

【VBA】「RegExpオブジェクト」を利用して半角数値かどうか判定する方法