代码拜托各位大神改一下，只汇总其他excel中表头一下的部分，汇总表中表头不变

cicihuanying

代码拜托各位大神改一下，只汇总其他excel中表头一下的部分，汇总表中表头不变。
我的代码一运行，就把汇总表里的表头覆盖了，而且，每个excel中明细下面的汇总什么的都不要。

abc123281

如果表的格式都一样   可以使用下面的代码

Sub 汇总()
Worksheets("汇总").UsedRange.Offset(3).Clear
Application.ScreenUpdating = False
mp = ThisWorkbook.Path & "\"
mf = Dir(mp & "*.xlsx")
Do While mf <> ""
  If mf <> ThisWorkbook.Name Then
    Set wb = Workbooks.Open(mp & mf)
    With wb
      For Each ws In .Worksheets
        With ws
          rw = .[d16].End(3).Row
          p = ThisWorkbook.Worksheets("汇总").[d65536].End(xlUp).Row + 1
         .Range("a4:G" & rw).Copy ThisWorkbook.Worksheets("汇总").Range("a" & p)
        End With
      Next
     .Close False
    End With
  End If
  mf = Dir
Loop
Application.ScreenUpdating = True
MsgBox "汇总完成，请查看！", 64, "提示"
End Sub

abc123281

新建文件夹 (2).rar (35.47 KB, 下载次数: 7)

2019-12-7 13:45 上传

点击文件名下载附件

cicihuanying

黄色部分不想要怎么办