excel多工作表合并 （包含标题行）

Sub hbgzb_simple()
    Dim Ws As Worksheet, NewWs As Worksheet
    Dim LastRow As Long
    
    ' 删除已存在的目标工作表
    Application.DisplayAlerts = False
    On Error Resume Next
    ThisWorkbook.Worksheets("汇总合并").Delete
    On Error GoTo 0
    Application.DisplayAlerts = True
    
    ' 新建目标工作表
    Set NewWs = ThisWorkbook.Worksheets.Add
    NewWs.Name = "汇总合并"
    
    For Each Ws In ThisWorkbook.Worksheets
        If Ws.Name <> NewWs.Name Then
            With Ws.Range("A1").CurrentRegion
                ' 获取目标工作表的最后一行
                LastRow = NewWs.Cells(NewWs.Rows.Count, 1).End(xlUp).Row
                
                ' 直接从下一行开始粘贴（包含标题行）
                .Copy Destination:=NewWs.Cells(LastRow + 1, 1)
            End With
        End If
    Next
    
    Application.CutCopyMode = False
    MsgBox "汇总完成！"
End Sub