发布日期：2024-12-20 07:19 点击次数：83
图片狠狠干性图片
对于多表多责任簿合并，写了多量著作，不外刚好这种多责任簿合并时期莫得提供模板。
学员的问题：在归拢个文献夹内，有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不加班」推选给你的一又友 本站仅提供存储做事，总计本色均由用户发布，如发现存害或侵权本色，请点击举报。