excle如何自编函数

来源：百度知道 编辑：UC知道 时间：2024/05/05 00:31:44
我想编一个函数存储在excle里，就是把一行或者一列的数值去掉一个最高值，然后算出他们的平均值放在一个单元格里，求哪位高人帮编下!小弟先谢谢了！

很久不玩excel了,来献丑一下.
Function aver(a)
Dim u, s, c
u = 0
For Each r In a
If r > u Then u = r
s = s + r
c = c + 1
Next
aver = (s - u) / (c - 1)
End Function

用法:=aver(A2:E4)