与 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*")

9999adc

    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不加班」保举给你的一又友 本站仅提供存储处事，总共试验均由用户发布，如发现存害或侵权试验，请点击举报。