Excel工作簿中有多个表头相同的工作表，合并成一张工作表

在一个工作簿文件下，有多个相同表头的工作表，合并到一个工作表中。

比如在工作簿文件中有[北京部门]、[上海部门]、[广州部门]、[天津部门]4张工作表，表头相同，要求合并到当前工作簿[合并]表中。见下图：

常规操作方法：

把所有表中的内容复制粘贴过去，如果有更多的相同表头的工作表，那么复制粘贴的操作就会用时间比较久，工作量比较大，为了能够快速将其合并。可以采纳VBA代码一键完成。

Excel VBA解决方法：

第一步：创建模块，单击【开发工具】-【Visual Basic】，打开窗口，单击【插入】-【模块】，见下图：

第二步：书写VBA 代码，在【模块1】里书写代码（代码在文章末尾）见下图，

第三步：运行，查看合并结果。见下图：

或者是在[合并]工作表中定义按钮，单击【开发工具】-【插入】-【按钮】，鼠标拖拽绘制一个按钮，在弹出的对话框中，选择“hebing”，单击【确定】，然后单击按钮完成合并。