数组公式用VBA怎么怎么编写？？？

如何用VBA表示以下的数组公式？？？

={SUM(('1'!$R$7:$R$15000=TODAY())*('1'!$I$7:$I$15000="A")*('1'!$F$7:$F$15000))+SUM(('1'!$R$7:$R$15000=TODAY())*('1'!$I$7:$I$15000="A")*('1'!$L$7:$L$15000="定金")*('1'!$K$7:$K$15000))+SUM(('1'!$R$7:$R$15000=TODAY())*('1'!$I$7:$I$15000="A")*('1'!$L$7:$L$15000="减款")*('1'!$K$7:$K$15000))}

都用VBA了，一般就不要用公式了。。。

二楼正解,不需公式了。

VBA可以的 我昨天就看教程上 就有数组公式的代码。
Sheet2.Range("C4").FormulaArray = "SUM(('1'!$R$7:$R$15000=TODAY())*('1'!$I$7:$I$15000="A")*('1'!$F$7:$F$15000))+SUM(('1'!$R$7:$R$15000=TODAY())*('1'!$I$7:$I$15000="A")*('1'!$L$7:$L$15000="定金")*('1'!$K$7:$K$15000))+SUM(('1'!$R$7:$R$15000=TODAY())*('1'!$I$7:$I$15000="A")*('1'!$L$7:$L$15000="减款")*('1'!$K$7:$K$15000))"
Sheet2.Range("C4"). 这个是单元格的表示方法。你自己根据你的表和单元格 改下。

[ 本帖最后由 panan123_0 于 2011-8-8 12:51 编辑 ]

我一般定义数组变量，实用循环解决。