Public arrRes As Variant
'Public bVBA As BedvitCOM.VBA
Public arrV As Variant
Public bvParam() As Variant

Function SUMIFS2(ParamArray argArr() As Variant)
'    Dim bVBA As BedvitCOM.VBA
    Dim i&, n&, clmn&, clmBgn&, clmEnd&, clmnS&(), Ub&, Ub2&
    Dim Rng As Range, Sh As Worksheet
    Ub = UBound(argArr)
    Ub2 = Ub / 2
    ReDim clmnS(0 To Ub2)
    ReDim bvParam(1 To Ub2, 1 To 6)          'массив параметров для функции bVBA.arrayFilterV()
    clmnS(0) = argArr(0).Column               'номер суммируемого столбца
    Set Sh = argArr(0).Worksheet
    n = 1
    For i = 1 To Ub Step 2
          clmnS(n) = argArr(i).Column
          bvParam(n, 1) = 1                     'и
'         bvParam(n, 3) = clmnS(n)              'столбец
          bvParam(n, 4) = 2                     'равно
          bvParam(n, 5) = argArr(i + 1)         'значение
          n = n + 1
    Next
    With WorksheetFunction
        clmBgn = .Min(clmnS)                    'первый столбец диапазона
        clmEnd = .Max(clmnS)                    'последний столбец диапазона
    End With
    For n = 1 To Ub2
          bvParam(n, 3) = clmnS(n) - clmBgn + 1 'столбец (с поправкой на начало диапазона)
    Next
    With Sh.UsedRange
        Set Rng = Range(.Columns(clmBgn), .Columns(clmEnd))
    End With
    arrV = Rng.Value
'    bVBA.ArrayFilterV arrV, bvParam, 0, arrRes
'    ***
    
    SUMIFS2 = bvParam
End Function

Option Explicit
Dim bCOMvba  As New BedvitCOM.VBA 'раннее связывание

Function SUMIFS2(rngIn As Range, columnSum As Long, column1 As Long, filtr1 As Variant, Optional column2 As Long, Optional filtr2 As Variant, Optional column3 As Long, Optional filtr3 As Variant, Optional column4 As Long, Optional filtr4 As Variant, Optional column5 As Long, Optional filtr5 As Variant, Optional column6 As Long, Optional filtr6 As Variant, Optional column7 As Long, Optional filtr7 As Variant) As Double
    Dim p, arrRes, arrIn, x As Long, c As Long, res As Double ' i As Long, x As Long,
    
    If column1 > 0 Then c = c + 1: If column2 > 0 Then c = c + 1: If column3 > 0 Then c = c + 1: If column4 > 0 Then c = c + 1: If column5 > 0 Then c = c + 1: If column6 > 0 Then c = c + 1: If column7 > 0 Then c = c + 1
    ReDim p(c - 1, 5)
    If column1 > 0 Then p(x, 0) = 1: p(x, 1) = 0: p(x, 2) = column1: p(x, 3) = 2: p(x, 4) = filtr1: p(x, 5) = 0: x = x + 1
    If column2 > 0 Then p(x, 0) = 1: p(x, 1) = 0: p(x, 2) = column2: p(x, 3) = 2: p(x, 4) = filtr2: p(x, 5) = 0: x = x + 1
    If column3 > 0 Then p(x, 0) = 1: p(x, 1) = 0: p(x, 2) = column3: p(x, 3) = 2: p(x, 4) = filtr3: p(x, 5) = 0: x = x + 1
    If column4 > 0 Then p(x, 0) = 1: p(x, 1) = 0: p(x, 2) = column4: p(x, 3) = 2: p(x, 4) = filtr4: p(x, 5) = 0: x = x + 1
    If column5 > 0 Then p(x, 0) = 1: p(x, 1) = 0: p(x, 2) = column5: p(x, 3) = 2: p(x, 4) = filtr5: p(x, 5) = 0: x = x + 1
    If column6 > 0 Then p(x, 0) = 1: p(x, 1) = 0: p(x, 2) = column6: p(x, 3) = 2: p(x, 4) = filtr6: p(x, 5) = 0: x = x + 1
    If column7 > 0 Then p(x, 0) = 1: p(x, 1) = 0: p(x, 2) = column7: p(x, 3) = 2: p(x, 4) = filtr7: p(x, 5) = 0: x = x + 1
    
    arrIn = rngIn
    bCOMvba.ArrayFilterV arrIn, p, 1, arrRes 'применяем фильтр
    
    For x = 1 To UBound(arrRes)
       SUMIFS2 = SUMIFS2 + arrIn(arrRes(x), columnSum)
    Next
End Function

Option Explicit

Sub TestBV()
Dim Bed As New BedvitCOM.VBA
Dim arr, p, n&
 
arr = Array("маша", "саша", "где ваша маша", "где маша", "а саша где", "где все дети", "маша и саша потеряны")
 
ReDim p(1 To 3, 1 To 6)
 
p(1, 1) = 0: p(1, 2) = "(": p(1, 3) = 1: p(1, 4) = 256:       p(1, 5) = "*маша*": p(1, 6) = ""
p(2, 1) = 1: p(2, 2) = "":  p(2, 3) = 1: p(2, 4) = 256 + 512: p(2, 5) = "*ваша*": p(2, 6) = ")"
p(3, 1) = 0: p(3, 2) = "":  p(3, 3) = 1: p(3, 4) = 256:       p(3, 5) = "*саша*": p(3, 6) = ""
 
Bed.ArrayFilterV arr, p, False, arr
 
For n = 0 To UBound(arr)
    Debug.Print n, arr(n)   ' маша, саша
Next n
 
End Sub