图片
关于多表多工作簿合并，写了无数文章，不过刚好这种多工作簿合并方法没有提供模板。
学员的问题：在同一个文件夹内，有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
陪你学Excel，一生够不够？图片
请把「Excel不加班」推荐给你的朋友 本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。