可以在Excel表格中用下面的VBA程序实现：
Sub Test() '打开当前目录下文件，将Sheet1信息复制到汇总表上
Dim f$
Dim n&
Mypath = ThisWorkbook.Path & "\"
f = Dir(Mypath & "*.xls*")
Do While f > " "
n = n + 1
Workbooks.Open Mypath & f
Set c = ActiveWorkbook
arr=sheet1.UsedRange
c.Close
Cells(n, 1).resze(Ubound(arr,1),Ubound(arr,2)) =arr
n=n+Ubound(arr,1)
f = Dir
Loop
End Sub
操作方法：
1、打开Excel编辑器，插入模块
2、将上面的程序复制进模块
3、在Excel页面中，点 开发工具-宏，执行里面名为Test的宏，即可自动完成汇总
右键工作表标签-就有移动或者复制工作表命令
满意请采纳
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024