VBA使用正则表达式

VBA可以使用正则表达式来进行字符串匹配和替换操作。下面是一个例子，展示如何使用正则表达式来匹配一个字符串中的所有数字：

Sub TestRegex()
    Dim regEx As New RegExp
    Dim strInput As String
    Dim strPattern As String
    Dim matches As MatchCollection
    Dim match As Match
    
    strInput = "I have 3 apples and 2 bananas"
    strPattern = "\d+"
    
    With regEx
        .Global = True
        .MultiLine = True
        .IgnoreCase = False
        .Pattern = strPattern
    End With
    
    Set matches = regEx.Execute(strInput)
    For Each match In matches
        Debug.Print match.Value
    Next
End Sub

在这个例子中，首先创建了一个RegExp对象，然后设置了正则表达式的一些属性，比如Pattern属性就是用来设置正则表达式的。然后调用Execute方法来执行匹配操作，得到一个MatchCollection对象，这个对象中包含了所有匹配到的结果。最后遍历这个对象，逐个输出每一个匹配到的数字。

需要注意的是，在VBA中使用正则表达式需要引用"Microsoft VBScript Regular Expressions"库。可以在VBA编辑器中的"工具" -> "引用"中勾选这个库来启用它。