如何检查工作表是否在指定名称列表中并解决VBA类型不匹配错误

VBA 中的 Like 是字符串模式匹配运算符，仅支持左右两侧均为字符串类型的操作数。你直接将数组变量 list 放在 Like 右侧，不符合语法要求，因此触发类型不匹配错误。

方案1：遍历目标数组逐一匹配（通用性最强，支持通配符） #

适合需要模糊匹配的场景，比如要匹配 test* 这类带通配符的表名：

Dim list As Variant
Dim targetName As Variant
Dim ws As Worksheet

list = Array("test1", "sheet1")

For Each ws In wb.Worksheets ' wb替换为你实际使用的工作簿变量
    For Each targetName In list
        ' 不需要通配符可以把Like换成=，运行性能更好
        If ws.Name Like targetName Then
            ' 这里放你要执行的逻辑，比如操作工作表、导出数据等
            Debug.Print "匹配到工作表：" & ws.Name
            Exit For ' 匹配到后直接跳出内层循环，避免无效遍历
        End If
    Next
Next

方案2：用Filter函数简化判断（代码更简洁） #

如果不需要额外的数组遍历操作，可以用Filter函数直接判断是否存在匹配项，减少嵌套循环：

Dim list As Variant
Dim ws As Worksheet

list = Array("test1", "sheet1")

For Each ws In wb.Worksheets
    ' 最后一个参数vbTextCompare表示不区分大小写，要区分大小写可替换为vbBinaryCompare
    If UBound(Filter(list, ws.Name, True, vbTextCompare)) >= 0 Then
        ' 执行你的逻辑
        Debug.Print "匹配到工作表：" & ws.Name
    End If
Next

方案3：字典判断（适合目标表名数量多的场景，效率更高） #

如果你的目标表名有几十上百个，用字典的Exists方法判断性能会远高于遍历数组：

Dim list As Variant
Dim ws As Worksheet
Dim targetDict As Object

Set targetDict = CreateObject("Scripting.Dictionary")
list = Array("test1", "sheet1")
' 不区分大小写可以加这句 targetDict.CompareMode = vbTextCompare

' 先把目标表名存入字典
For Each name In list
    targetDict(name) = True
Next

For Each ws In wb.Worksheets
    If targetDict.Exists(ws.Name) Then
        ' 执行你的逻辑
        Debug.Print "匹配到工作表：" & ws.Name
    End If
Next

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