帮忙做个各科成绩快速排名方法？

mxf21cn

那就做成VBA就好了，也不是很麻烦

mjzxlmg

原帖由 along_gw 于 2011-3-8 07:20 发表
啊，不需要用很复杂的公式，用excel筛选，升序排列。得到单科和总成绩的排名，最后用总成绩排名不就好了？

原始的方法当然会了，可麻烦呀，每次统计都要做重复的繁琐的工作，吃力不讨好。

mxf21cn

你的统分表格式还变么？？

mjzxlmg

原帖由 mxf21cn 于 2011-3-8 08:56 发表
那就做成VBA就好了，也不是很麻烦

就是想这样做成VBA，可不会做呀。请帮帮我呀。

mjzxlmg

真实的统分表只是还有表头，第四行是字段，第五行开始是录入的数据。列数就是这样了。

[ 本帖最后由 mjzxlmg 于 2011-3-8 09:07 编辑 ]

mxf21cn

排名表的数据获取你还是用SQL好了  排名用下面的代码
你在排名表  执行这段代码应该就可以了

Sub 排名()
For i = 0 To 10
Cells(3, 6 + i * 2).FormulaR1C1 = "=IF(RC[-1]="""","""",RANK(RC[-1],C[-1]))"
Cells(3, 6 + i * 2).AutoFill Destination:=Range(Cells(3, 6 + i * 2), Cells(Cells(65536, 1).End(xlUp).Row, 6 + i * 2)), Type:=xlFillDefault
Range(Cells(3, 6 + i * 2), Cells(Cells(65536, 1).End(xlUp).Row, 6 + i * 2)).Copy
    Cells(3, 6 + i * 2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Next
    Application.CutCopyMode = False
End Sub

[ 本帖最后由 mxf21cn 于 2011-3-8 09:13 编辑 ]

cbtaja

用定义名称，实现1秒钟内快速排名。

mxf21cn

人数少的时候用数组公式还比较快，当人数多起来的时候就很吃力了

cbtaja

看看17楼，使用的不是数组公式而是普通公式，速度很快！（虽然是需要先排序和修改名称“最末行号”定义的值，但这两项操作都是非常简单的，附件中有说明。）

如果想要使用宏，只需把排序、定义名称、填充公式的过程录制成代码就行了。个人认为没有必要使用宏。

mxf21cn

原帖由 cbtaja 于 2011-3-8 11:36 发表
看看17楼，使用的不是数组公式而是普通公式，速度很快！（虽然是需要先排序和修改名称“最末行号”定义的值，但这两项操作都是非常简单的，附件中有说明。）

如果想要使用宏，只需把排序、定义名称、填充公式的过 ...

确实看得不够仔细，当成数组公式了，不过对于数据量较大（1W条以上）的表修改数据后计算比较慢