關(guān)于多表多工作簿合并，寫了無數(shù)文章，不過剛好這種多工作簿合并方法沒有提供模板。

學(xué)員的問題：在同一個(gè)文件夾內(nèi)，有12個(gè)月份的增值稅發(fā)票的工作簿，現(xiàn)在要將所有工作簿合并到匯總表。

原先的做法就是新建一個(gè)表格，復(fù)制粘貼內(nèi)容，并重命名工作表名稱；再新建一個(gè)表格，再?gòu)?fù)制粘貼內(nèi)容，再重命名工作表名稱……

重復(fù)以上操作12次，操作比較繁瑣。有沒更加便捷的方法，可以一次性搞定？

會(huì)計(jì)人，真的不是靠蠻干就可以，還需要有方法。

剛好，盧子私藏了一個(gè)模板，可以一鍵搞定這個(gè)問題，先來看看動(dòng)畫。點(diǎn)二維碼運(yùn)算代碼，僅需幾秒鐘，喝口水的時(shí)間即可搞定。

只要是在同一個(gè)文件夾內(nèi)的工作簿，不管多少個(gè)都可以合并，可以省去很多時(shí)間。

下載源文件，并將源文件放在你要合并的文件夾內(nèi)，即可運(yùn)行。

源文件：

https://pan.baidu.com/s/1UqRGU6FZvf1hZgeu2H3EFQ

源代碼：

Sub 合并工作簿()

    Dim Wb As Workbook, MyPath As String, File

    Application.ScreenUpdating = False

    Rem 關(guān)閉屏幕刷新

    MyPath$ = ThisWorkbook.Path & "\"

    Rem 獲取當(dāng)前工作簿路徑

    File = Dir(MyPath & "*.xls*")

    Rem 獲取路徑下所有Excel文件

    Do While File <> "" '遍歷所有文件

        If File <> ThisWorkbook.Name Then '不合并當(dāng)前工作簿

            Set Wb = Workbooks.Open(MyPath & File)

            Rem 依次打開工作簿

            Sheets(1).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

            Rem 將第一個(gè)表復(fù)制到當(dāng)前工作簿的最后一個(gè)工作表

            Wb.Close False '關(guān)閉工作簿 不保存

        End If

        File = Dir

        Rem 循環(huán)下一個(gè)工作簿

    Loop

    Application.ScreenUpdating = False

    Rem 打開屏幕刷

End Sub