1:dim 语句定义变量
2：Application.ScreenUpdating = False为关闭VBA运行时，频繁读取屏幕。提高运行速度。子程序结束时要返回true 来开启屏幕刷新
3：分别利用with语句，把“台账汇总”及“项目付款明细”的相关数据放入目标数组
4：用for循环对比arr1（i,1）与arr（i,1）的结果，在用for循环放入相应的列。用了三个for循环进行嵌套
5：遍历工作薄下面各工作表的名称.sh.Name然后与brr的表格进行对比。相同则放入数据到crr数组
6：读取crr数组
7：开启屏幕刷新，对应第2条
实际运用大量的数据时，发现本例代码有一处问题，现修正如下：
此处的 j 修改成 i
大家觉得今天这种纯图片的文章，怎么样？
