错误使用 fminbnd (第 109 行) 边界必须为标量。_Excel VBA解读（134）： 使用Excel函数提高自定义函数的效率...

学习Excel技术，关注微信公众号：

excelperfect

在上篇文章中，我们展示了自定义函数有效的方式是通过将单元格区域读取到Variant型数组来传递单元格区域数据。本文将介绍在自定义函数中最有效的方式是使用Excel内置函数。

线性插值是一种常用技术，用来查找缺失值或者计算两个值之间的值。例如下表：

图1

现在，想要知道Level的66.25对应的Flow1的值是多少？假设该值在66的Level对应的Flow1值6.19与66.5的Level对应的Flow1值8.64构成的直线上，可以计算66.25对应的Flow1的值如下：

8.64与6.19之差是2.45，66.25是66与66.5之间的中间值，所以将2.45的一半加上6.19得到7.415。

公式为：

=6.19+(8.64-6.19)*(66.25-66.0)/(66.5-66.0)

编写一个简单的自定义函数如下：

Function VINTERPOLATEA(Lookup_ValueAs Variant, _

   Table_Array As Range, _

   Col_Num A