之前的专栏内容有介绍过如何批量合并工作表，前提是每张表的表头要一致。
那么表头不一致的情况，如何批量合并？
下图一个工作簿中，有多张工作表，每个工作表的表头都不一样。
不一样地体现在这两个地方：
1、表头字段数不一样，有的多有的少；
2、字段顺序不一一样。
下来看下汇总的效果：
汇总结果会展示所有表格涉及到的列，且相同列内容合并展示，位置正确。
如果要汇总WPS文件，只需要在选择工作簿界面、下拉文件类型选择“WPS文件”即可。
模板表已放入专栏库，需要的小伙伴自行下载，文件编号【11】开头。
当然，你要可以复制以下这段代码，到Excel中运行。
如何运行VBA代码块详见专栏首篇文章。
---------------分割线---------------
Sub 合并单个工作簿下的所有不同表头的工作表()
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim i As Long, j As Long, a As Long, b As Long, t%
Dim Wb As Workbook, Sht As Worksheet
Dim Restrg, datas
Set d = CreateObject("scripting.dictionary")
a = 0:b = 2:i = 1:j = 1
购买专栏解锁剩余65%