最近做一个excel模板,用了vba做一些格式的东东,测试的时候没有问题,但正式使用的时候发现有问题。
通过调试发现,vba报了一个内存溢出的错误,继续跟踪调试,发现问题出在那个公式那里
Sheet1.Range("C" & (f1)).Formula = re
通过跟踪,发现此处报一个错误,公式太长,我晕。
该处公式做的是一个隔行求和的公式,因为数据量很大且是隔行求和,所以用的最原始的=C1+C4+.........,所以报错了。
百度之,原来有这方面的资料
Sheet1.Range("C" & (f1)).Formula = "=SUMPRODUCT((MOD(ROW(C7:C" & f1 - 1 & "),3)=1)*C7:C" & f1 - 1 & ")"
可以用SUMPRODUCT 来进行条件式的求和,网上有写用SUM的,经过试验这个是不行的。
SUMPRODUCT隔行求和具体说明
如下图,假设存在这样的一张数据表!
下面,我们要实现的效果是,实现隔行求和,和值放在F3单元格!
我们所要实现的隔行求和是这样的,每隔一行就进行一次求和;从E3到E10数据区域实现隔行求和!
将插入条定位到F3单元格,之后,在其对应的fx函数输入框内输入如下的命令:
=SUMPRODUCT((MOD(ROW(E3:E10),2)=1)*1,E3:E10)
然后直接按回车键即可完成!
如下图:
知识扩展:
①:每隔两行如何进行求和?
=SUMPRODUCT((MOD(ROW(E3:E10),2)=0)*1,E3:E10)
②:每隔三行如何进行求和:
=SUMPRODUCT((MOD(ROW(E3:E10),3)=0)*1,E3:E10)
③:每隔四行如何进行求和:
=SUMPRODUCT((MOD(ROW(E3:E10),4)=0)*1,E3:E10)
………………………………
通过上述分析,我们可以推出一个通用公式:
=SUMPRODUCT((MOD(ROW(数据区域),N)=0)*1,数据区域);其中,N为一个行值,N为多少即为隔多少行求一次和;