今天要讲的例子，是多工作簿不连续汇总。
问题如下：
解决的思路如下：
代码运行的结果如下：
代码如下:
)
代码解析
1：2~4行 DIM定义变量；
2：5、6、40、41行 关闭打开程序警告及屏幕刷新；
3：7行 获取当前工作簿的路径；
4：8行 获取当前文件夹下面的Excel文件；
5：9~38行 遍历所有的工作簿；
6：10行 判断工作簿的名称不为空，也不为当前工作表的名称；
7：11行 打开工作簿；
8：13~14行 把工作簿工作表的内容赋值给数组arr；
9：15~18行 遍历数据，查找“变式号”，并做相应的操作，把变式号下方的几行不连续单元格的内容赋值给数组brr；
10：20~23行 同样查找相应的关键字，然后记录需要的数据；
11：26行 关闭刚才打开的工作簿；
12：21行 新工作表的名称等于字典的key值；
13：29~35行 把相应的数据，赋值给相应的区域。
14：38行 继续遍历工作簿。
私信 视频 可以获取54集VBA入门视频
私信 VBA或 vba 可以获取文章中含VBA代码的Excle文件
分享到:
閱讀更多 浮雲Excel分享 的文章
