使用方法：

1、新建一個工作薄，將其命名為你合併後的名字。

2、開啟此工作薄。

4、在開啟的VBA編輯視窗中貼上以下程式碼：Sub 工作薄間工作表合併()Dim FileOpenDim X As IntegerApplication.ScreenUpdating = FalseFileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel檔案(*.xls),*.xls", MultiSelect:=True, Title:="合併工作薄")X = 1While X

首先每個檔案叫工作簿，工作簿裡面有多個表格。同時開啟兩個檔案（即工作簿），選中需要移動的表的標籤，點右鍵，選擇“移動或複製工作表”，在“工作簿”的下拉選單中，選擇目標工作簿，點確定即可。（如果需要在原工作簿保留原表，可勾上“建立副本”）

1、如下圖資料夾中含有六個工作簿，現在想要將這六個工作簿合併到一個工作簿中。

2、然後新建一個工作簿。

3、點選下圖選項。

4、點選【彙總拆分】。

5、選擇【合併多簿】。

6、勾選【未開啟檔案】。

7、點選【新增檔案】選擇要合併的工作簿新增進去。

8、點選【確定】即可完成。

9、完成效果如下圖。

在檔案1的sheet欄右鍵 “選定所有sheet”，然後再右鍵選擇“移動或複製”，會出現一個選框，你可以選擇你要移動過去的excel檔案或新建excel，選擇之後你可以選擇是放到裡面某個sheet頁的前面或後面，其他的檔案也同樣操作就ok了