如何计算各班总成绩前95%的各科平均分

0409439

如何利用函数求出各班总成绩前95%的各科平均分，注意是总成绩的前95%，不是各科成绩的前95%，我看过论坛上类似的帖子，公式复制过去之后结果不太对，真心求助！谢谢各位老师，还有就是能不能计算平均分之前把某个科目考0分的学生自动去除再计算前95%，也就是说某个科目考0分，则不在我们的计算范围之内！谢谢各位老师！真心谢谢！！！！！！拜托

micch

论坛类似的帖子是用来学习的，需要参考进行修改来用，照搬来用确实不一定适合。看看别人是如何发帖的吧

3190496160

1、没有附件，任何人帮不了你的，
2、这种问题，最好考虑用vba来实现，公式急死做出来，如果数据量打的话，卡死没商量的

0409439

谢谢各位老师，真心求助

0409439

真心求助，谢谢各位老师

3190496160

Sub test()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheet1
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    ar = .Range("a1:i" & r)
    For i = 2 To UBound(ar)
        If Trim(ar(i, 3)) <> "" Then
            nn = nn + 1
        End If
    Next i
    If nn = "" Then Exit Sub
    bl = .[l1]
    If nn * bl = Int(nn * bl) Then
        rs = nn * bl
    Else
        rs = Int(nn * bl) + 1
    End If
   
    Dim br()
    ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
    For i = 2 To UBound(ar)
        p = Application.Rank(ar(i, 3), .Range("c2:c" & r))
        If Val(p) <= rs Then
            n = n + 1
            d(Trim(ar(i, 1))) = ""
            For j = 1 To UBound(ar, 2)
                br(n, j) = ar(i, j)
            Next j
        End If
    Next i
   
    Dim arr()
    ReDim arr(1 To d.Count, 1 To UBound(ar, 2) - 1)
   For Each k In d.keys
        m = m + 1
        arr(m, 1) = k
        For j = 3 To UBound(br, 2)
            hj = 0: y = 0
            For i = 1 To n
                If Trim(br(i, 1)) = k And IsNumeric(br(i, j)) Then
                    y = y + 1
                    hj = hj + br(i, j)
                End If
            Next i
            arr(m, j - 1) = hj / y
        Next j
    Next k
    rr = .Cells(Rows.Count, 11).End(xlUp).Row + 10
    .Range("k5:v" & rr) = Empty
    .[k5].Resize(m, UBound(arr, 2)) = arr
End With
MsgBox "OK!"
End Sub

3190496160

vba完成的，也许不是楼主需要的，但是，也许有需要的人，所以，就练练手了
成绩表数据.rar (32.81 KB, 下载次数: 17)

2020-3-8 20:02 上传

点击文件名下载附件

0409439

3190496160 发表于 2020-3-8 20:00
Sub test()
Dim d As Object
Set d = CreateObject("scripting.dictionary")

老师，这是vba吗？谢谢老师！

0409439

0409439 发表于 2020-3-8 20:02
老师，这是vba吗？谢谢老师！

多个班级适用吗？老师

0409439

求函数，主要vba真的不懂