编写一个求指定区域内数字两两差的平均值的自定义函数

作者：绿色风分类：时间：2022-08-18 浏览：102

楼主 amulee	比如一共六个数字，两两之间差一共有15个，上述公式取两两之间差的绝对值的和再除以15。参考以下代码： Function MyAver(Rng As Range) Dim Temp Dim ArrYS, ArrTemp Dim i&, j&, k& ArrYS = Rng.Value ReDim ArrTemp(1 To UBound(ArrYS) * UBound(ArrYS, 2)) For i = 1 To UBound(ArrYS) For j = 1 To UBound(ArrYS, 2) k = k + 1 ArrTemp(k) = ArrYS(i, j) Next Next k = 0 Temp = 0 For i = 1 To UBound(ArrTemp) - 1 For j = i + 1 To UBound(ArrTemp) k = k + 1 Temp = Temp + Abs(ArrTemp(i) - ArrTemp(j)) Next Next MyAver = Temp / k End Function 求差的平均值.rar
2楼 amulee	如果该区域为一列或者一行，也可参考下列数组公式，比如在A1:G1 =AVERAGE(IF(COLUMN(A1:G1)<>TRANSPOSE(COLUMN(A1:G1)),ABS(A1:G1-TRANSPOSE(A1:G1))))
3楼 zoun5490	很多行呢
4楼 amulee	很多行的话可以将多行多列转为一行或一列再套用上述公式，或者直接用自定义函数。

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表