代码逻辑：

初始化arr数组。

制作一个字典获取函数getdict

第1步：获取“厂区”的字典dict1（不重复列表）

Set dict1 = CreateObject("scripting.dictionary")

第2步：获取“班组”的字典dict2（不重复列表）

Set dict2 = CreateObject("scripting.dictionary")

第3步：依据dict1和dict2的大小，在内存中分配brr匹配表格二，行列数已知

第4步：制作一个小函数

function 查找工资（厂区，班组）

这个小函数可以遍历arr数组，获取结果。

比如：查找工资（”A“，”1班“），可以获取结果1500，并直接写在brr中

网上很多VBA人写代码，从头到尾一个sub到底，这像拉面条一样，多个循环嵌套，也看不清内部逻辑。既不方面编写，也难以查错。自己调试也不方便，

而且这样的代码，还是知名大佬写的，完全带坏了新人，让新人望而生畏

第5步，双循环生成表格二，并计算累计值。

累计值可以分行向和列向统计，这个最简单。

做完这个小例子，就可以积累两个重要的通用函数：

这是可以通用的函数，可以方便移用到其他vba工程去。代码库也逐步积累。。。。