工作中經常會遇到這樣的情況，上級部門在收集了下級部門的Excel工作薄後，需要將資訊彙總到一個工作表中，透過複製貼上的話，這個過程枯燥乏味，如果出錯就得不償失了。Microsoft Excel版本太低，沒有那麼多的功能來方便我們的工作，那麼只能透過“萬能”的VBA來實現了。

Microsoft Excel快速合併多個工作簿至一個工作簿中詳細操作流程：

步驟一：首先將需要合併的Microsoft Excel工作薄放在一個資料夾中，然後在這個資料夾中新建一個Microsoft Excel工作表，並重命名為【合併.xlsx】。左鍵雙擊開啟【合併.xlsx】Microsoft Excel工作表。右鍵單擊【合併】工作表後，左鍵單擊右鍵選單中的【檢視程式碼(V)】選項，開啟【Visual Basic編輯器】。

步驟二：編輯VBA程式碼。左鍵單擊選中【Sheet1 合併】後，在右側程式碼視窗中鍵入以下程式碼，您也可以選擇複製貼上，請注意程式碼中的標點符號為英文標點符號。程式碼輸入完成後，同時按下鍵盤上的【Ctrl + S】鍵儲存程式碼，先左鍵單擊【Microsoft Excel】對話方塊中的【是（Y）】按鈕，再左鍵單擊【Microsoft Excel】對話方塊中的【確定】按鈕，最後關閉【Visual Basic編輯器】即可完成程式碼編輯。

Sub 合併工作薄()

Dim FileOpen

Dim X As Integer

Application.ScreenUpdating = False

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

X = 1

While X <= UBound(FileOpen)

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

步驟三：Microsoft Excel快速合併多個工作簿至一個工作簿使用方法。執行VBA程式碼，首先需要在選單欄中顯示【開發工具】。顯示【開發工具】詳細操作流程請參照：PPT小技巧：如何把影片嵌入到PPT簡報中合併成一個檔案？PPT和Excel操作流程基本一致。左鍵單擊選單欄中的【開發工具】選項卡，左鍵單擊【程式碼】功能區中的【宏】按鈕。左鍵單擊選中【宏】對話方塊中的【Sheet1.合併工作薄】後，左鍵單擊【執行（R）】按鈕。

步驟四：在彈出的【合併工作薄】對話方塊中，長按鍵盤上的【Ctrl】鍵，滑鼠左鍵單擊選中需要合併的Microsoft Excel工作表，這樣可以跳躍式選擇，當然【合併】工作表不需要選中，選擇完成後，左鍵單擊【開啟(O)】按鈕。等待片刻多個工作簿已經合併一個工作簿中啦！如想進一步操作請參照：Microsoft Excel怎麼快速合併當前工作簿下的所有工作表？

至此，Microsoft Excel快速合併多個工作簿至一個工作簿中操作流程已全部結束。

工作中經常會遇到這樣的情況，上級部門在收集了下級部門的Excel工作薄後，需要將資訊彙總到一個工作表中，透過複製貼上的話，這個過程枯燥乏味，如果出錯就得不償失了。Microsoft Excel版本太低，沒有那麼多的功能來方便我們的工作，那麼只能透過“萬能”的VBA來實現了。

Microsoft Excel快速合併多個工作簿至一個工作簿中詳細操作流程：

步驟一：首先將需要合併的Microsoft Excel工作薄放在一個資料夾中，然後在這個資料夾中新建一個Microsoft Excel工作表，並重命名為【合併.xlsx】。左鍵雙擊開啟【合併.xlsx】Microsoft Excel工作表。右鍵單擊【合併】工作表後，左鍵單擊右鍵選單中的【檢視程式碼(V)】選項，開啟【Visual Basic編輯器】。

步驟二：編輯VBA程式碼。左鍵單擊選中【Sheet1 合併】後，在右側程式碼視窗中鍵入以下程式碼，您也可以選擇複製貼上，請注意程式碼中的標點符號為英文標點符號。程式碼輸入完成後，同時按下鍵盤上的【Ctrl + S】鍵儲存程式碼，先左鍵單擊【Microsoft Excel】對話方塊中的【是（Y）】按鈕，再左鍵單擊【Microsoft Excel】對話方塊中的【確定】按鈕，最後關閉【Visual Basic編輯器】即可完成程式碼編輯。

Sub 合併工作薄()

Dim FileOpen

Dim X As Integer

Application.ScreenUpdating = False

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

X = 1

While X <= UBound(FileOpen)

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

步驟三：Microsoft Excel快速合併多個工作簿至一個工作簿使用方法。執行VBA程式碼，首先需要在選單欄中顯示【開發工具】。顯示【開發工具】詳細操作流程請參照：PPT小技巧：如何把影片嵌入到PPT簡報中合併成一個檔案？PPT和Excel操作流程基本一致。左鍵單擊選單欄中的【開發工具】選項卡，左鍵單擊【程式碼】功能區中的【宏】按鈕。左鍵單擊選中【宏】對話方塊中的【Sheet1.合併工作薄】後，左鍵單擊【執行（R）】按鈕。

步驟四：在彈出的【合併工作薄】對話方塊中，長按鍵盤上的【Ctrl】鍵，滑鼠左鍵單擊選中需要合併的Microsoft Excel工作表，這樣可以跳躍式選擇，當然【合併】工作表不需要選中，選擇完成後，左鍵單擊【開啟(O)】按鈕。等待片刻多個工作簿已經合併一個工作簿中啦！如想進一步操作請參照：Microsoft Excel怎麼快速合併當前工作簿下的所有工作表？

至此，Microsoft Excel快速合併多個工作簿至一個工作簿中操作流程已全部結束。