Question

要求： VBA 多条件求和

将A列中所有 为“A” 的所对应的B~I列中的"0" 下面对应的数值相加放在 cells(13,3).
所有 为“A” 的所对应的B~I列中的"1" 下面对应的数值相加放在 cells(13,4).以此类推。
所有 为“B” 的所对应的B~I列中的"0" 下面对应的数值相加放在 cells(14,3).

Answer 1

sub mysum ()
dim arr,x%,y%
arr=range("A2:I11").value
cells(13,3).resize(1,2).clearcontents
cells(14,3).clearcontents
for x=1 to ubound(arr) step 2
for y=2 to ubound(arr,2)
if arr(x,1)="A" and arr(x,y)=0 then
cells(13,3)=cells(13,3)+arr(x+1,y)
elseif arr(x,1)="A" and arr(x,y)=1 then
cells(13,4)=cells(13,4)+arr(x+1,y)
elseif arr(x,1)="B" and arr(x,y)=0 then
cells(14,3)=cells(14,3)+arr(x+1,y)
end if

next y
next x

end sub

Answer 2

公式能解决的,为什么要用宏呢?

追问

因为我们要做一个模板出来， 这个是要求动态变化的。