VBA中SUMIFS怎么用

`SUMIFS`是一个Excel函数，用于根据多个条件对范围中的数值进行求和。在VBA中，你可以使用`WorksheetFunction.SumIfs`方法来模拟此功能。

下面是一个示例代码，演示如何在VBA中使用`SUMIFS`：

Sub SumIfsExample()
    Dim myRange As Range
    Dim result As Double
    
    '设置范围
    Set myRange = Range("A1:C10")
    
    '设置条件
    Dim criteriaRange1 As Range
    Dim criteriaRange2 As Range
    Dim criteria1 As Variant
    Dim criteria2 As Variant
    
    Set criteriaRange1 = Range("A1:A10") '第一个条件所在范围
    Set criteriaRange2 = Range("B1:B10") '第二个条件所在范围
    criteria1 = "apple" '第一个条件
    criteria2 = "red" '第二个条件
    
    '求和
    result = WorksheetFunction.SumIfs(myRange.Columns(3), criteriaRange1, criteria1, criteriaRange2, criteria2)
    
    '输出结果
    MsgBox "The sum is: " & result
End Sub

在这个示例中，我们首先定义了一个范围`myRange`，然后定义了两个条件`criteria1`和`criteria2`，并将它们与其所在的条件范围`criteriaRange1`和`criteriaRange2`相关联。最后，我们使用`WorksheetFunction.SumIfs`方法来计算`myRange`范围中符合两个条件的所有单元格的和，并将结果存储在`result`变量中。最后，我们使用`MsgBox`函数来输出结果。

请注意，在使用`WorksheetFunction.SumIfs`方法时，你需要将条件范围和条件值分别作为参数传递给该方法。如果你有多个条件，你需要多次重复这个过程。