"(aa) and (bb) and (cc)" から"(aa)"、"(bb)"、"(cc)"を取得する正規表現

reg.vba

Sub test()
    
    Dim regObj  As Object
    Set regObj = CreateObject("VBScript.RegExp")
    Dim matchs  As Object
    Dim match   As Object
    Dim sTest   As String
    
    sTest = "(AA) and (BB) and (CC)"
    
    ' [^\)]* は")"ではない文字が0以上　という意味
    regObj.Pattern = "\([^\)]*\)"
    regObj.Global = True
    Set matchs = regObj.Execute(sTest)
    
    For Each match In matchs
        Debug.Print (match)
    Next
End Sub

実行結果

(AA)
(BB)
(CC)

解説.md

"\([^\)]*\)"は(.*)のそれぞれを取得できる。[^\)]*は")"ではない文字が0以上という意味になるため

もし、"\(.*\)"とした場合、一つずつに分けることはできない

regObj.Pattern = "\(.*\)"

実行結果

(AA) and (BB) and (CC)