急！！！excel 宏的批量复制粘贴

放在模块1中，要汇总的表格放同一文件夹中分表文件夹中，汇总是第二，自己可以修改，汇总的工作簿名称为汇总表，放在分表文件夹同级
Sub 汇总()
Dim myPath$, myFile$, AK As Workbook, aRow%, tRow%, i As Integer
Application.ScreenUpdating = False
myPath = ThisWorkbook.Path & "\分表\"
myFile = Dir(myPath & "*.xls")
Do While myFile <> ""
If myFile <> ThisWorkbook.Name Then
Set AK = Workbooks.Open(myPath & myFile)
For i = 1 To AK.Sheets.Count
tRow = ThisWorkbook.Sheets(1).Range("a65536").End(xlUp).Row + 1
AK.Sheets(i).Range("a2:k2").Copy ThisWorkbook.Sheets(1).Range("a" & tRow)
Next
Workbooks(myFile).Close False
End If
myFile = Dir
Loop
Application.ScreenUpdating = True
MsgBox "汇总完成，请查看！", 64, "提示"
End Sub

把需要取数的表格全部放到一起，一次性设定你结果表中的公式，每次有数据更新的时候先复制原来的表格到其他地方保存，然后将新数据表格粘贴到原来的地方覆盖，你的结果表就会自动更新了。如果你的这些表格名称都有一定的规则，设定公式的时候可以使用Excel表帮助生成，免得一个个去填。

随便给三个文件(内容你可以改为跟你们公司无关的数据,不过格式要跟真实的一样)及说明给我
帮你做好宏
邮箱hamletl@tom.com

文件名有规则吗？

文件全放在一个文件夹里，再用公式直接取出就行了

愿意一起探讨下，HI我