[已解决]求和

lgzxmlg

对A、B符合条件对应的数据求和。 求和.zip (2.04 KB, 下载次数: 20)

2011-11-17 11:01 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

lisachen

2011-11-17 11:45

Sub d()
    Dim arr
    Dim x, a, b
    arr = Range("a2:c" & Range("a65536").End(3).Row)
    For x = 1 To UBound(arr)
        If arr(x, 1) > 35 Then a = a + arr(x, 3)
        If arr(x, 2) > 35 Then b = b + arr(x, 3)
    Next
    MsgBox "a=" & a
    MsgBox "b=" & b
End Sub

1. Sub d()
   
2.     Dim arr
   
3.     Dim x, a, b
   
4.     arr = Range("a2:c" & Range("a65536").End(3).Row)
   
5.     For x = 1 To UBound(arr)
   
6.         If arr(x, 1) > 35 Then a = a + arr(x, 3)
   
7.         If arr(x, 2) > 35 Then b = b + arr(x, 3)
   
8.     Next
   
9. '    MsgBox "a=" & a
   
10. '    MsgBox "b=" & b
    
11.     [h1] = a
    
12.     [h2] = b
    
13. End Sub
    

复制代码

跳转到最佳答案楼层

无聊的疯子

这个用函数简单些，

=SUMIF(A:A,">35",C:C)    A列的
=SUMIF(B:B,">35",C:C)    B列的

lisachen

Sub d()
    Dim arr
    Dim x, a, b
    arr = Range("a2:c" & Range("a65536").End(3).Row)
    For x = 1 To UBound(arr)
        If arr(x, 1) > 35 Then a = a + arr(x, 3)
        If arr(x, 2) > 35 Then b = b + arr(x, 3)
    Next
    MsgBox "a=" & a
    MsgBox "b=" & b
End Sub

1. Sub d()
   
2.     Dim arr
   
3.     Dim x, a, b
   
4.     arr = Range("a2:c" & Range("a65536").End(3).Row)
   
5.     For x = 1 To UBound(arr)
   
6.         If arr(x, 1) > 35 Then a = a + arr(x, 3)
   
7.         If arr(x, 2) > 35 Then b = b + arr(x, 3)
   
8.     Next
   
9. '    MsgBox "a=" & a
   
10. '    MsgBox "b=" & b
    
11.     [h1] = a
    
12.     [h2] = b
    
13. End Sub
    

复制代码