|
關(guān)于多表多工作簿合并，寫了無數(shù)文章，不過剛好這種多工作簿合并方法沒有提供模板。 學員的問題：在同一個文件夾內(nèi)，有12個月份的增值稅發(fā)票的工作簿，現(xiàn)在要將所有工作簿合并到匯總表。 
原先的做法就是新建一個表格，復制粘貼內(nèi)容，并重命名工作表名稱；再新建一個表格，再復制粘貼內(nèi)容，再重命名工作表名稱…… 
重復以上操作12次，操作比較繁瑣。有沒更加便捷的方法，可以一次性搞定？ 會計人，真的不是靠蠻干就可以，還需要有方法。 剛好，盧子私藏了一個模板，可以一鍵搞定這個問題，先來看看動畫。點二維碼運算代碼，僅需幾秒鐘，喝口水的時間即可搞定。 
只要是在同一個文件夾內(nèi)的工作簿，不管多少個都可以合并，可以省去很多時間。 下載源文件，并將源文件放在你要合并的文件夾內(nèi)，即可運行。 源文件： 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 獲取當前工作簿路徑 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 '關(guān)閉工作簿 不保存 End If File = Dir Rem 循環(huán)下一個工作簿 Loop Application.ScreenUpdating = False Rem 打開屏幕刷 End Sub
|
