1、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 & “
2、*.xls*“) 遍历当前文件夹下的 Excel 文件Do While myfile ThisWorkbook.Name Then 当找到的文件不是当前Excel 工作簿时Set wb = GetObject(mypath & “ & myfile) 得到 dir 找到的工作簿的内容，设为 wbWith wb.Sheets(1) 对找到的工作簿的 sheet1进行操作复制 wb 的 sheet1 除第一行的所有内容.UsedRange.Offset(1, 0).Copy Sheet1.Range(“A“ & Sheet1.UsedRange.Rows.Count + 1)End Withwb.Close False 关闭 wb 工作簿且不保存End Ifmyfile = Dir 寻找下一个 Excel 工作簿LoopApplication.ScreenUpdating = True 恢复屏幕更新End Sub
