【VBA】自作関数

文字列置換(簡易正規表現対応)

Function replaceWithRegex(target As String, pattern As String, replaceStr As String)
    Dim RE, strPattern As String, ret As String
    Set RE = CreateObject("VBScript.RegExp")
    With RE
        .pattern = pattern          ''検索パターンを設定
        .IgnoreCase = True          ''大文字と小文字を区別しない
        .Global = True              ''文字列全体を検索
    End With
    
    '正規表現による置換の実行
    ret = RE.Replace(target, replaceStr)
    
    Set RE = Nothing
    replaceWithRegex = ret
End Function