Function ВПР_тест(Где_ищем As Variant, _
                Условие_1 As Variant, Массив_условий_1 As Variant, _
                Optional Условие_2 As Variant, Optional Массив_условий_2 As Variant, _
                Optional Условие_3 As Variant, Optional Массив_условий_3 As Variant, _
                Optional Условие_4 As Variant, Optional Массив_условий_4 As Variant, _
                Optional Условие_5 As Variant, Optional Массив_условий_5 As Variant)
'======================================
look_book = Где_ищем.Parent.Parent.Name
look_list = Где_ищем.Parent.Index
look_mass_1 = Массив_условий_1.Address
If IsMissing(Массив_условий_2) Then
    look_mass_2 = Массив_условий_1.Address
    Условие_2 = Условие_1
Else
    look_mass_2 = Массив_условий_2.Address
End If

If IsMissing(Массив_условий_3) Then
    look_mass_3 = Массив_условий_1.Address
    Условие_3 = Условие_1
Else
    look_mass_3 = Массив_условий_3.Address
End If

If IsMissing(Массив_условий_4) Then
    look_mass_4 = Массив_условий_1.Address
    Условие_4 = Условие_1
Else
    look_mass_4 = Массив_условий_4.Address
End If

If IsMissing(Массив_условий_5) Then
    look_mass_5 = Массив_условий_1.Address
    Условие_5 = Условие_1
Else
    look_mass_5 = Массив_условий_5.Address
End If

Set Массив_условий_1 = Workbooks(look_book).Sheets(look_list).Range(look_mass_1)
Set Массив_условий_2 = Workbooks(look_book).Sheets(look_list).Range(look_mass_2)
Set Массив_условий_3 = Workbooks(look_book).Sheets(look_list).Range(look_mass_3)
Set Массив_условий_4 = Workbooks(look_book).Sheets(look_list).Range(look_mass_4)
Set Массив_условий_5 = Workbooks(look_book).Sheets(look_list).Range(look_mass_5)

'======================================

Set fst_found_cell = Массив_условий_1.Find(Условие_1, lookat:=xlWhole)
fst_found_cell_row = fst_found_cell.Row
start_found_address = fst_found_cell.Address


scnd_found_cell = Массив_условий_2(fst_found_cell_row)
thrd_found_cell = Массив_условий_3(fst_found_cell_row)
frth_found_cell = Массив_условий_4(fst_found_cell_row)
fth_found_cell = Массив_условий_5(fst_found_cell_row)

Do
    If CStr(scnd_found_cell) = CStr(Условие_2) And CStr(thrd_found_cell) = CStr(Условие_3) And CStr(frth_found_cell) = CStr(Условие_4) And CStr(fth_found_cell) = CStr(Условие_5) Then
        ВПР_тест = Где_ищем(fst_found_cell_row)
        Exit Do
    Else
        Set fst_found_cell = Массив_условий_1.Find(Условие_1, lookat:=xlWhole, after:=fst_found_cell)
        fst_found_cell_row = fst_found_cell.Row
        fst_found_cell_address = fst_found_cell.Address

        scnd_found_cell = Массив_условий_2(fst_found_cell_row)
        thrd_found_cell = Массив_условий_3(fst_found_cell_row)
        frth_found_cell = Массив_условий_4(fst_found_cell_row)
        fth_found_cell = Массив_условий_5(fst_found_cell_row)
    End If
Loop While start_found_address <> fst_found_cell_address

End Function