求第几大？

wmy920130

也就是说a列数据和b列数据压根就没对应起来

yjh_27

wmy920130 发表于 2015-4-23 19:56
细看一下还有问题
Function YjhRank(S, rng)
j1 = Application.ThisCell.Row

j1 = Application.ThisCell.Row
改
j1 = S.Row

wzb5566

chxw68 发表于 2015-4-23 15:13

    For k = 0 To UBound(kk)
      mm = Application.Small(kk, k + 1)
      d(mm) = m
      m = m + 1
    Next

大侠，这个地方为什么这么写，Application.small是什么意思？

wmy920130

还是不对，请看黄色部分

wzb5566

chxw68 发表于 2015-4-23 15:13

small（数组，第几小）

老师，再打扰一下，这个函数的两个参数是这个意思么？

wzb5566

chxw68 发表于 2015-4-23 15:13

谢谢，我百度到了

wmy920130

yjh_27 发表于 2015-4-23 19:43
见 E 列。

没办法了吗

wmy920130

搞好了，借用网上的代码，谁的代码忘记了，是以前存在电脑里的，代码如下
Public Function rankchina(data, data_area, ref) 'rankchina(数据，范围，参数）。参数为1时顺序排名，0为逆序排名
Dim d As Object, e As Object, rng, i As Integer
If ref = 1 Then
   Set d = CreateObject("scripting.dictionary")
        For Each rng In data_area
            If rng = data Then i = i + 1 Else If rng < data Then d(rng * 1) = 1
        Next
        If i > 0 Then rankchina = d.Count + 1 Else rankchina = "超出范围"
Else
        Set d = CreateObject("scripting.dictionary")
        For Each rng In data_area
            If rng = data Then i = i + 1 Else If rng > data Then d(rng * 1) = 1
        Next
        If i > 0 Then rankchina = d.Count + 1 Else rankchina = "超出范围"
   
   
End If
End Function

wmy920130

虽然搞定了，还是要谢谢yjh_27 、chxw68和gxl19870625的帮助