剔除不符合的数据再求平均值

ricky11161 · 发表于 2024-9-20 16:06

请教大神，B列数据会变化，剔除小于平均值75%和大于平均值150%的数据后，再求平均值

mountain119 · 发表于 2024-9-20 16:10

=AVERAGEIFS(B2:B9,B2:B9,">"&E7,B2:B9,"<"&E8)

复制代码

wp231957 · 发表于 2024-9-20 16:11

本帖最后由 wp231957 于 2024-9-20 16:16 编辑

=AVERAGE(FILTER(B2:B9,(B2:B9>=AVERAGE(B2:B9)*0.75)*(B2:B9<=AVERAGE(B2:B9)*1.5)))
14.6 对吗

你是那块小饼干 · 发表于 2024-9-20 16:41

=LET(T,B2:B9,_X,AVERAGE(T)*0.75,_Y,AVERAGE(T)*1.5,AVERAGE(FILTER(T,(_X<T)*(_Y>T),"")))

复制代码

高冷cool · 发表于 2024-9-22 21:25

打开开发工具→vba

Sub 筛选后求平均值()
Set a = ActiveSheet
x = a.UsedRange.Rows.Count
s = 0
ss = 0
k = 0
For i = 2 To x
      s = s + a.Cells(i, 2).Value
Next
mean = s / (x - 2)
For i = 2 To x
      If a.Cells(i, 2) > mean * 0.75 And a.Cells(i, 2) < mean * 1.5 Then
         ss = ss + a.Cells(i, 2)
         k = k + 1
      End If
Next
mean_1 = ss / k
Range("E10").Value = mean_1
End Sub

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

[求助] 剔除不符合的数据再求平均值

评分

评分