Function VPR19(Таблица, Номер_столбца_из_таблицы As Variant, Поисковое_значение As Variant, _
                                        Номер_совпадения_значения As Variant, Номер_столбца_нужного_значения As Variant) As Currency
                                        
    Application.Volatile
    
    Dim i As Currency
    Dim iCount As Currency
    
    VPR5 = 0
    
    Select Case TypeName(Таблица)
      Case "Range"
        For i = 1 To Таблица.Rows.Count
            If LCase(Trim(Таблица.Cells(i, Номер_столбца_из_таблицы))) = LCase(Trim(Поисковое_значение)) Then
                iCount = iCount + 1
            End If
            If iCount = Номер_совпадения_значения Then
                If Номер_столбца_нужного_значения = 0 Then
                    VPR5 = i
                Else
                    VPR5 = Val(Таблица.Cells(i, Номер_столбца_нужного_значения))
                End If
                Exit For
            End If
         Next i
       Case "Variant()"
         For i = 1 To UBound(Таблица, 1)
             If LCase(Trim(Таблица(i, Номер_столбца_из_таблицы))) = LCase(Trim(Поисковое_значение)) Then
                 iCount = iCount + 1
             End If
             If iCount = Номер_совпадения_значения Then
                 If Номер_столбца_нужного_значения = 0 Then
                    VPR5 = i
                 Else
                    VPR5 = Val(Таблица(i, Номер_столбца_нужного_значения))
                 End If
                 Exit For
             End If
         Next
     End Select

End Function

If IsEmpty(VPR5) = False Then VPR5 = 0