Necesito realizar una macro que me cree la función si.conjunto()

Te anexo la Función SumarSiConjunto3 para sumar hasta 3 criterios de rangos

Function SumarSiConjunto3(rango_suma As Range, rango_criterios1 As Range, criterio1, _
                         Optional rango_criterios2 As Range, Optional criterio2, _
                         Optional rango_criterios3 As Range, Optional criterio3)
    Dim numeros()
    Dim criterios1()
    Dim criterios2()
    Dim criterios3()
    '
    If rango_suma.Count <> rango_criterios1.Count Then
        SumarSiConjunto3 = "#¡VALOR!, las matrices de suma y criterios no son del mismo tamaño"
        Exit Function
    End If
    ReDim numeros(rango_suma.Count - 1)
    ReDim criterios1(rango_criterios1.Count - 1)
    '
    If Not rango_criterios2 Is Nothing Then
        If rango_suma.Count <> rango_criterios2.Count Then
            SumarSiConjunto3 = "#¡VALOR!, las matrices de suma y criterios no son del mismo tamaño"
            Exit Function
        End If
        ReDim criterios2(rango_criterios2.Count - 1)
    End If
    '
    If Not rango_criterios3 Is Nothing Then
        If rango_suma.Count <> rango_criterios3.Count Then
            SumarSiConjunto3 = "#¡VALOR!, las matrices de suma y criterios no son del mismo tamaño"
            Exit Function
        End If
        ReDim criterios3(rango_criterios3.Count - 1)
    End If
    '
    n = 0
    For Each celda In rango_suma
        'valor = celda.Value
        numeros(n) = celda.Value
        n = n + 1
    Next
    n = 0
    For Each celda In rango_criterios1
        criterios1(n) = celda.Value
        n = n + 1
    Next
    If Not rango_criterios2 Is Nothing Then
        n = 0
        For Each celda In rango_criterios2
            criterios2(n) = celda.Value
            n = n + 1
        Next
    End If
    If Not rango_criterios3 Is Nothing Then
        n = 0
        For Each celda In rango_criterios3
            criterios3(n) = celda.Value
            n = n + 1
        Next
    End If
    '
    For i = 0 To rango_suma.Count - 1
        If criterios1(i) = criterio1 Then
            If Not rango_criterios2 Is Nothing Then
                If Not rango_criterios3 Is Nothing Then
                    If criterios2(i) = criterio2 Then
                        If criterios3(i) = criterio3 Then
                            wsuma = wsuma + numeros(i)
                        End If
                    End If
                Else
                    If criterios2(i) = criterio2 Then
                        wsuma = wsuma + numeros(i)
                    End If
                End If
            Else
                wsuma = wsuma + numeros(i)
            End If
        End If
    Next
    SumarSiConjunto3 = wsuma
End Function

Avísame si necesitas más rangos opcionales. E spero te funcione para lo que necesitas.

.

. S aludos. Dante Amor. R ecuerda valorar la respuesta. G racias

.

Te lo agradezco mucho! la verdad no te quiero molestar pero si agregar rangos opcionales no es complicado, me gustaría agregarlos, ya que tengo que anidar 7 funciones SI en mi excel.

Si no, te pido si me explicas como agregarlos y yo mismo lo hago.

De todas formas muchas Gracias!

A disculpa la función que necesito es SI.CONJUNTO() la cual reemplaza el SI()