Помогите сделать линейную интерполяцию в вба

[кристина1102]

Необходимо сделать интерполяцию по t в vba, используя как можно простой алгоритм.

[IgorGO]

Function Interpol(XY As Range, X)
  Dim r&
  If X < XY.Cells(1) Then Interpol = XY.Cells(1, 2): Exit Function
  If X > XY.Cells(XY.Rows.Count, 1) Then Interpol = XY.Cells(XY.Rows.Count, 2): Exit Function
  r = WorksheetFunction.Match(X, XY.Columns(1))
  If XY.Cells(r, 1) = X Then Interpol = XY.Cells(r, 2): Exit Function
  Interpol = XY.Cells(r, 2) + (XY.Cells(r + 1, 2) - XY.Cells(r, 2)) * (X - XY.Cells(r, 1)) / (XY.Cells(r + 1, 1) - XY.Cells(r, 1))
End Function