Excel VBA数据合并优化：排除指定工作表并仅复制含有效数据行

针对你提到的85个发票格式工作表的合并需求，我帮你优化了VBA代码，解决了原代码的几个核心问题——比如误合并不需要的工作表、复制空行、依赖激活工作表导致的低效问题：

Sub CombineInvoices()
    Dim ws As Worksheet
    Dim targetRange As Range
    Dim masterSheet As Worksheet
    Dim lastRowMaster As Long
    Dim row As Range
    
    ' 提前绑定主表对象，避免重复查找
    Set masterSheet = ThisWorkbook.Worksheets("Master")
    
    ' 遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 跳过不需要合并的三个工作表
        Select Case ws.Name
            Case "Master", "Tracking", "AppControl"
                ' 跳过当前工作表，继续下一个循环
                GoTo NextWorksheet
        End Select
        
        ' 定位目标数据范围I13:N42
        Set targetRange = ws.Range("I13:N42")
        
        ' 遍历目标范围内的每一行
        For Each row In targetRange.Rows
            ' 判断该行是否有实际数据（包括公式返回的内容）
            If Application.WorksheetFunction.CountA(row) > 0 Then
                ' 找到主表的最后一行
                lastRowMaster = masterSheet.Cells(masterSheet.Rows.Count, "A").End(xlUp).Row + 1
                ' 复制整行到主表，保留公式和单元格引用
                row.Copy Destination:=masterSheet.Cells(lastRowMaster, "A")
            End If
        Next row
        
NextWorksheet:
    Next ws
    
    MsgBox "数据合并完成！", vbInformation
End Sub

关键优化点说明： #

• 排除指定工作表：通过Select Case精准跳过Master、Tracking和AppControl，避免误合并无关数据
• 避免激活/选择操作：直接绑定工作表和范围对象，比原代码的Activate+Select效率更高，也更稳定
• 仅复制非空行：用CountA判断每行是否有数据（包括公式计算出的内容），不会把空行复制到主表
• 保留公式和引用：使用Copy方法直接复制整行，完整保留单元格的公式、格式和引用关系
• 代码可读性提升：重命名了变量和过程名，添加了注释，后续维护更方便

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