中国式排名

dajiashiren

  

98

  第一名
  

95

  第二名
  

94

  第三名
  

94

  第三名
  

94

  第三名
  

90

  
  

89

  
  

76

  
  

54

  

jiangxiaoyun

="第"&NUMBERSTRING(SUMPRODUCT(($A$1:$A$9>=A1)/(COUNTIF($A$1:$A$9,$A$1:$A$9))),1)&"名"

petergaod

借鉴楼上的公式
Sub test()
    [B1] = getFomulaByNum(1)
    no = 1
    For i = 2 To [A65536].End(xlUp).Row
        no = no + 1
        If Cells(i, 1)= Cells(i - 1, 1)Then
            Cells(i, 2) = Cells(i - 1, 2)
        Else
            Cells(i, 2) = getFomulaByNum(no)
        End If
    Next
End Sub

Function getFomulaByNum(n) As String
    getFomulaByNum = "=" & Chr(34) & "第" & Chr(34) & "& NUMBERSTRING(" & n & ", 1) & " & Chr(34) & "名" & Chr(34)
End Function

dajiashiren

结果是这样的，不是我想要的效果，按道理第三名完了，就应该是第四名，而这个直接到了第六名。

excelvlookup

sheet上多完善的排序功能啊！为什么非要写一个乱七八糟的宏？

一把小刀闯天下

Option Explicit

Sub test()
  Dim arr
  arr = [a1].CurrentRegion.Resize(, 2)
  Call rank(arr, 1, UBound(arr, 1), 1, 2, False) 'true为美式排名
  [a1].CurrentRegion.Resize(, 2) = arr
End Sub

Function rank(arr, first, last, key, col, order As Boolean)
  Dim i As Long, j As Long, m As Long
  m = 1: arr(first, col) = 1
  For i = first + 1 To last
    If order Then
      m = m + 1
    Else
      If arr(i, key) <> arr(i - 1, key) Then m = m + 1
    End If
    If arr(i, key) = arr(i - 1, key) Then
      arr(i, col) = arr(i - 1, col)
    Else
      arr(i, col) = m
    End If
  Next
End Function

liulang0808

http://club.excelhome.net/thread-1170523-1-1.html
曾经的帖子供参考

jiangxiaoyun

Sub ggf()
    Set d = CreateObject("scripting.dictionary")
    arr = [a1:b9]
    For i = 1 To UBound(arr)
        d(arr(i, 1)) = ""
    Next
    Dim s, s1()
    s = d.keys
    ReDim s1(1 To UBound(s) + 1)
    For i = 1 To UBound(s1)
        s1(i) = Application.Large(s, i)
        d(s1(i)) = i
    Next
    For i = 1 To UBound(arr)
        arr(i, 2) = d(arr(i, 1))
    Next
    [a1].Resize(UBound(arr), 2) = arr
End Sub

jiangxiaoyun

好久没写,权当练手.excel就是烦

aecn

jiangxiaoyun 发表于 2019-11-14 09:24
Sub ggf()
    Set d = CreateObject("scripting.dictionary")
    arr = [a1:b9]

这个更好，不需要从大到小排好数字也可以