请问按班级排名次怎么排呢

[此贴子已经被作者于2016-12-9 09:17编辑过]

以前大神的排名程序有
fun_wk("总分","班级排名")

function fun_wk(科目,排名)
  SET ORDER TO (科目)
    T=0
    MC=1  &&名次
    YH=1  &&序号
 SCAN
  IF evaluate(科目) !=T
    T=EVALUATE(科目)
    MC=YH
  ENDIF
  REPLACE (排名) WITH MC
  YH=YH+1

END SCAN



ENDFUNC

按总分排序，以班级分组，从1开始，同分同名次

Sub 按钮1_Click()
'先按班级排序(ASC)，再按总分排序（DESC)
m = [a65536].End(xlUp).Row
a = Range("a1:f" & m)

        t = 1     '名次的值
        For i = 2 To m
       If Cells(i - 1, 5) <> Cells(i, 5) Then    '假如不同分，排名增加1
        Cells(i, 6) = t
        Else
         Cells(i, 6) = Cells(i - 1, 6)  '同分为上一次的
       End If
          t = t + 1      ‘值增加1
         
        
          If Cells(i, 1) <> Cells(i + 1, 1) Then      ’如果班级列 发生改变，即分班了
            t = 1
          End If
        Next
      
   

End Sub
这是我写的VBA代码，在EXCEL中用的

回复楼上：
RANK可以按班分组吗？，一个一个选区域，那得多费事，100多个班呢

真快啊，VF大坛能人多

回复楼上：
你的是同分同名，但是值不加一
I=I+J

是啊，这个算法接近N立方了，是蛮吓人的速度

一个年级1500人左右

谢谢斑竹大大