在Excel中相同格式工作簿工作表汇总到一个工作簿中的方法：.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 当找到的文件不是当前Excel工作簿时 Set wb = GetObject(mypath \ myfile) 得到dir找到的工作簿的内容，设为wb With wb.Sheets(1) 对找到的工作簿的sheet1进行操作 复制wb的sh