中国式排名（估计很多人发过了吧）

liulang0808

首先要了解排名次的两种方法：
   1 RANK函数排名次：
      比如有四个数字 100,100,98,70 排名次后的结果是
         第1名：100，100
         第2名: 空
         第3名：98
         第4名：70
     从上面排名可以看出,如果有并列排名的情况，有几个相同的，下面的名次就会空出几个位置。
   2 中国式排名
       同样有四个数字 100,100,98,70 排名次后的结果是
       第1名: 100,100
       第2名: 98
       第3名：70
     从上面结果可以看出，中国式排名不会因为有相同的数字排名就会让排名断开，而是连续的。

下面是刚才帮人做的一个函数，考虑不一定周全，基本上满足了简单的排名需求，与大家分享下吧
Function pm(ByVal nm, ByVal rng As Range)
    Set d = CreateObject("scripting.dictionary")
    For Each rn In rng
        If VBA.IsNumeric(rn.Value) And Len(rn) > 0 Then
            d(rn.Value) = ""
        End If
    Next rn
    arr = d.keys
    d.RemoveAll
    For j = 0 To UBound(arr)
        d(WorksheetFunction.Large(arr, j + 1)) = j + 1
    Next j
    If VBA.IsNumeric(nm) Then
        pm = d(nm * 1)
    Else
        pm = ""
    End If
End Function

liulang0808

中国式排名的过程，根据需求调整就可以了
Sub aaa()
    Set rng = Range("b2:b33")
    Set d = CreateObject("scripting.dictionary")
    For Each rn In rng
        If VBA.IsNumeric(rn.Value) And Len(rn) > 0 Then
            d(rn.Value) = ""
        End If
    Next rn

    arr = d.keys
    d.RemoveAll
    For j = 0 To UBound(arr)
        d(WorksheetFunction.Large(arr, j + 1)) = j + 1
    Next j
    For j = 2 To 21
        Cells(j, 3) = d(Cells(j, 2).Value)
    Next j
End Sub

1595136403

liulang0808 发表于 2014-12-4 21:51
中国式排名的过程，根据需求调整就可以了
Sub aaa()
    Set rng = Range("b2:b33")

谢谢老师；又跟老师长知识

liulang0808

1595136403 发表于 2014-12-7 10:13
谢谢老师；又跟老师长知识

不客气，每个人的处理方式不一样，估计论坛上还有别的处理方式，可以参阅下的

1595136403

liulang0808 发表于 2014-12-7 10:31
不客气，每个人的处理方式不一样，估计论坛上还有别的处理方式，可以参阅下的

老师你好：我是个新手经常看各位老师有特点贴，以后还请多多关照，谢谢老师！！

达州张先生

不对，这样排名不是惟一的，请看附件

liulang0808

达州张先生 发表于 2014-12-15 11:46
不对，这样排名不是惟一的，请看附件

这个是排一列的，不是多列的

xwdljh

测试了，各有不同：
liulang0808 老师的排位形式是国际比赛排名方式，即并列第n，不管几个并列，接着都是第n+1、第n+2........不缺位
达州张先生 的排位形式是接排实际位置排名方式，即并列第n，如果2个并列，那么接下来是第n+2、第n+3。如果3个并列，那么接下来是第n+3、第n+4......
比如第1名有1人，第2名有3人，那么下一名有两种排位方式，前一种是第2+1=3名，后一种是第2+3=5名

onlycxb

1. select
   
2.     score,(select count( score)+1 from score as s2 where s2.score > s1.score) as Rank
   
3. from score as s1
   
4. order by score DESC;
   

复制代码

onlycxb

https://blog.csdn.net/cxb2011/ar ... 1018.2118.3001.4187