> нужно передавать в нее данные с листа  
 
См. аттач.  
 
=20004=

> Функция ЛИНЕЙН линейную интерполяцию не дает  
Да, она дает коэффициенты прямой, по которым из Х можно получить У.  
 
А вот функция ПРЕДСКАЗ делает именно то, что Ваша! Только порядок аргументов другой.

Аппроксимация и интерполяция – не одно и то же, они совпадают только, если заданы всего две точки. Интерполяция предполагает обязательное прохождение через все заданные точки, а к аппроксимации такое требование не предъявляется.  
 
В данном случае речь идет о кусочно-линейной интерполяция и экстраполяция данных. При этом экстраполяция осуществляется по уравнению прямой двух конечных точек: 1-й и 2-й при X <= Xmin, последней и предпоследней – для X >= Xmax  
 
Вот код, не зависящий от горизонтальности или вертикальности диапазонов RngX и RngY:  
 
Function Y(RngX As Range, RngY As Range, X As Double) As Double  
 
 Dim i&, xmin#, xmax#, x1#, x2#, y1#, y2#, v  
 
 i = RngX.Count  
 xmin = RngX(1)  
 xmax = RngX(i)  
 
 If X <= xmin Then  
   
   x1 = RngX(2)  
   x2 = xmin  
   y1 = RngY(2)  
   y2 = RngY(1)  
 
 ElseIf X >= xmax Then  
   
   x1 = RngX(i - 1)  
   x2 = xmax  
   y1 = RngY(i - 1)  
   y2 = RngY(i)  
 
 Else  
     
   i = 0  
   For Each v In RngX.Value  
     i = i + 1  
     If X < v Then Exit For  
   Next  
   x1 = RngX(i - 1)  
   x2 = v  
   y1 = RngY(i - 1)  
   y2 = RngY(i)  
 
 End If  
 
 Y = y1 + (X - x1) * (y2 - y1) / (x2 - x1)  
 
End Function  
 
 
Sub Test()  
 ' Аналогично формуле ячейки: =Y(C8:E8;C12:E12;I8)  
 Debug.Print Y(Range("C8:E8"), Range("C12:E12"), [I8])
End Sub

{quote}{login=Alice}{date=23.10.2011 04:28}{thema=}{post}Ребята, у меня вот немного другая задача...{/post}{/quote}  
Задача вполне та же, посмотрите приложенный файл.  
Первая диаграмма построена с шагом по X, равным 1, а вторая диаграмма построена по интерполированнам точкам с шагом по X, равным 0.2

Можно чуть улучшить предсказания значений в промежуточных точках с помощью нелинейной интерполяции:

Подправил ЮДФ:

Доброго утра всем!    
Еще раз спасибо за помощь. Я сделала это по примеру MCH через стандартные функции, так как я пыталась сделать на примере ZVI, но я совсем запуталась в последовательности создания программы... Очень бы хотелось все-таки разобраться.. Правильно ли я делала? Сначала я создала макрос с названием функции (function). Потом в VBA editor прописываю эту функцию в теле функции sub function end function и все?    
У меня еще другая задача, помогите пожалуйста написать программу по вычислению среднего значения. В приложенном файле, нужно подсчитать среднее значение Whole porosity, Y, но чтобы просчитывало по значениям столбца Core top depth, X через определенное количество строк. То есть с 2881 до 2881.8, и выводило результат с следующем столбце напротив 2881. След. среднее значение с 2882 до 2882.8, то бишь среднее значение на каждом метре. Можно опять таки сделать это через стандартные функции, но мне нужно программно...

{quote}{login=Максим}{date=08.12.2011 05:23}{thema=}{post}Не могли бы вы подкорректировать функцию...{/post}{/quote}  
Там все корректно работает и с отрицательными числами.  
Например, можно задать в A2 отрицательное значение X,  
а в A21 записать начальное интерполируемое значение X1, которое нас интересует.  
Не обязательно они должны совпадать. Но чтобы A21 всегда совпадало с A2 достаточно в A21 поместить формулу =A2.  
 
Приложил пример с отрицательными значениями X и X1, смотрите комментарий в ячейке A21

залогиниться забыл.    
 
в примере при вводе х=0,5 должно выводиться 4, а выводится 2,5

{quote}{login=Максим}{date=09.12.2011 09:25}{thema=}{post}залогиниться забыл.    
 
в примере при вводе х=0,5 должно выводиться 4, а выводится 2,5{/post}{/quote}  
У Вас там значения X в диапазоне A18:A21 идут по убыванию.  
Отсортируйте по возрастанию и все будет нормально.

всё понял. спасибо огромное!

Добрый день!  
 
Я внимательно ознакомился с данной темой, но я не математик и некоторые термины мне понятны, но не очевидны. Есть неоктрые сомнения правильно ли я понимаю предмет.  
 
Мне необходимо решить следующую задачу:  
 
Имеется некоторая зависимость y = f(x)  
 
У   Х  
1   5  
3   7  
4   10  
10  1  
 
Мне необходимо формализовать данную зависимость таким образом, что бы я мог ввести любое значение Х, а мне возвращалось значение Y.  
 
Я понимаю, что это несколько уравнений прямых и могу получить коэффициенты каждой прямой. Но мне необходимо что бы в зависимости от значения Х менялось уравнение кривой. Как это сделать, я не смог разобраться.  
Надеюсь на вашу помощь.  
Будет это сделано с помощью макроса или ячеек для меня не имеет значения.

subtlety, спасибо за поправку в формулировке. Значит, мне необходимо вывести интерполяционный многочлен Лагранжа средствами эксель.  
 
По поводу преподавателя. Я не студент, который решает курсовую. Я работаю в финансовой организации и решаю задачи, котрые сам перед собой ставлю. Не хотелось бы, что бы слово "предмет", сбивало вас с толку.

subtlety, спасибо огромное!  
 
Я тут воспользовался файлом по одной из ссылок и ввел туда необходимые мне соотношения.  
Но модель как бы "сбивается" и иногда выдает неправильные данные.  
Например, когда я ввожу цифру "8", то модель выдает не то значение, которое изначально предполагалось.  
 
Извиняюсь за кривую формулировку вопроса, но я специалист из другой области. Надеюсь на вашу благосклонность в решении вопроса.