如何快速的合并多個工作簿，成為一個工作簿中多個工作表！

本方法簡單易操作，可以極大提高工作效率，節(jié)省時間。

1、打開一個Excel工作表，在任一工作表標簽下右鍵——查看代碼

2、復制如下代碼并進行粘貼

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、關閉并返回Excel

4、Excel中選擇工具——宏——選擇“多工作簿合并”——執(zhí)行

5、選擇要合并的工作簿，靜靜等待！完成！

如果是 2007以上版本，把 代碼中的 xls 修改為 xlsx即可！