与 30万 读者一起学Excel
关于多表多工作簿合并，写了无数文章，不过刚好这种多工作簿合并方法没有提供模板。
学员的问题：在同一个文件夹内，有12个月份的增值税发票的工作簿，现在要将所有工作簿合并到汇总表。
原先的做法就是新建一个表格，复制粘贴内容，并重命名工作表名称；再新建一个表格，再复制粘贴内容，再重命名工作表名称……
重复以上操作12次，操作比较繁琐。有没更加便捷的方法，可以一次性搞定？
会计人，真的不是靠蛮干就可以，还需要有方法。
刚好，卢子私藏了一个模板，可以一键搞定这个问题，先来看看动画。点二维码运算代码，仅需几秒钟，喝口水的时间即可搞定。
只要是在同一个文件夹内的工作簿，不管多少个都可以合并，可以省去很多时间。
下载源文件，并将源文件放在你要合并的文件夹内，即可运行。
源文件：
https://pan.baidu.com/s/1UqRGU6FZvf1hZgeu2H3EFQ
源代码：
Sub 合并工作簿()
Dim Wb As Workbook, MyPath As String, File
Application.ScreenUpdating = False
Rem 关闭屏幕刷新
MyPath$ = ThisWorkbook.Path 1 ""
Rem 获取当前工作簿路径
File = Dir(MyPath 1 "*.xls*")
Rem 获取路径下所有Excel文件
Do While File <> "" '遍历所有文件
If File <> ThisWorkbook.Name Then '不合并当前工作簿
Set Wb = Workbooks.Open(MyPath 1 File)
Rem 依次打开工作簿
Sheets(1).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Rem 将第一个表复制到当前工作簿的最后一个工作表
Wb.Close False '关闭工作簿 不保存
End If
File = Dir
Rem 循环下一个工作簿
Loop
Application.ScreenUpdating = False
Rem 打开屏幕刷
End Sub
推荐：多表多工作簿，合并拆分随心所欲
上篇：全年12个月最简单的统计方法
最近有不少人在玩这个测试，你最希望2019年发生的五件事是什么？
作者：卢子，清华畅销书作者，《Excel效率手册 早做完，不加班》系列丛书创始人，个人公众号：Excel不加班（ID：Excelbujiaban）
长按二维码，识别关注
请把「Excel不加班」推荐给你的朋友和同事
本文标题：一键合并，12个增值税发票的工作簿
- 相关推荐
【一键合并，12个增值税发票的工作簿】相关文章：