VBA合并所有工作表失效：Sheet2未被合并，请求技术协助

首先，咱们先拆解下你遇到的问题：你的代码本该合并除"Combined Reports"外的所有工作表，但唯独跳过了第2个表"New Leave Capture"，大概率是**On Error Resume Next掩盖了错误**，或者数据复制逻辑有疏漏。

问题排查步骤 #

• 先移除On Error Resume Next：这行代码会让程序忽略所有错误直接往下跑，很可能是第2个工作表在合并时触发了错误（比如数据范围引用错误、表头重复冲突），但被悄悄跳过了。移除后重新运行，就能看到具体的错误提示，这是找到问题的关键。
• 检查判断条件的拼写：确认你的If s.Name <> "Combined Reports"是完整拼写，没有截断（比如你贴的代码里显示"Comb...，如果实际代码里没写完，那判断逻辑就完全错了）。
• 验证数据复制逻辑：如果原代码里复制数据的部分只取了UsedRange或者固定行，可能"New Leave Capture"的数据格式和其他表不一样（比如表头行数不同、空行占位等），导致没复制到有效数据。

修正后的完整代码 #

下面是调整后的代码，去掉了隐藏错误的语句，增加了明确的数椐复制逻辑，确保每个符合条件的工作表都被正确合并：

Sub combine_all_Reports()
    Dim targetSheet As Worksheet
    Dim sourceSheet As Worksheet
    Dim lastRowTarget As Long
    Dim lastRowSource As Long
    Dim lastColSource As Long
    
    ' 设置目标工作表
    Set targetSheet = ThisWorkbook.Sheets("Combined Reports")
    
    ' 循环遍历所有工作表
    For Each sourceSheet In ThisWorkbook.Sheets
        ' 跳过目标表本身
        If sourceSheet.Name <> "Combined Reports" Then
            ' 获取源表最后一行和最后一列（包含数据的区域）
            lastRowSource = sourceSheet.Cells(Rows.Count, 1).End(xlUp).Row
            lastColSource = sourceSheet.Cells(1, Columns.Count).End(xlToLeft).Column
            
            ' 跳过空表（如果有的话）
            If lastRowSource >= 1 Then
                ' 获取目标表的最后一行，准备粘贴数据
                lastRowTarget = targetSheet.Cells(Rows.Count, 1).End(xlUp).Row
                
                ' 复制源表的数据（如果是第一个源表，复制表头；否则只复制数据行）
                If lastRowTarget = 1 Then
                    ' 目标表为空，复制整个数据区域（包含表头）
                    sourceSheet.Range(sourceSheet.Cells(1, 1), sourceSheet.Cells(lastRowSource, lastColSource)).Copy _
                        Destination:=targetSheet.Cells(lastRowTarget, 1)
                Else
                    ' 目标表已有数据，只复制数据行（从第2行开始）
                    sourceSheet.Range(sourceSheet.Cells(2, 1), sourceSheet.Cells(lastRowSource, lastColSource)).Copy _
                        Destination:=targetSheet.Cells(lastRowTarget + 1, 1)
                End If
            End If
        End If
    Next sourceSheet
    
    ' 提示完成
    MsgBox "所有工作表合并完成！", vbInformation
End Sub

关键改进点 #

• 移除了On Error Resume Next，如果合并过程中出错会直接提示，方便定位问题
• 明确判断每个源表的数据范围，避免因空行/格式问题导致数据漏复制
• 区分表头和数据行，避免重复粘贴表头
• 使用ThisWorkbook代替ActiveWorkbook，确保操作的是当前代码所在的工作簿，避免切换窗口导致的错误

你可以先运行这个修正后的代码，看看是否能捕获到"New Leave Capture"的数据。如果还是有问题，移除On Error Resume Next后出现的错误提示会帮你精准定位问题所在。

内容的提问来源于stack exchange，提问作者Jose M.