上一节我们介绍了，表头不同的情况下，如何批量合并工作表，有读者问：
如果是多张工作簿、每个工作簿中又有多个工作表，且表头都不一样，那要如何批量合并呢？
多个工作簿：
每个工作簿中有多个工作表，表头不一样：
首先需要将待合并的工作簿放置于同一个文件夹内，支持Excel和WPS文件的混合汇总。
接着运行VBA代码块，选择刚才的文件夹，等待程序运行数秒，完成了表格的合并。
这里会将工作簿中涉及到的列全部展示，相同列内容合并到同一列，同时会在A列展示来源的工作簿，B列展示来源的工作表，方便数据核对。
工具表已放入专栏库，需要的小伙伴自行下载，文件编号【12】
你也可以直接复制下面的代码块，到Excel中去，运行即可完成汇总。
如何运行宏代码请参考专栏首篇文章。
----------------------------------------------------------分隔线----------------------------------------------------
Sub 合并多工作簿不同表头的所有工作表()
On Error Resume Next
Set d = CreateObject("scripting.dictionary")
Set file = Application.FileDialog(msoFileDialogFolderPicker)
With file
.Filters.Clear
.Title = "请选择文件夹"
购买专栏解锁剩余68%