在職場辦公的時候，有時，因工作需求，需要對上百家、上千家門店上傳的電子文檔進行統一收集和彙總。如果一張一張表格進行復制粘貼，時間太浪費和精力了，而且稍微不注意，就容易漏掉或多複製一次，容易出錯。所以，這裡就需要一些小技巧來實現。本人，一般喜歡用Excel插件，因為不用熟記VBA和函數，動動手指就可以實現。
如圖所示，這裡有20多張表，我現在要將這些表全放在一個工作簿中。
如何實現下圖效果：
點擊-百寶箱-財務工具箱-工作薄或工作表合併
彈出工作薄合併選項框，按照下面圖示操作即可彙總
其中，它有提示你，是多工作簿合併?還是多工作表合併?以及使用說明.
這裡你可以自己下載摸索一下，很簡單的
點擊確定後，自動將同一文件裡的工作表，全部彙總在一個工作簿裡，工作簿裡自動生成一個彙總目錄，還列舉了這些工作表清單出來，一目瞭然，清清楚楚。
在這裡，你還可以可以用它的另一個功能，創建工作表連接
點擊工作表名稱，自動跳轉到相應的工作表
當然，其他插件也能實現這個效果，如前面介紹的常用工具
打開一個工作簿，再雙擊這個表
點擊啟動宏
點擊合併
彈出選項框，根據需求選擇
點擊確定
當然，你也可以直接VBA運行
代碼如下
一樣可以實現
代碼：
Sub 工作薄間工作表合併()
Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen =
Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", 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
使用方法：
1、新建一個工作薄，將其命名為你合併後的名字。
2、打開此工作薄。
3、在其下任一個工作表標籤上點擊右鍵，選擇“查看代碼”。
4、在打開的VBA編輯窗口中粘貼以上代碼：
5、關閉VBA編輯窗口。
6、在excel中，工具---宏---宏,選“工作薄間工作表合併”,然後“執行”。
7、在打開的對話窗口中，選擇你要合併的N個工作薄。
8、等待
