Excel VBA实现跳过指定多张工作表并跳转至下一张工作表

原代码存在的问题 #

• Select Case语法错误：无法通过逗号分隔多个值实现匹配，这种写法不被VBA支持
• 变量t逻辑混乱：每次进入Case Else都会重置为0，后续累加操作失去意义
• 过度依赖Select/Activate：增加代码出错概率，降低执行效率
• 工作表引用不明确：Sheet变量未定义，代码无法正确定位或遍历工作表

修正后的代码 #

Sub ProcessSheets()
    Dim ws As Worksheet
    Dim excludeSheets As Variant
    Dim targetWs As Worksheet
    Dim lastRow As Long, targetLastRow As Long, lastCol As Long
    
    '定义需要跳过的工作表集合
    excludeSheets = Array("Weekly Spread (%)", "Weekly spread (Count)Summary", "Sheet1", "Consolidated_Data")
    '指定目标工作表
    Set targetWs = ThisWorkbook.Sheets("LoginData")
    
    '遍历工作簿中所有工作表
    For Each ws In ThisWorkbook.Sheets
        '判断当前工作表是否在排除列表内
        If IsError(Application.Match(ws.Name, excludeSheets, 0)) Then
            '获取当前工作表数据区域的最后一行和最后一列
            lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
            lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
            
            '判断目标工作表是否为空，决定是否复制表头
            If targetWs.Range("A1").Value = "" Then
                '复制表头+全部数据
                ws.Range(ws.Cells(1, 1), ws.Cells(lastRow, lastCol)).Copy
                targetWs.Range("A1").PasteSpecial xlPasteValues
            Else
                '仅复制数据行（从A2开始）
                ws.Range(ws.Cells(2, 1), ws.Cells(lastRow, lastCol)).Copy
                targetLastRow = targetWs.Cells(targetWs.Rows.Count, "A").End(xlUp).Row + 1
                targetWs.Range("A" & targetLastRow).PasteSpecial xlPasteValues
            End If
        End If
    Next ws
    
    '清除剪贴板，释放系统资源
    Application.CutCopyMode = False
    MsgBox "数据处理完成", vbInformation
End Sub

代码说明 #

• 用数组存储需要跳过的工作表名，通过Application.Match快速判断是否跳过当前工作表，比Select Case更灵活
• 移除所有Select/Activate操作，直接引用工作表和单元格对象，提升代码稳定性与执行效率
• 自动计算数据区域的行和列，避免因空单元格导致的范围选取错误
• 自动判断目标工作表是否为空，无需额外变量控制表头复制逻辑
• 执行完后清除剪贴板，避免Excel保持复制状态

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