统计学年和班级单科前N名成绩

3190496160

Sub 成绩分析()
Dim ar As Variant, cr As Variant
Dim i As Long, r As Long, rs As Long
Dim br()
With Sheets("学年")
    r = .Cells(Rows.Count, 2).End(xlUp).Row
    y = .Cells(4, Columns.Count).End(xlToLeft).Column
    If r < 5 Then MsgBox "导入蔬菜定价 工作表为空，请先导入数据！": End
    ar = .Range("a2:p" & r)
End With
y = 2
With Sheets("学年前N统计")
    .UsedRange.Offset(5).Borders.LineStyle = 0
    .UsedRange.Offset(5) = Empty
    For j = 6 To 15
        x = .Cells(4, y + 2)
        n = 0
        ReDim br(1 To UBound(ar), 1 To 5)
        For i = 2 To UBound(ar)
            If ar(i, j) <> "" Then
                If IsNumeric(ar(i, j)) Then
                    If ar(i, j) >= x Then
                        n = n + 1
                        br(n, 1) = ar(i, 3)
                        br(n, 2) = ar(i, 4)
                        br(n, 3) = ar(i, j)
                        br(n, 4) = ar(i, 16)
                        br(n, 5) = ar(i, 2)
                    End If
                End If
            End If
        Next i
        .Cells(6, y).Resize(n, UBound(br, 2)) = br
        .Cells(6, y).Resize(n, UBound(br, 2)).Borders.LineStyle = 1
        y = y + 6
    Next j
End With
MsgBox "ok!"
End Sub

3190496160

如果公式不能用，就上个vba代码的吧
成绩分析.rar (61.27 KB, 下载次数: 3)

2024-11-6 14:52 上传

点击文件名下载附件

无敌火猫

3190496160 发表于 2024-11-6 14:52
如果公式不能用，就上个vba代码的吧

谢谢老师，能否再帮完善一下，成绩按高到低排序吗，学年排名没有，谢谢。

3190496160

无敌火猫 发表于 2024-11-6 16:07
谢谢老师，能否再帮完善一下，成绩按高到低排序吗，学年排名没有，谢谢。

学年排名没有？？？甚意思？是不需要这一列吗？
排名很简单，调用sort，或者冒泡排序都可以解决

无敌火猫

3190496160 发表于 2024-11-6 16:52
学年排名没有？？？甚意思？是不需要这一列吗？
排名很简单，调用sort，或者冒泡排序都可以解决

我复制完代码运行后，学年排名列是空的，不显示排名数据

3190496160

无敌火猫 发表于 2024-11-6 16:59
我复制完代码运行后，学年排名列是空的，不显示排名数据

12楼的附件，是你上传的附件，运行结果是有学年排名的呀，至于你复制代码去运行的文件是什么情况，我不得而知，也就没法帮到你了，实在不行，可以加我v