求助，EXCEL汇总自动从高到低排名

seraphnice

现有一个年级的3个班（各班人数不一致）成绩统计表，如何通过公式，如何通过公式，在年级排名那一页中，将年级所有学生的总分成绩汇总从高到低排列，年级3个班的男生总分成绩从高到低排名，年级3个班的女生总分成绩从高到低排名，之前请教过大神一个班的统计，但整个年级的操作没整明白，试了几次都不成功，还请赐教，谢谢！

3190496160

这种问题， 用vba来完成是最佳方案，为何一定要局限于公式呢

浮生若梦~~~

年级3个班放在一个表里面就简单了,这样太折腾公式了

seraphnice

3190496160 发表于 2020-11-30 15:50
这种问题， 用vba来完成是最佳方案，为何一定要局限于公式呢

小白一枚，vba更加不会啊，如果用vba应该怎么做？

3190496160

seraphnice 发表于 2020-11-30 15:56
小白一枚，vba更加不会啊

公式你也不会呀，会的话，就不用上论坛求助了，是吧？呵呵

seraphnice

浮生若梦~~~ 发表于 2020-11-30 15:52
年级3个班放在一个表里面就简单了,这样太折腾公式了

可以用自动3个班汇总成一个年级吗？怎么设置公式？

seraphnice

3190496160 发表于 2020-11-30 15:59
公式你也不会呀，会的话，就不用上论坛求助了，是吧？呵呵

如果用vba如何做？大神

excelyuan123

你把A列前面都加一列写上班级快速填充，3个班直接复制粘贴到一个表上，都不需要用公式，想怎么排就怎么排啊，

zyouong2001

在表中添加一列“班级”，可以把各班的表弄在一张表上。

3190496160

Sub 年级总排名()
Dim sh As Worksheet
Dim ar As Variant
Dim br()
ReDim br(1 To 10000, 1 To 6)
For Each sh In Sheets
    If InStr(sh.Name, "班") > 0 Then
        ar = sh.[a1].CurrentRegion
        For i = 2 To UBound(ar)
            If Trim(ar(i, 1)) <> "" Then
                n = n + 1
                For j = 1 To 5
                    br(n, j) = ar(i, j)
                Next j
            End If
        Next i
    End If
Next sh
With Sheets("年级排名")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    If r = 2 Then
        r = 3
    Else
        r = r
    End If
    .Range("a3:f" & r).Borders.LineStyle = 0
    .Range("a3:f" & r) = Empty
    .[a3].Resize(n, UBound(br, 2)) = br
    .[a3].Resize(n, UBound(br, 2)).Borders.LineStyle = 1
    For i = 3 To n + 2
        .Cells(i, 6) = Application.Rank(.Cells(i, 5), .Range("e3:e" & n + 2))
    Next i
    .Range("a2:f" & n + 2).Sort .[e2], 2, , , , , , 1 '第一个数据为1，升序排序，为2，降序排序，第二个数据表示标题行数
End With
End Sub