[VBA程序]：偶数行求和问题

whygh · 发表于 2005-12-15 03:01:40

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

HI,

我想对偶数行求和,怎么写公式啊.

我现在使用循环写的,很笨的方法,不知道大家有什么好主意.

谢谢

xiaotang · 发表于 2005-12-15 10:14:05

先通过辅助列找到偶数列，然后求和即可
或者使用SUMIF函数

yi.gao · 发表于 2005-12-15 22:10:28

用数组公式就可以了，详见贴图中的公式。请注意数组公式的输入方法是F2然后ctrl+shift+enter。

yi.gao · 发表于 2005-12-15 22:13:45

同样道理，隔3行或者隔n行都可以用数组来求和。附图为隔3行求和公式。

yi.gao · 发表于 2005-12-15 22:27:03

再提供两种非数组公式的方法。

whygh · 发表于 2005-12-16 01:12:01

多谢各位.

我使用了最后的方法, 对偶数列求和.

ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT((RC[-100]:RC[-2])*Not(MOD(COLUMN(RC[-100]:RC[-2]),2)))"

第一个方法, 我得到的结果不对.

还有一个问题请教, 我想统计奇数列中大于0的个数,怎么写公式

再次感谢

liwenlongtea · 发表于 2005-12-17 21:56:15

sumprouct是什么函数

gouweicao78 · 发表于 2005-12-19 15:20:23

统计奇数列0的个数，假设数据在A1：H1，公式：
=SUMPRODUCT((A1:H1=0)*(MOD(COLUMN(A1:H1),2)))

to 楼上的：sumproduct()函数是数学与三角函数里的一个，返回相应的数组或区域乘积的和（看看函数帮助）
一般句式=sumproduct(条件1*条件2*条件3……*被统计区域)，或者=sumproduct(条件1*条件2*条件3……,被统计区域)，常用于计算多条件求和。其好处（相对sumif或者sum（if（）））句式就是不用按ctrl+shift+enter计算数组。

账号		自动登录	找回密码
密码			立即注册

[VBA程序]：偶数行求和问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Thanks