excel公式如何用VBA实现？求教高手

Question

dim x as integer
for x=2 to100
下面就是我要求公式 cells(x,4)=sumproduct(cx:aefx*(mod(column(cx:aefx)3)=1)) 求教告送怎么用VBA实现啊

Answer 1

cells(x,4) = "=sumproduct(c" & x & ":aef" & x & "*(mod(column(c" & x & ":aef" & x & ")3)=1))"
试试吧追问

还是不对啊

追答

你的公式有问题——函数MOD的第2个参数3与第1个参数之间应该有一个英文逗号,
cells(x,4) = "=sumproduct(c" & x & ":aef" & x & "*(mod(column(c" & x & ":aef" & x & "),3)=1))"

追问

能执行了，问题是被加的数据自动清零，合计也出不来了

追答

这个问题应该不是以上这句代码造成的，所以，对于其他问题也就不敢妄言。