Function Vlookup3Criteria(Table As Variant, SearchColumnNum1 As Long, SearchValue1 As Variant, SearchColumnNum2 As Long, SearchValue2 As Variant, SearchColumnNum3 As Long, SearchValue3 As Variant, N As Long, ResultColumnNum As Long)
    Dim i As Long, iCount As Long
    Select Case TypeName(Table)
    Case "Range"
        For i = 1 To Table.Rows.Count
            If Table.Cells(i, SearchColumnNum1) = SearchValue1 And Table.Cells(i, SearchColumnNum2) = SearchValue2 And Table.Cells(i, SearchColumnNum3) = SearchValue3 Then
                iCount = iCount + 1
            End If
            If iCount = N Then
                Vlookup3Criteria = Table.Cells(i, ResultColumnNum)
                Exit For
            End If
        Next i
    Case "Variant()"
        For i = 1 To UBound(Table)
            If Table.Cells(i, SearchColumnNum1) = SearchValue1 And Table.Cells(i, SearchColumnNum2) = SearchValue2 Then iCount = iCount + 1
            If iCount = N Then
                Vlookup3Criteria = Table(i, ResultColumnNum)
                Exit For
            End If
        Next i
    End Select
End Function
 

=Vlookup3Criteria(A10:E1498;1;A4;2;"Включить";3;A5;ЕСЛИ(ЕПУСТО(A4);"";СЧЁТЕСЛИМН(A10:A1498;A4;B10:B1498;"Включить";C10:C1498;A5));5)
 

 Function Получить_ссылку(ByVal rCell As Range) As String
    Dim s As String
    If rCell.Hyperlinks.Count = 0 Then
        If Mid$(rCell.Formula, 2, 9) = "HYPERLINK" Then
           Получить_ссылку = Mid$(rCell.Formula, 13, InStr(13, rCell.Formula, Chr(34)) - 13)
        Else
           Получить_ссылку = "В ячейке нет гиперссылки"
        End If
    Else
        s = rCell.Hyperlinks(1).SubAddress
        If s <> "" Then s = "#" & rCell.Hyperlinks(1).SubAddress
        Получить_ссылку = rCell.Hyperlinks(rCell.Hyperlinks.Count).Address & s
    End If
End Function