发布日期：2025-05-10 19:53    点击次数：145

迷水商城迷水商城 与 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

陪你学Excel，一世够不够？

图片

请把「Excel不加班」推选给你的一又友 本站仅提供存储就业，所有实践均由用户发布，如发现存害或侵权实践，请点击举报。

---