如何通过VBA读取Scoping表批量切换Excel工作表的隐藏/显示？

以下是完全符合你需求的VBA代码，它会自动读取"Scoping"工作表里的列表，批量设置对应工作表的显示/隐藏状态：

Sub SetSheetVisibilityFromScoping()
    Dim wsScoping As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim sheetName As String
    Dim visibilityStatus As Variant
    
    ' 指向Scoping工作表
    Set wsScoping = ThisWorkbook.Worksheets("Scoping")
    
    ' 获取A列最后一行数据的行号（假设A列存工作表名）
    lastRow = wsScoping.Cells(wsScoping.Rows.Count, "A").End(xlUp).Row
    
    ' 从第2行开始循环（第1行是表头）
    For i = 2 To lastRow
        sheetName = wsScoping.Cells(i, "A").Value
        visibilityStatus = wsScoping.Cells(i, "B").Value
        
        ' 跳过空行
        If sheetName = "" Then GoTo NextRow
        
        On Error Resume Next ' 捕获找不到工作表的错误
        ' 根据状态设置可见性
        Select Case LCase(visibilityStatus)
            Case "显示", "show", True, 1
                ThisWorkbook.Worksheets(sheetName).Visible = xlSheetVisible
            Case "隐藏", "hide", False, 0
                ThisWorkbook.Worksheets(sheetName).Visible = xlSheetHidden
            Case Else
                ' 状态不合法时给出提示
                MsgBox "第" & i & "行的状态设置无效，请检查", vbExclamation
        End Select
        
        ' 如果找不到工作表，弹出提示
        If Err.Number <> 0 Then
            MsgBox "未找到工作表：" & sheetName & "（第" & i & "行）", vbCritical
            Err.Clear
        End If
        On Error GoTo 0 ' 恢复错误捕获
        
NextRow:
    Next i
    
    MsgBox "工作表显示/隐藏设置完成", vbInformation
End Sub

代码说明 #

• 自动读取列表：代码会自动获取A列所有非空的工作表名，不需要手动指定任何工作表名称
• 兼容多种状态值：支持"显示"/"隐藏"、"show"/"hide"、TRUE/FALSE、1/0等多种状态输入，大小写不敏感
• 错误处理：遇到不存在的工作表或无效状态时，会弹出提示，不会导致宏崩溃
• 跳过空行：如果A列有空白行，会自动跳过，不执行操作

使用步骤 #

1. 按Alt + F11打开VBA编辑器
2. 插入一个新模块：右键点击工作簿名称 → 插入 → 模块
3. 将上述代码粘贴到模块中
4. 返回Excel，按Alt + F8选择SetSheetVisibilityFromScoping宏执行即可

注意事项 #

• 确保"Scoping"工作表的A列是工作表名称，B列是显示/隐藏状态（表头可以自定义，代码从第2行开始读取数据）
• 不要隐藏"Scoping"工作表本身，否则下次运行宏时会找不到它（如果需要隐藏，可在代码最后添加wsScoping.Visible = xlSheetHidden）

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