么有做出来吗，我在用VBA，但是运行超级慢啊！继续在线等。。。

╮(╯_╰)╭ 自己刷。。。。

公式有点复杂，不知还能不能继续简化。

非常感谢呀！可以做出来，但是数据量众多，运行时间太久了，这个问题最后用per语言解决的，仍然非常非常感谢呀。

一、ABS
返回参数的绝对值，参数绝对值是参数去掉正负号后的数值。
语法
ABS(number)
Number  需要计算其绝对值的实数。
示例
ABS(2)等于 2
ABS(-2)等于 2
如果 A1 中包含 -16，则：
SQRT(ABS(A1))等于 4
二、MIN
返回给定参数表中的最小值。
语法
MIN(number1,number2, ...)
Number1, number2,...  是要从中找出最小值的 1 到 30 个数字参数。
参数可以是数字、空白单元格、逻辑值或表示数值的文字串。如果参数中有错误值或无法转换成数值的文字时，将引起错误。
如果参数是数组或引用，则函数 MIN 仅使用其中的数字、数组或引用中的空白单元格，逻辑值、文字或错误值将忽略。如果逻辑值和文字串不能忽略，请使用 MINA 函数 。
如果参数中不含数字，则函数 MIN 返回 0。
示例
如果 A1:A5 中依次包含数值 10，7，3，27 和 2，那么
MIN(A1:A5)等于 2
MIN(A1:A5, 0)等于 0