如何快速的合并多個工作簿，成為一個工作簿中多個工作表！
本方法簡單易操作，可以極大提高工作效率，節(jié)省時間。
1、打開一個Excel工作表，在任一工作表標(biāo)簽下右鍵——查看代碼
2、復(fù)制如下代碼并進(jìn)行粘貼
Sub 多工作簿合并()
Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:='Microsoft Excel文件(*.xls),*.xls', MultiSelect:=True, Title:='合并工作薄')
X = 1
While X <=>
Workbooks.Open Filename:=FileOpen(X)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
X = X + 1
Wend
ExitHandler: Application.ScreenUpdating = True
Exit Sub
errhadler:
MsgBox Err.Description
End Sub
3、關(guān)閉并返回Excel
4、Excel中選擇工具——宏——選擇“多工作簿合并”——執(zhí)行
5、選擇要合并的工作簿，靜靜等待！完成！
如果是 2007以上版本，把 代碼中的 xls 修改為 xlsx即可！
