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