VBA新手求助：筛选Check_**工作表并判断区域值写入结果

问题背景 #

• 工作簿内存在多个以Check_为前缀的工作表（如Check_BC、Check_BD等），其余为普通工作表
• 需求：检查所有Check_前缀工作表的C5:DD90区域，若区域内全为TRUE，则在Summary工作表写入PASS；只要存在至少一个FALSE，则写入FAIL
• 当前报错：代码行checksh = Worksheets("sh")触发Subscript out of range错误

错误分析 #

1. 字符串匹配错误：sh = Sheets(i).Name = "Check_**"是无效写法，VBA中不能用**作为通配符匹配工作表名，且该行实际是一个布尔判断，并未获取到目标工作表
2. 对象赋值错误：checksh = Worksheets("sh")试图引用名为sh的工作表，但实际不存在该表；同时VBA中对象赋值必须使用Set关键字

修正后的代码 #

Sub CheckAllSheets()
    Dim ws As Worksheet
    Dim checkRange As Range
    Dim summaryWs As Worksheet
    Dim hasFalse As Boolean
    
    ' 绑定Summary工作表
    Set summaryWs = ThisWorkbook.Worksheets("Summary")
    ' 默认状态设为PASS，发现False则切换为FAIL
    hasFalse = False
    
    ' 遍历工作簿内所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 判断工作表名是否以Check_开头
        If Left(ws.Name, 6) = "Check_" Then
            Set checkRange = ws.Range("C5:DD90")
            ' 检查区域内是否存在False值
            If Not checkRange.Find(What:=False, LookIn:=xlValues, LookAt:=xlWhole) Is Nothing Then
                hasFalse = True
                ' 找到False后直接退出循环，减少不必要的遍历
                Exit For
            End If
        End If
    Next ws
    
    ' 更新Summary工作表的结果
    With summaryWs.Range("C2")
        If hasFalse Then
            .Value = "FAIL"
            .Interior.ColorIndex = 3
        Else
            .Value = "PASS"
            .Interior.ColorIndex = 43
        End If
    End With
End Sub

关键优化点 #

• 使用For Each循环遍历工作表，比原Do While循环更简洁高效
• 用Left(ws.Name, 6) = "Check_"精准匹配工作表前缀，替代错误的通配符写法
• 引入hasFalse标记变量，只要发现一个FALSE就提前终止遍历，提升代码效率
• 移除Select操作，直接操作单元格对象，符合VBA最佳实践（避免Select/Activate带来的不稳定问题）
• 严格遵循VBA对象赋值语法，使用Set关键字绑定工作表和区域对象

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