excel 中可以用函数trimmean，如果去除最高分3个和最低分2个，好像不对了，去除不同怎样算平均分呢喃

发布网友 发布时间：2022-05-01 18:18

我来回答

共3个回答

热心网友 时间：2023-10-23 17:43

他是一个函数，必须放在一个单元格内，如何显示你留下来的多个数据？

给你构造一个函数
选择一个与你数据一样的区域，在其中的每一个格内都填入这个公式
就得到一个新的区域，其中去掉的数据显示空

其中
data 指定为对应的单元格，
Ran选择全部的源数据（需要使用绝对引用，这样可以方便复制公式）
Del是你要去出的数据个数，如 2 表示去掉2个最高和2个最低。

Function ExTRIMMEAN(data As Single, Ran As Range, Del As Integer)
Dim ZMAX As Integer, ZMIN As Integer
Dim ZRAN As Range

ZMAX = 0
ZMIN = 0
For Each ZRAN In Ran

If data > ZRAN.Value Then ZMIN = ZMIN + 1
If data < ZRAN.Value Then ZMAX = ZMAX + 1
Next
ExTRIMMEAN = data
If ZMAX < Del Or ZMIN < Del Then ExTRIMMEAN = ""
End Function

热心网友 时间：2023-10-23 17:44

假设数据在A1:A10中,求你所要求的平均分,公式可为
=AVERAGE(IF((A1:A10>SMALL(A1:A10,2))*(A1:A10<LARGE(A1:A10,3)),A1:A10))
同时按下CTRL+SHIFT+ENTER输入数组公式。没有考虑最高第三名和最低第二各有重复的情况。

热心网友 时间：2023-10-23 17:43

他是一个函数，必须放在一个单元格内，如何显示你留下来的多个数据？

给你构造一个函数
选择一个与你数据一样的区域，在其中的每一个格内都填入这个公式
就得到一个新的区域，其中去掉的数据显示空

其中
data 指定为对应的单元格，
Ran选择全部的源数据（需要使用绝对引用，这样可以方便复制公式）
Del是你要去出的数据个数，如 2 表示去掉2个最高和2个最低。

Function ExTRIMMEAN(data As Single, Ran As Range, Del As Integer)
Dim ZMAX As Integer, ZMIN As Integer
Dim ZRAN As Range

ZMAX = 0
ZMIN = 0
For Each ZRAN In Ran

If data > ZRAN.Value Then ZMIN = ZMIN + 1
If data < ZRAN.Value Then ZMAX = ZMAX + 1
Next
ExTRIMMEAN = data
If ZMAX < Del Or ZMIN < Del Then ExTRIMMEAN = ""
End Function

热心网友 时间：2023-10-23 17:44

假设数据在A1:A10中,求你所要求的平均分,公式可为
=AVERAGE(IF((A1:A10>SMALL(A1:A10,2))*(A1:A10<LARGE(A1:A10,3)),A1:A10))
同时按下CTRL+SHIFT+ENTER输入数组公式。没有考虑最高第三名和最低第二各有重复的情况。

热心网友 时间：2023-10-23 17:44

这个我也不会

热心网友 时间：2023-10-23 17:44

这个我也不会

热心网友 时间：2023-10-23 17:43

他是一个函数，必须放在一个单元格内，如何显示你留下来的多个数据？

给你构造一个函数
选择一个与你数据一样的区域，在其中的每一个格内都填入这个公式
就得到一个新的区域，其中去掉的数据显示空

其中
data 指定为对应的单元格，
Ran选择全部的源数据（需要使用绝对引用，这样可以方便复制公式）
Del是你要去出的数据个数，如 2 表示去掉2个最高和2个最低。

Function ExTRIMMEAN(data As Single, Ran As Range, Del As Integer)
Dim ZMAX As Integer, ZMIN As Integer
Dim ZRAN As Range

ZMAX = 0
ZMIN = 0
For Each ZRAN In Ran

If data > ZRAN.Value Then ZMIN = ZMIN + 1
If data < ZRAN.Value Then ZMAX = ZMAX + 1
Next
ExTRIMMEAN = data
If ZMAX < Del Or ZMIN < Del Then ExTRIMMEAN = ""
End Function

热心网友 时间：2023-10-23 17:44

假设数据在A1:A10中,求你所要求的平均分,公式可为
=AVERAGE(IF((A1:A10>SMALL(A1:A10,2))*(A1:A10<LARGE(A1:A10,3)),A1:A10))
同时按下CTRL+SHIFT+ENTER输入数组公式。没有考虑最高第三名和最低第二各有重复的情况。

热心网友 时间：2023-10-23 17:44

这个我也不会