用Excel Vba在字符串变量中查找模式

Sub FindPatternInString()
    Dim str As String
    Dim pattern As String
    Dim regex As Object
    Dim matches As Object
    Dim match As Object
    
    ' 设置字符串和模式
    str = "This is a sample string."
    pattern = "sample"
    
    ' 创建正则表达式对象
    Set regex = CreateObject("VBScript.RegExp")
    
    ' 设置正则表达式模式
    regex.Pattern = pattern
    
    ' 在字符串中查找匹配项
    Set matches = regex.Execute(str)
    
    ' 遍历匹配项
    For Each match In matches
        MsgBox "找到匹配项：" & match.Value
    Next match
End Sub