VBA 笔记

在 VBA 中，你可以使用正则表达式对象来匹配特殊字符。下面是一个示例代码，展示了如何使用 VBA则表达式返回特殊字符：


Sub TestRegex()
    Dim regex As Object
    Dim match As Object
    Dim pattern As String
    Dim inputString As String
    
    ' 创建正则表达式对象
    Set regex = CreateObject("VBScript.RegExp")
    
    ' 设置正则表达式的模式
    pattern = "[^\w\s]"
    
    ' 设置输入字符串
    inputString = "Hello! How are you?"
    
    ' 应用正则表达式模式到输入字符串
    With regex
        .Global = True
        .MultiLine = True
        .IgnoreCase = True
        .Pattern = pattern
    End With
    
    ' 执行匹配操作
    If regex.test(inputString) Then
        ' 匹配成功，循环输出匹配结果
        For Each match In regex.Execute(inputString)
            Debug.Print match.Value
        Next match
    End If
    
    ' 清除对象引用
    Set regex = Nothing
End Sub
在上面的示例中，我们使用了正则表达式模式 [^\w\s] 来匹配非单词字符和非空白字符。如果输入字符串中存在特殊字符，那么就会输出这些特殊字符。

请注意，这只是一个简单的示例，你可以根据自己的需求调整正则表达式模式。同时，你可能还需要添加对正则表达式对象的引用，具体方式可以在 VBA 编辑器中的 工具 -> 引用 中添加 "Microsoft VBScript Regular Expressions 5.5" 引用。