[已解决]新人求函数或VBA自定义函数

sjyy · 发表于 2016-6-5 11:45

Excel中6个数值中有一个超出六个平均值的士10%，就剔除这个数，求剩下五个的平均数为结果。如果剩下五个测定值中再有超过它们平均数士10%的，则此组数据作废。

最佳答案

tt0203

2016-6-5 13:39

本帖最后由 tt0203 于 2016-6-8 08:59 编辑

aa=IF(MMULT({1,1},N(A1:F1>=SUM(A1:F1)/6*{90;110}%+{0;1}%%))=1,A1:F1)
=IF(FREQUENCY(aa,AVERAGE(aa)*{110,90}%-{0,1}%%)>4,AVERAGE(aa),"无效")

fjmxwrs · 发表于 2016-6-5 12:46

本帖最后由 fjmxwrs 于 2016-6-5 12:55 编辑

举点具体的数据为例?超出是指大小或小于平均数的10%吗?如果好几个数都超出，是不是直接作废

sjyy · 发表于 2016-6-5 12:57

fjmxwrs 发表于 2016-6-5 12:46
举点具体的数据为例?

26.1 25.3 22.3 23.8 27.1 25.5 平均值应该是25.6

28.6 25.3 22.3 23.8 27.1 25.5 此组无效

fjmxwrs · 发表于 2016-6-5 13:35

本帖最后由 fjmxwrs 于 2016-6-5 14:34 编辑

sjyy 发表于 2016-6-5 12:57
26.1 25.3 22.3 23.8 27.1 25.5 平均值应该是25.6

自定义函数完成的

tt0203 · 发表于 2016-6-5 13:39

本帖最后由 tt0203 于 2016-6-8 08:59 编辑

aa=IF(MMULT({1,1},N(A1:F1>=SUM(A1:F1)/6*{90;110}%+{0;1}%%))=1,A1:F1)
=IF(FREQUENCY(aa,AVERAGE(aa)*{110,90}%-{0,1}%%)>4,AVERAGE(aa),"无效")

sjyy · 发表于 2016-6-5 15:06

fjmxwrs 发表于 2016-6-5 13:35
自定义函数完成的

谢谢啦不过还是有点问题。

sjyy · 发表于 2016-6-5 15:10

tt0203 发表于 2016-6-5 13:39
=IF(FREQUENCY(IF((MMULT({1,1},N(A1:F1>=SUM(A1:F1)/6*{90;110}%))-1)^21,A1:F1),AVERAGE(IF((MMULT({1,1} ...

好复杂哦我函数不是很好，先谢谢啦

sjyy · 发表于 2016-6-5 22:13

fjmxwrs 发表于 2016-6-5 13:35
自定义函数完成的

版主还在不那个自定函数有点问题可以修改哈么！！！
谢谢啦

sjyy · 发表于 2016-6-6 13:15

fjmxwrs 发表于 2016-6-5 13:35
自定义函数完成的

不在了吗版主哥哥

fjmxwrs · 发表于 2016-6-6 18:49

计算出来就不是25.6，为什么得改成25.6?

		自动登录	找回密码
密码			注册