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

《在Excel中相同格式工作簿(工作表)汇总到一个工作簿中的方法：.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、18、在Excel中相同格式工作簿（工作表）汇总到一个工作簿中的方法：1、首先新建一个汇总工作簿，汇总工作簿和要会做的其他的工作簿要放在同一个文件夹中。2、然后再汇总工作簿中打开宏函数（ALT+F11）复制如下代码：SubHuiZong()Dimmyfile,mypath,wb'声明变量Application.ScreenUpdating=False'关闭屏幕更新Sheet1.UsedRange.Offset(1,0).Clear'清除除表头之外的所有内容mypath=ThisWorkbook.Path'找到当

2、前工作簿的路径myfile=Dir(mypath&"*.xls*")'遍历当前文件夹下的Excel文件DoWhilemyfile<>""'当找到的文件不为空时Ifmyfile<>ThisWorkbook.NameThen'当找到的文件不是当前Excel工作簿时Setwb=GetObject(mypath&""&myfile)'得到dir找到的工作簿的内容，设为wbWithwb.Sheets(1)'对找到的工作簿的sheet1进行操作'复制wb的sheet1除第一行的所有内容.UsedRange.Offset

3、(1,0).CopySheet1.Range("A"&Sheet1.UsedRange.Rows.Count+1)EndWithwb.CloseFalse'关闭wb工作簿且不保存EndIfmyfile=Dir'寻找下一个Excel工作簿LoopApplication.ScreenUpdating=True'恢复屏幕更新EndSub