本例介绍如何在excel裏利用VBA代码快速将同一工作簿中的多个工作表数据合并到一个工作表中方便查找和汇总。

1. 原始数据所在工作簿包含多个格式相同的工作表只不过每个工作表内容不同，比如说不同人名的工作表数据或者不同部门填写的数据

2. 在原始数据同目录下新建一个工作簿，建立两個工作表名称分别为“首页”和“合并汇总表”。

3. 按Alt+F11进入VBA代码编辑和调试界面

4. 根据下图提示，插入一个模块

5. 将下述代码粘贴到模块涳白处：

6. 在“首页”工作表中按下图示范插入一个窗体控件并指定宏为插入的代码名称。

7. 点击“首页”工作表中插入的按钮根据提示，瀏览到原始数据工作簿

8. 下一步，用鼠标选择要合并的数据范围

   注意：每个工作表数据可能不一样，比如说有的是10行数据有的是30行数據。在这里我们可以用鼠标选择任意工作表的一个较大范围比如说A1:D100，保证比最多行数的工作表数据还多就可以一会再删除空行。

9. 点击確定按钮待代码运行完毕后，所有的数据就都合并到了“合并汇总表”中

   1）A列的文本说明右侧的数据来自于原始数据表的哪个工作表；

   2）数据之间会有一些空行，下面通过筛选删除

10. 选中全部数据区域，执行自动筛选然后选择其中一个字段，选择“空白”和标题内容

11. 然后将筛选出来的无用行鼠标右键删除，再删除A列整列即可完成效果如下图：

• 如果您觉得此经验有用，可以点击本页面右上方的【大拇指】图案和【收藏按钮】或者右下方的【分享】按钮也可以点击本注意事项下方的【收藏】按钮。

• 如需要了解更多内容可以百度搜索“百度经验shaowu459”或到百度知道向我提问。