excel - Excel 使用 VBA 计算范围中的值是否满足某些条件

Question

我在excel中有两个范围，比如：

x   |    y
------------
 5  |   -1
46  |   -4
 2  |    1
67  |   -1
22  |    1
 6  |    0
34  |    0
 7  |   -2

只有当第一列中的相应值小于 10 （即 sum(y(i)fori<0和x(i)<10）时，我才想计算小于 O 的值的第二列的总和。因此，在这种情况下，总和将为-3。

Answer 1

假设您的标题在 A1:B1 并且您的数据是 A2:B9 使用这个：

=SUMIFS(B2:B9,A2:A9,"<10",B2:B9,"<0")

Answer 2

尝试类似的东西

Function calc() AS Integer

    Dim sum AS Integer: sum = 0
    Dim c AS Range

    For Each c In ThisWorkbook.Worksheets(1).Range("A1:A15")
        If c.Value < 10  And c.Offset(0, 1).Value < 0 Then
            sum = sum + c.Offset(0, 1).Value
        End If
    Next c

    calc = sum

End Function