图片好利来 丝袜

对于多表多责任簿合并，写了多数著述，不外刚好这种多责任簿合并才智莫得提供模板。

学员的问题：在脱色个文献夹内，有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

图片