在vba excel中，我正在尝试做一个类似countifs的函数，计算有多少个适合2个电路。小经验

Function CountCircuits(range1 As Range, criteria1 As Variant, range2 As Range, criteria2 As Variant) As Long
    Dim count As Long
    Dim cell1 As Range
    Dim cell2 As Range
    
    count = 0
    
    For Each cell1 In range1
        For Each cell2 In range2
            If cell1.Value = criteria1 And cell2.Value = criteria2 Then
                count = count + 1
            End If
        Next cell2
    Next cell1
    
    CountCircuits = count
End Function

=CountCircuits(A1:A10, "条件1", B1:B10, "条件2")