在职场办公的时候，有时，因工作需求，需要对上百家、上千家门店上传的电子文档进行统一收集和汇总。如果一张一张表格进行复制粘贴，时间太浪费和精力了，而且稍微不注意，就容易漏掉或多复制一次，容易出错。所以，这里就需要一些小技巧来实现。本人，一般喜欢用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、等待
