Question

VBA函数高手请进

我在
B2到AN2
B3到AN3
这些格里各有0到15这个数字,我现在想用函数把上下两行里同时有1的单元格计算出来,可以吗?函数是什么写的
如:B2,C2都有1,D2,D3也有1就可以.

Answer 1

=SUMPRODUCT((--B2:AN2=1)*(--B3:AN3=1))

Answer 2

你在D2输入=IF(AND(B2=C2,B2=1),1,"")然后往下拖或双击黑十字

Answer 3

没必要用VBA，用公式即可
如在空单元格里输入下面的公式，再按Ctrl+Shift+Enter就可以计算出来了：

=SUM(IF(B2:AN2=B3:AN3,1))

用VBA也可以，很简单的循环即可：

Sub Cal()
dim t, i as integer

t=0
for i = 2 to 40
if cells(2,i)=cells(3,i) then t=t+1
next

End Sub