在Excel中相同格式工作簿(工作表)汇总到一个工作簿中的方法：(共2页).docx

精选优质文档-倾情为你奉上18、在Excel中相同格式工作簿（工作表）汇总到一个工作簿中的方法：1、首先新建一个汇总工作簿，汇总工作簿和要会做的其他的工作簿要放在同一个文件夹中。2、然后再汇总工作簿中打开宏函数（ALT+F11）复制如下代码：Sub HuiZong()Dim myfile, mypath, wb 声明变量Application.ScreenUpdating = False 关闭屏幕更新Sheet1.UsedRange.Offset(1, 0).Clear 清除除表头之外的所有内容mypath = ThisWorkbook.Path 找到当前工作簿的路径myfile = Dir(mypath & *.xls*) 遍历当前文件夹下的Excel文件Do While myfile 当找到的文件不为空时 If myfile ThisWorkbook.Name Then 当找到的文件不是当前Ex