请教如何统计多个班级各科成绩前30名，并按成绩从高到低排列，需匹配姓名、班级、成绩

432@

请教如何统计多个班级各科成绩前30名，并按成绩从高到低排列，需匹配姓名、班级、成绩

hxj119

附件有问题下载不了。。。。

432@

hxj119 发表于 2024-7-26 22:39
附件有问题下载不了。。。。

没问题啊，我下载了打开没问题

hxj119

432@ 发表于 2024-7-26 22:46
没问题啊，我下载了打开没问题

现在可以下载了

hxj119

有3个问题，核心就是排名问题。
（1）美式排名还是中式排名？
      例如：分数相同时排名，1，2，2，4，。。。 还是，1，2，2，3，。。。
（2）前30名还是前30人?
涉及到有同分数的怎样计算问题，例如：语文84分有5人，前30人中，只用了3人。
（3）如果采用中式排名，示例中语文最后一名是第27名，如果取前30名，全部人员，这有如何处理？

hxj119

中式排名，取前30人，参考公式：

1. =DROP(REDUCE("",C1:I1,LAMBDA(x,y,LET(a,OFFSET(y,1,,100),b,SORT(UNIQUE(a),1,-1),HSTACK(x,TAKE(SORT(HSTACK(MATCH(a,b,0),$A$2:$B$101,a),4,-1),30))))),,1)

复制代码

hxj119

如果分数相同，再看总分排名，

更新公式如下：

1. =DROP(REDUCE("",C1:I1,LAMBDA(x,y,LET(a,OFFSET(y,1,,100),b,SORT(UNIQUE(a),1,-1),HSTACK(x,DROP(TAKE(SORT(HSTACK(MATCH(a,b,0),$A$2:$B$101,a,J2:J101),{4,5},{-1,-1}),30),,-1))))),,1)

复制代码

liuliu2024

1. =DROP(REDUCE(0,TOROW(L1:AM1,1),LAMBDA(x,y,HSTACK(x,TAKE(SORT(HSTACK(RANK(J2:J101,J2:J101),A2:B101,INDEX(C2:I101,,MATCH(y,C1:I1,0))),4,-1),30)))),,1)

复制代码

我用的是最新版本的wps，office365才可以，低版本我也不会

hugeinfo

=DROP(REDUCE("",C1:I1,LAMBDA(x,y,HSTACK(x,TAKE(SORT(HSTACK(RANK(OFFSET(y,1,,100),OFFSET(y,1,,100)),   A2:B101,OFFSET(y,1,,100)),4,-1),30)))),,1)

3190496160

Sub 提取前n名()
Dim ar As Variant
Dim br()
w = InputBox("请输入提取的名次", "前几名", "30")
If w = "" Then End
With ActiveSheet
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    If r < 2 Then MsgBox "数据源为空！": End
    ar = .Range("a1:j" & r)
    .[m1].CurrentRegion.Offset(2) = Empty
    y = 12
    For j = 3 To 9
        n = 0
        ReDim br(1 To UBound(ar), 1 To 4)
        zd = Application.Large(Application.Index(ar, 0, j), Val(w))
        For i = 2 To UBound(ar)
            If ar(i, j) <> "" Then
                If IsNumeric(ar(i, j)) Then
                    If ar(i, j) >= zd Then
                        n = n + 1
                        br(n, 1) = n
                        br(n, 2) = ar(i, 1)
                        br(n, 3) = ar(i, 2)
                        br(n, 4) = ar(i, j)
                    End If
                End If
            End If
        Next i
        For i = 1 To n
            For s = i + 1 To n
                If br(i, 4) < br(s, 4) Then
                    For jj = 1 To 4
                        k = br(i, jj)
                        br(i, jj) = br(s, jj)
                        br(s, jj) = k
                    Next jj
                End If
            Next s
            br(i, 1) = i
        Next i
        .Cells(1, y) = ar(1, j)
        .Cells(3, y).Resize(n, UBound(br, 2)) = br
        .Cells(3, y).Resize(n, UBound(br, 2)).Borders.LineStyle = 1
        y = y + 4
    Next j
End With
MsgBox "ok!"
End Sub