如何在VBA的单个InStr中实现多OR条件匹配？

方案1：数组存储关键词+循环判断 #

把需要跳过的关键词统一放到数组里，通过遍历数组完成匹配判断，避免写一堆InStr+Or的冗余代码，维护起来也更方便。

修改后的代码示例：

' 定义需要跳过的关键词数组，直接补充你的其他关键词即可
Dim skipKeywords As Variant
skipKeywords = Array("STAG", "STAP", "KEYWORD3", "KEYWORD4")

Dim sf As Folder
Dim shouldSkip As Boolean
For Each sf In oFolder.SubFolders
    shouldSkip = False
    ' 遍历关键词数组，检查是否匹配
    Dim keyword As Variant
    For Each keyword In skipKeywords
        ' 显式指定sf.Name更清晰，避免歧义
        If InStr(1, sf.Name, keyword, vbTextCompare) > 0 Then
            shouldSkip = True
            Exit For ' 找到匹配就跳出循环，不用继续检查
        End If
    Next keyword
    
    ' 不匹配则加入集合
    If Not shouldSkip Then
        colFolders.Add sf
    End If
Next sf

这个方案无需额外引用库，代码可读性强，增删关键词只需要修改数组内容即可。

方案2：正则表达式匹配 #

用VBA的RegExp对象实现一次性匹配多个关键词，适合关键词数量较多的场景，代码更简洁。

后期绑定版（无需手动引用库） #

Dim regEx As Object
Set regEx = CreateObject("VBScript.RegExp")
With regEx
    .Pattern = "STAG|STAP|KEYWORD3|KEYWORD4" ' 用|分隔所有需要匹配的关键词
    .IgnoreCase = True ' 忽略大小写，对应原代码的vbTextCompare
    .Global = False ' 只需匹配一次即可
End With

Dim sf As Folder
For Each sf In oFolder.SubFolders
    ' 不匹配任何关键词则加入集合
    If Not regEx.Test(sf.Name) Then
        colFolders.Add sf
    End If
Next sf

前期绑定版（需引用库） #

如果需要代码提示，可以手动引用库：

1. 打开VBA编辑器，点击工具→引用，勾选Microsoft VBScript Regular Expressions 5.5
2. 使用如下代码：

Dim regEx As New RegExp
With regEx
    .Pattern = "STAG|STAP|KEYWORD3|KEYWORD4"
    .IgnoreCase = True
    .Global = False
End With

Dim sf As Folder
For Each sf In oFolder.SubFolders
    If Not regEx.Test(sf.Name) Then
        colFolders.Add sf
    End If
Next sf

正则方案的优势是关键词越多，代码简洁性越明显，匹配效率也更高。

内容的提问来源于stack exchange，提问作者Sange7