如何编写通用VBA代码选中工作簿除Overview和Index外的所有工作表？

通用解决方案代码 #

直接使用以下代码，无需逐个指定要选中的工作表，仅需排除Overview和Index两个表即可，适配任意数量、任意名称的其他工作表：

Sub SelectSheetsExceptExcluded()
    Dim ws As Worksheet
    Dim firstSelected As Boolean
    
    firstSelected = False
    
    '遍历工作簿内所有工作表
    For Each ws In ThisWorkbook.Sheets
        '跳过需要排除的两个表
        If ws.Name <> "Overview" And ws.Name <> "Index" Then
            If Not firstSelected Then
                '选中第一个符合条件的工作表
                ws.Select
                firstSelected = True
            Else
                '追加选中后续符合条件的表，不取消之前的选中状态
                ws.Select Replace:=False
            End If
        End If
    Next ws
    
    '如果没有可选中的表，弹出提示
    If Not firstSelected Then
        MsgBox "没有符合条件的工作表可选中！"
    End If
End Sub

原有代码的问题分析 #

你之前的代码出现运行时错误1004，主要原因有两点：

1. Sheet1.Select依赖固定名称的工作表，若工作簿中不存在Sheet1，或该表恰好是要排除的Overview/Index，甚至被隐藏、保护，都会触发报错。
2. 代码仅排除了Overview，未处理Index，且从i=2开始遍历会漏掉第一个工作表（若它不属于需排除的表）。

这段通用代码用For Each遍历所有工作表，不受工作表排序、名称变化影响，同时加入了空情况判断，避免无表可选时的异常。

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