Поиск промежуточного значения в массиве

[Vladislav2011]

Добрый день Господа,

Нуждаюсь в решение хитрой задачки:

В приложении файл в формате эксель, где есть таблица неких значений (A1:D6), в столбце "А" первое значение с интервалом в 0,0001. В строке "1" значение с интервалом в 0,5. В пересечении каждого значение имеется свое уникальное значение "коэффициент".

но когда необходимо найти промежуточное уникальное значение, где коэф.первой строки равен для примера -29,7 (т.е.в промежутке между -30,0 и -29,5) необходимое уникальное промежуточное значение нужно считать в ручную ("экстраполяции").(у меня таблица с более 2 000 000 значений).

Можно ли сделать "пользовательскую функцию" в VBA которая бы автоматически рассчитывала бы нужный показатель в указанной ячейке.
(исходные данные : столбец "А" и строка "1"). Как Я считаю это в ручную выделил область синим цветом

При много Вас благодарю

[MCH]

А одной формулой (без дополнительных ячеек) не подойдет?

[Vladislav2011]

Гениально сделано!!!! а можно то же самое но виде "пользовательской функции" VBA макрос....готов оплатить работу!!!

[R Dmitry]

Сообщение от Vladislav2011

Гениально сделано!!!! а можно то же самое но виде "пользовательской функции" VBA макрос....готов оплатить работу!!!

Function forecast_min_max(kr_column#, kr_row#, rng_val As Range)
Dim a, c, r, kr_c_max&, kr_c_min&, kr_r
a = rng_val.Value
With Application
c = .Index(a, 1, 0)
kr_c_max = .Match(kr_column, c, 1)
kr_c_min = kr_c_max + 1
r = .Index(a, 0, 1)
kr_r = .Match(kr_row, r, 0)
forecast_min_max = .WorksheetFunction.Forecast(kr_column, Array(a(kr_r, kr_c_max), a(kr_r, kr_c_min)), Array(a(1, kr_c_max), a(1, kr_c_min)))
End With
End Function

rng_val - выделять вместе с значениями строк и столбцов

[Vladislav2011]

Господа, всем спасибо огромное.Тема закрыта.