在Excel中相同格式工作簿(工作表)汇总到一个工作簿中的方法：(共2页).docx
( 4.5 )《在Excel中相同格式工作簿(工作表)汇总到一个工作簿中的方法：(共2页).docx》由会员分享，可在线阅读，更多相关《在Excel中相同格式工作簿(工作表)汇总到一个工作簿中的方法：(共2页).docx（2页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。
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(
2、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的sheet1除第一行的所有内容 .UsedRange.Offset(1, 0).Copy Sheet1.Range(A & Sheet1.UsedRange.Rows.Count + 1) End With wb.Close False 关闭wb工作簿且不保存 End If myfile = Dir 寻找下一个Excel工作簿LoopApplication.ScreenUpdating = True 恢复屏幕更新End Sub专心-专注-专业
- 配套讲稿：
如PPT文件的首页显示word图标，表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制：
部分文档作品中含有的国旗、国徽等图片，仅作为作品整体效果示例展示，禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词：
- Excel 相同 格式 工作 汇总 一个 中的 方法
淘文阁 - 分享文档赚钱的网站所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
限制150内