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

開啟此工作薄

按下ALT+F11，調出VBA編輯介面

在開啟的VBA編輯視窗中貼上以下程式碼：（根據需要修改xls或者xlsx）

Sub 多表多檔案合併為多表一檔案()

Dim FileArray

Dim X As Integer

Application.ScreenUpdating = False

FileArray = Application.GetOpenFilename(FileFilter:="Microsoft Excel檔案(*.xls),*.xls", MultiSelect:=True, Title:="合併工作薄")

X = 1

While X <= UBound(FileArray)

Workbooks.Open Filename:=FileArray(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

關閉VBA編輯視窗

在Excel表格介面中，選擇 開發工具---宏---宏,選“多表多檔案合併為多表一檔案”,然後“執行”。

如果找不到“開發工具”，說明還沒有設定顯示出來。一般OFFICE預設不顯示這個選單項。設定顯示“開發工具”可參考如下連結。

0

Excel VBA找不到“開發工具”如何設定顯示

在開啟的對話視窗中，選擇需要合併的多個工作薄

等待Excel自動處理完成