请使用数组法修改下附件里标注的代码块

天地一相

感谢帮助！详见代码和附件。

具体，附件代码里标注的1和2之间的代码需要使用数组法改动，结果返回的语句写在3的位置。sheet1为写入结果表，左上顶点是A2，宽度为表头区域。sheet2的左上顶点是A2，列范围也是该表表头的范围。目前是符合一条数据就在表1写入1行，想先汇总数据在数组，计算结束后一次性写入到表1.

补充：自己仿写了一段，没成功，仿写的代码添加在原代码的下面了，请看看哪里错了。

天地一相

顶一下，难住我了，期望你的帮助。