如何修改Excel VBA代码实现SheetA数据合并到Master主表无需新建工作表

你提供的原始代码功能为新建汇总表合并全表内容，修改后适配需求的代码如下，不会新建任何工作表，可直接将指定子表内容同步到Master主表：

Sub SyncToMaster()
    Dim wsMaster As Worksheet, ws As Worksheet
    Dim lastRow As Long, targetLastRow As Long
    Dim arrSheets As Variant, i As Integer
    
    '定义主表对象
    Set wsMaster = ThisWorkbook.Worksheets("Master")
    '定义需要同步的子表名称，仅保留SheetA就改为 Array("SheetA")
    arrSheets = Array("SheetA", "SheetB")
    
    '清空主表原有数据（保留表头），不需要清空可删除本段
    lastRow = wsMaster.Cells(wsMaster.Rows.Count, 1).End(xlUp).Row
    If lastRow > 1 Then
        wsMaster.Range("A2:A" & lastRow).EntireRow.Delete
    End If
    
    '循环同步所有指定子表
    For i = LBound(arrSheets) To UBound(arrSheets)
        Set ws = ThisWorkbook.Worksheets(arrSheets(i))
        lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
        '判断子表是否有有效数据（排除表头行）
        If lastRow >= 2 Then
            '获取主表下一个空行位置
            targetLastRow = wsMaster.Cells(wsMaster.Rows.Count, 1).End(xlUp).Row + 1
            '复制子表数据到主表，需要保留格式直接用Copy即可，仅复制值的话替换为下一段注释代码
            ws.Range("A2:A" & lastRow).EntireRow.Copy wsMaster.Range("A" & targetLastRow)
            '仅复制值的写法：ws.Range("A2:A" & lastRow).EntireRow.Copy : wsMaster.Range("A" & targetLastRow).PasteSpecial xlPasteValues
        End If
    Next i
    
    '清除剪贴板提示
    Application.CutCopyMode = False
    MsgBox "数据同步完成", vbInformation
End Sub

使用说明 #

• 手动触发：按Alt+F11打开VBA编辑器，右键左侧工程名插入「模块」，将代码粘贴到模块中，需要同步时按Alt+F8选择SyncToMaster宏执行即可
• 自动触发：如果需要子表新增数据后自动同步，打开对应子表的代码编辑窗口，粘贴以下事件代码，子表内容发生修改时会自动执行同步：

  Private Sub Worksheet_Change(ByVal Target As Range)
      Call SyncToMaster
  End Sub
  

注意事项 #

• 如果你的表格没有表头，将代码中所有判断lastRow >=2改为lastRow >=1，所有引用的行号A2改为A1即可
• 需要保留Master主表原有手动录入内容的话，删除代码中清空主表数据的段落即可，建议增加唯一标识列做去重判断，避免重复追加相同数据
• 所有工作表列结构必须完全一致，否则会出现数据错位

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