求助批量提取数据自动填表问题（查询提取填写数据）

wcc123

求助批量提取数据自动填表问题（查询提取填写数据）
        为套用模板，编写了一个test宏，实现了利用”模板表“，批量从各个明细表（如：”工资性收入“、“生产经营性收支”等工作表）中，自动提取有关数据，批量填写生成新表的功能，由于源数据（各明细工作表）数据量比较大，且零乱、规律性不强。现在，已从系统中，导出前三季度数据，在自动填表时，发现有时填写的数据会错位：
       1、运行“test宏”后生成的新表，“罗兴周、孔思荣、孔世军、孔世全、熊跃”5户的“工资性收入”从第二季度开始均填写错位（已在求助样例中标红）
       2、运行“test宏”后生成的新表，“孔世军“户的”生产经营性收支“提取填写错误（已标蓝，第三季度”种植业“中同时存在2个数据）、“熊跃“户的”生产经营性收支“第二季度”养殖业“数据也提取填写错误（已在求助样例中标蓝）
       3、本人检查后，发现源数据：”工资性收入“、“生产经营性收支”2个明细工作表中，”务工地点“和”产业类型、子类、品种“等部分单元格的值为空（已标红），不知道是不是”工资性收入“、“生产经营性收支”2个明细工作表杂乱，尤其是这些部分空字段影响到”字典“赋值，导致填写位置错位，请诸位大神指教，帮助修改完善VBA代码，谢谢！

林木水123

数组，crr出了问题，可能是因为：1.条件判断那有一些情况没有考虑到。2.数组扩充行列问题等

你自己写的，应该比较容易看明白~