请帮我看看，怎样从总表里按班级提取相应条件的多种数据

笨笨1974

求助万能的大神帮我看看，这个表应该怎样做。
我希望总成绩总表里按班级提取科学课前10名的学生名单（含姓名、成绩和名次）

amazeyeli

=FILTER(全部考生成绩汇总!C4:E496,(全部考生成绩汇总!B4:B496='1班'!B1)*(全部考生成绩汇总!E4:E496<='1班'!E1))

swyrlbq

做了两科，其余类同

笨笨1974

非常感谢，各位大侠的鼎力支持

3190496160

这种问题，vba是最佳选择，公式即使可以实现，那么多班级，yoga数组公式，不卡就奇怪了
Sub test()
Application.ScreenUpdating = False
Set d = CreateObject("scripting.dictionary")
p = InputBox("请输入要提取的名次", , "10")
If p = "" Then Exit Sub
Application.DisplayAlerts = False
For Each sh In Sheets
    If sh.Index > 2 Then sh.Delete
Next sh
Application.DisplayAlerts = True
ar = Sheets("全部考生成绩汇总").[a1].CurrentRegion
For i = 4 To UBound(ar)
    If Trim(ar(i, 2)) <> "" Then
        d(Trim(ar(i, 2))) = ""
    End If
Next i
For Each k In d.keys
    n = 0
    ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
    m = 0: y = 1
    ReDim cr(1 To UBound(ar), 1 To 33)
    For i = 4 To UBound(ar)
        If Trim(ar(i, 2)) = k Then
            n = n + 1
            For j = 3 To UBound(ar, 2)
                br(n, j - 2) = ar(i, j)
            Next j
        End If
    Next i
    For j = 3 To UBound(br, 2) Step 2
        m = 0
        For i = 1 To n
            If Trim(br(i, j)) <> "" And br(i, j) <= Val(p) Then
                m = m + 1
                cr(m, y) = br(i, 1)
                cr(m, y + 1) = br(i, j - 1)
                cr(m, y + 2) = br(i, j)
            End If
        Next i
        y = y + 3
    Next j
    Sheets("模板").Copy after:=Sheets(Sheets.Count)
    Set sht = Sheets(Sheets.Count)
    sht.Name = k
    sht.[b1] = k
    sht.[d1] = p
    sht.Cells(5, 1).Resize(p + 10, UBound(cr, 2)) = cr
Next k
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

按班级提取各学科前10名的学生名单.rar (53.89 KB, 下载次数: 5)

2020-1-11 11:00 上传

点击文件名下载附件

1055751654

3190496160 发表于 2020-1-11 10:57
这种问题，vba是最佳选择，公式即使可以实现，那么多班级，yoga数组公式，不卡就奇怪了
Sub test()
Appli ...

——————牛鼻———————

1055751654

3190496160 发表于 2020-1-11 11:00

老师我试了下，这个结果没看懂，班次不都是一样吗？