Excel vba 实例(17) - 遍历多个工作簿并提取内容到总表

[h3]问题[/h3]上次介绍了一个vba实例：Excel vba 实例(16) - 按指定字段分类批量提取内容
这个例子是把总表里面的数据根据单号批量提取相关内容后，分别保存成单独的文件。
有「拆」表格，自然就有「合并」表格，也就是上面

实例（16）的逆操作

复制代码

，那么今天的例子就来说说

如何用vba遍历多个工作簿并提取内容到总表。

复制代码

举例如下：
现在有两张格式一样但内容不同的表，设为表一和表二，如下图

其中表二里面有两个sheet。
我们需要把这两个表中的三个sheet按照单号这个字段，统一提取内容到一个表格当中去，效果如下图：

[h3]思路[/h3]遍历文件夹里面所有的excel文件，如果你里面有多个sheet，每个sheet也都遍历一遍，然后单号以及其他内容所在的单元格依次复制到总表当中即可。
核心代码如下：
[code]While X