请教如何根据排名规则生成多种排名？

东东sky

各位高手，请教一个排名问题：
=====================================
排名规则：


1.总分高名次高；
2.若总分相同，按数学单科成绩、语文和数学两科总分、语文数学英语三科总分、语文数学英语科学四科总分、语文数学英语科学社会五科总分从高到低进行排名；

3.若以上排名都一致，则名次号就一样；
======================================
目的：自动生成排名

micch

这个描述，其实就是6个条件排序，描述完全是误导计算逻辑

直接按顺序排序就行

micch

不知道社会是哪科，先简单写一个总排名吧，其他排名按同样的模式，加参数就可以实现。注意用优先级逆序排就行

1. Sub Main()
   
2.     With Sheet1.Range("a1").CurrentRegion
   
3.         br = Array(8, 9, 7, 5, 6, 12)
   
4.         For j = 0 To 5
   
5.             .Sort .Cells(1, br(j)), xlDescending, , , , , , xlYes
   
6.         Next
   
7.         ar = .Value
   
8.         For i = 2 To UBound(ar)
   
9.             bl = True
   
10.             For j = 0 To 5
    
11.                 If ar(i, br(j)) <> ar(i - 1, br(j)) Then
    
12.                     bl = False
    
13.                     Exit For
    
14.                 End If
    
15.             Next
    
16.             If bl Then
    
17.                 ar(i, 13) = ar(i - 1, 13)
    
18.             Else
    
19.                 ar(i, 13) = Val(ar(i - 1, 13)) + 1
    
20.             End If
    
21.         Next
    
22.         .Value = ar
    
23.         .Sort .Cells(1, 4), xlAscending, , , , , , xlYes
    
24.     End With
    
25. End Sub
    

复制代码

micch

是这样意思吗

东东sky

谢谢，有个地方有误，就是如果有2个第5名，那么接下去应该是第7名。