VBA实现多工作表合并：无公式且忽略空白行

方法一：手动操作（适合少量工作表） #

如果你的员工工作表数量不多，手动操作足够高效：

1. 新建一张名为汇总的工作表，将任意一个员工表的表头（A1:I1）复制到汇总表的对应位置。
2. 打开目标员工工作表（如Tom），选中A2:I8000区域，按下Ctrl+G打开「定位」窗口，点击「定位条件」，选择「常量」后确定——这一步会自动选中所有包含实际内容的单元格，跳过仅含公式但无值的空行。
3. 复制选中的内容，切换到汇总表，找到当前数据区域的下一行（初始为A2），右键选择「选择性粘贴」→「值和数字格式」，确保只粘贴内容而非公式。
4. 对所有员工工作表重复步骤2-3，依次追加数据到汇总表。

方法二：VBA宏自动处理（适合大量工作表） #

如果需要频繁合并或员工表数量较多，用VBA宏可以一键完成：

Sub MergeEmployeeEfficiencyLogs()
    Dim ws As Worksheet
    Dim summarySheet As Worksheet
    Dim lastSummaryRow As Long
    Dim sourceLastRow As Long
    Dim validRange As Range
    
    ' 初始化汇总表
    On Error Resume Next
    Set summarySheet = ThisWorkbook.Worksheets("汇总")
    On Error GoTo 0
    If summarySheet Is Nothing Then
        Set summarySheet = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))
        summarySheet.Name = "汇总"
        ' 复制表头（取第一个工作表的表头）
        ThisWorkbook.Worksheets(1).Range("A1:I1").Copy summarySheet.Range("A1")
    End If
    
    ' 遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 跳过汇总表本身
        If ws.Name <> summarySheet.Name Then
            ' 找到当前工作表有实际内容的最后一行
            sourceLastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
            If sourceLastRow >= 2 Then ' 确保存在数据行
                ' 筛选出仅含实际值的单元格（排除空公式行）
                On Error Resume Next
                Set validRange = ws.Range("A2:I" & sourceLastRow).SpecialCells(xlCellTypeConstants)
                On Error GoTo 0
                If Not validRange Is Nothing Then
                    ' 定位汇总表的下一个空行
                    lastSummaryRow = summarySheet.Cells(summarySheet.Rows.Count, "A").End(xlUp).Row + 1
                    ' 粘贴值和格式，不复制公式
                    validRange.Copy
                    summarySheet.Range("A" & lastSummaryRow).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
                End If
            End If
        End If
    Next ws
    
    Application.CutCopyMode = False
    MsgBox "数据合并完成！", vbInformation
End Sub

使用说明： #

1. 按下Alt+F11打开VBA编辑器；
2. 右键点击当前工作簿，选择「插入」→「模块」；
3. 将上述代码粘贴到模块窗口中；
4. 点击运行按钮（绿色三角），等待宏执行完成。

补充说明 #

• 如果你的公式返回空文本（""），「常量」定位会将其视为空值跳过；若需要保留这类由公式生成的非空内容，可以修改VBA代码，改为逐行判断该行是否有非空值。
• 手动操作时，若需要包含公式生成的有效内容，可将「定位条件」改为「非空单元格」，但后续仍需用「选择性粘贴」去掉公式。

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