Excel VBA技术问题：多工作表数据合并仅复制首个有数据工作表

错误原因 #

原代码存在两个关键问题：

• 未指定工作表范围：Range("A2").Value 没有绑定当前遍历的工作表ws，默认使用ActiveSheet。当第一个工作表复制完成后，ActiveSheet切换为"Combined"，后续遍历判断的都是"Combined"的A2，而非目标工作表的A2，导致后续符合条件的工作表被跳过。
• 条件逻辑颠倒：原代码判断IsEmpty(Range("A2").Value)（即A2为空时才复制），但实际需求是A2有数据（工作表存在内容）时才复制，逻辑完全相反。

修正后的VBA代码 #

For Each ws In ActiveWorkbook.Worksheets
    Select Case ws.Name
        Case "Setup", "Combined", "Summary", "Drop Down Menus"
            ' 跳过指定工作表
        Case Else
            Set wsDestination = ThisWorkbook.Worksheets("Combined")
            ' 绑定当前工作表ws，判断A2是否有数据
            If Not IsEmpty(ws.Range("A2").Value) Then
                ' 获取当前工作表数据的最后一行
                lrow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
                With wsDestination
                    ' 复制当前工作表A2到L列的有效数据，粘贴到Combined的最后一行下方
                    ws.Range("A2:L" & lrow).Copy Destination:=.Range("A" & .Rows.Count).End(xlUp).Offset(1)
                End With
            End If
    End Select
Next

额外优化建议 #

如果担心A2为空但下方有数据（比如A2空但A3有数据），可以改用判断数据总行数是否大于1，这种方式更严谨：

For Each ws In ActiveWorkbook.Worksheets
    Select Case ws.Name
        Case "Setup", "Combined", "Summary", "Drop Down Menus"
            ' 跳过指定工作表
        Case Else
            Set wsDestination = ThisWorkbook.Worksheets("Combined")
            lrow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
            ' 判断是否存在有效数据行（总行数大于表头行）
            If lrow > 1 Then
                With wsDestination
                    ws.Range("A2:L" & lrow).Copy Destination:=.Range("A" & .Rows.Count).End(xlUp).Offset(1)
                End With
            End If
    End Select
Next

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