「Excel技巧」批次將多個工作簿的工作表合併到一個工作簿中

多個工作簿裡的表格合併到一個工作簿中，在日常工作中應該經常碰到吧。

怎麼合併會比較快又省事？

當然，肯定不是複製貼上，要合併的工作簿多的情況下，這種方式很耗力氣。

不妨，試試用VBA程式碼法。

今天來講講如何利用VBA程式碼法快速將多個工作簿合併成一個工作簿。

具體操作步驟：

1、新建一個工作簿，併為其命名，本例中我們將其命名為【工資存放工作薄】；

2、開啟新建的此工作簿，即【工資存放工作薄】，並在裡面任意一個工作表標籤上點選右鍵—【檢視程式碼】；

3、然後在開啟的VBA編輯視窗中貼上以下程式碼：

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

如下圖所示：

4、點選【執行】—【執行子過程/使用者窗體】；

5、在彈出的【宏】對話方塊裡，點選【執行】；

6、然後彈出選擇【合併工作簿】對話方塊，選擇要合併的幾個工作簿；

7、最後等待執行完畢，幾個工作簿就合併完成了。

這時我們開啟工作簿名稱為【工資存放總表】檔案，就可以看到原先的幾個工作簿，即原本以6個工作簿形式分開存放的1-6月工資表，分別以6個sheet頁形合併到這一個工作簿中。