Function Sovpad(A, B, C, ParamArray z())
    If A = "" Then
        Sovpad = ""
    Else
        For i = 0 To UBound(z)
            n_ = n_ + z(i).Count
        Next i
        ReDim ar(n_ - 1)
        For i = 0 To UBound(z)
            For j = 1 To z(i).Count
                ar(nn_) = z(i)(j).Value
                nn_ = nn_ + 1
            Next j
        Next i
        If n_ Mod 2 Then
            Sovpad = "Неверное кол-во ячеек в 4-м и далее аргументах"
        Else
            k_ = n_ / 2
            If UCase(B) <> UCase(C) 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