正規表現を用いて文字列の置換を行うためのVBAのプログラム例

regexp_test.vba

Sub regexp_test()
    Dim reg As Object
    Set reg = CreateObject("VBScript.RegExp")
    reg.Global = True
    reg.Pattern = "^([^\(]+)\(([^\)]+)\)"
    Dim output As String
    output = reg.Replace("京急1000形1890番台(Le Ciel)", "$2 $1")
    Debug.Print output
End Sub