求教：怎么快速把100多个工作簿里面的合计项的数据，汇总到一个工作簿

Lynn5683

求教：怎么快速把100多个工作簿里面的合计项的数据，汇总到一个工作簿，附件是模拟数据，只需汇总数量和补贴金额，请高手帮帮忙，十分感谢！！！

我是万能小超人

可以把所有表合并，再自动筛选出合并行。所有工作簿合并，用宏。
Sub Macro1()
Dim MyPath$, MyName$, sh As Worksheet, sht As Worksheet, m&
Set sh = ActiveSheet
MyPath = ThisWorkbook.Path & "\"
MyName = Dir(MyPath & "*.xls")
Application.ScreenUpdating = False
Cells.ClearContents
Do While MyName <> ""
If MyName <> ThisWorkbook.Name Then
With GetObject(MyPath & MyName)
For Each sht In .Sheets
If IsSheetEmpty = IsEmpty(sht.UsedRange) Then
m = m + 1
If m = 1 Then
sht.[a1].CurrentRegion.Copy sh.[a1]
Else
sht.[a1].CurrentRegion.Offset(1).Copy sh.[a65536].End(xlUp).Offset(1)
End If
End If
Next
.Close False
End With
End If
MyName = Dir
Loop
Application.ScreenUpdating = True
End Sub