放到新工作簿中，因为下面代码不汇总代码所在的工作簿。Sub 汇总()
Dim Path As String, Spath As String
Dim Sh As Worksheet, Folder As Object
Dim N As Double, Num As Long
Dim R1 As Range, R As Range
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Path = ThisWorkbook.Path & "\"
Spath = Dir(Path & "...
