1.首先把需要合併的excel工作薄整理到一個資料夾中，如圖，用來合併到一起的工作薄的名字要注意，這裡取名叫“合併工作薄”。
2.開啟這個excel表，直接按鍵ALT+F11，進入下圖介面。雙擊如圖所示位置的sheet1。
3.如圖，開啟準備好的VBA程式碼，複製到這個空白的程式碼編譯處，程式碼如下：Sub 工作薄間工作表合併()Dim FileOpenDim X As IntegerApplication.ScreenUpdating = FalseFileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel檔案(*.xls),*.xls", MultiSelect:=True, Title:="合併工作薄")X = 1While X <= UBound(FileOpen)Workbooks.Open Filename:=FileOpen(X)Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)X = X + 1WendExitHandler:Application.ScreenUpdating = TrueExit Suberrhadler:MsgBox Err.DescriptionEnd Sub4.注意事項，如圖，注意工作薄的名字，同時，注意程式碼中設定的excel版本。如果出現無法編譯的情況，可以用這個共享的txt。5.回到“合併工作薄”的excel表格中，如圖，點選工具（沒有的到excel的選項中新增），選擇宏。6.選擇宏以後會出現下圖介面，直接雙擊圖中選項。7.雙擊後彈出選擇待合併的資料夾中工作薄，直接全選要合併的工作薄即可。8.如圖，這就是合併後的效果，這兩個工作薄是下載的2014年的高考錄取分數線的內容，效果不錯，而且合併工作薄本身的工作表是不會被佔用的，是新建的工作表。
1.首先把需要合併的excel工作薄整理到一個資料夾中，如圖，用來合併到一起的工作薄的名字要注意，這裡取名叫“合併工作薄”。
2.開啟這個excel表，直接按鍵ALT+F11，進入下圖介面。雙擊如圖所示位置的sheet1。
3.如圖，開啟準備好的VBA程式碼，複製到這個空白的程式碼編譯處，程式碼如下：Sub 工作薄間工作表合併()Dim FileOpenDim X As IntegerApplication.ScreenUpdating = FalseFileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel檔案(*.xls),*.xls", MultiSelect:=True, Title:="合併工作薄")X = 1While X <= UBound(FileOpen)Workbooks.Open Filename:=FileOpen(X)Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)X = X + 1WendExitHandler:Application.ScreenUpdating = TrueExit Suberrhadler:MsgBox Err.DescriptionEnd Sub4.注意事項，如圖，注意工作薄的名字，同時，注意程式碼中設定的excel版本。如果出現無法編譯的情況，可以用這個共享的txt。5.回到“合併工作薄”的excel表格中，如圖，點選工具（沒有的到excel的選項中新增），選擇宏。6.選擇宏以後會出現下圖介面，直接雙擊圖中選項。7.雙擊後彈出選擇待合併的資料夾中工作薄，直接全選要合併的工作薄即可。8.如圖，這就是合併後的效果，這兩個工作薄是下載的2014年的高考錄取分數線的內容，效果不錯，而且合併工作薄本身的工作表是不會被佔用的，是新建的工作表。