与 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 & ""

Rem 获取当前工作簿路径

File = Dir(MyPath & "*.xls*")

Rem 获取路径下所有Excel文件

Do While File <> "" '遍历所有文件

If File <> ThisWorkbook.Name Then '不合并当前工作簿

Set Wb = Workbooks.Open(MyPath & 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个增值税发票的工作簿

提示：如果您觉得本文不错，请点击分享给您的好友！谢谢

其他美文推荐：520诗词丨这些诗，是最美的情书
其他美文推荐：励志短句霸气 励志名言短句霸气大全