Function Sovpad(Условие_если_пусто, Имя_команды, Имя_команды_в_таблице, ParamArray Ячейки_для_совпадения())
    If Условие_если_пусто = "" Then
        Sovpad = ""
    Else
        For i = 0 To UBound(Ячейки_для_совпадения)
            n_ = n_ + Ячейки_для_совпадения(i).Count
        Next i
        ReDim ar(n_ - 1)
        For i = 0 To UBound(Ячейки_для_совпадения)
            For j = 1 To Ячейки_для_совпадения(i).Count
                ar(nn_) = Ячейки_для_совпадения(i)(j).Value
                nn_ = nn_ + 1
            Next j
        Next i
        If n_ Mod 2 Then
            Sovpad = "Неверное кол-во ячеек в 4-м и далее аргументах"
        Else
            k_ = n_ / 2
            If UCase(Имя_команды) <> UCase(Имя_команды_в_таблице) Then
                i0_ = k_
            End If
            On Error Resume Next
            For i = i0_ To i0_ + k_ - 1
                aaa = 1 / Replace(ar(i), "Да", 1)
                If Err Then
                    Sovpad = "Нет"
                    Exit Function
                End If
            Next i
            Sovpad = "Да"
        End If
    End If
End Function