函数中级班热身题：多条件求和!

colbylee

<p>Sub AA()<br/>Dim ArrYs, ArrDa<br/>ArrYs = [A2:C10]<br/>Dim I As Integer<br/>&nbsp;&nbsp;&nbsp; For I = 2 To 10<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If ArrYs(I - 1, 1) = "" Then ArrYs(I - 1, 1) = ArrYs(I - 2, 1)<br/>&nbsp;&nbsp;&nbsp; Next<br/>ArrDa = [E2:H7]<br/>&nbsp;&nbsp;&nbsp; For J = 2 To 7<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For I = 2 To 10<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If ArrDa(J - 1, 1) = ArrYs(I - 1, 1) And ArrDa(J - 1, 2) = ArrYs(I - 1, 2) Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ArrDa(J - 1, 4) = ArrDa(J - 1, 3) * ArrYs(I - 1, 3)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next<br/>&nbsp;&nbsp;&nbsp; Next<br/>[E2:H7] = ArrDa<br/>End Sub<br/></p><p>不会函数,用VBA练习一下</p>

zgwei050

游客，如果您要查看本帖隐藏内容请回复

yuanfang1025

<p>学习</p>

豆浆

学习来了

alen

<p>学习一下</p><p>&nbsp;</p><p>&nbsp;</p>

alen

好

DBZQZW

xuexi

sunyuliang

sUmif?回复不应当隐蔽

yl_li

游客，如果您要查看本帖隐藏内容请回复

muse1984115

学习