求第几大？

wmy920130

有下列数字：

10	1128	18
11	643	7
12	1044	17
13	813	12
14	843	13
15	471	4
16	172	1
17	914	16
18	784	9
19	885	15
20	800	11
21	714	8
22	873	14
23	442	3
24	471	4
25	873	14
26	542	5
27	599	6
28	786	10
29	271	2

要求查找a列任意一个数字所对应b列数据在b列排第几，c列的数字是想要的结果，即按b列排序的顺序号，但实际是不能对数据排序的，相同数据的排列顺序号只有一个，且排列顺序号不能中断

wmy920130

高手哪里去了？

gxl19870625

1. =rank(B1,B:B,1)

复制代码

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr
   
4.   Dim d As Object
   
5.   Set d = CreateObject("scripting.dictionary")
   
6.   With Worksheets("sheet1")
   
7.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
8.     .Range("c1:c" & r).Clear
   
9.     arr = .Range("b1:c" & r)
   
10.     For i = 1 To UBound(arr)
    
11.       d(arr(i, 1)) = ""
    
12.     Next
    
13.     m = 1
    
14.     kk = d.Keys
    
15.     For k = 0 To UBound(kk)
    
16.       mm = Application.Small(kk, k + 1)
    
17.       d(mm) = m
    
18.       m = m + 1
    
19.     Next
    
20.     For i = 1 To UBound(arr)
    
21.       arr(i, 2) = d(arr(i, 1))
    
22.     Next
    
23.     .Range("b1").Resize(UBound(arr), 2) = arr
    
24.   End With
    
25. End Sub
    

复制代码

chxw68

详见附件。

wmy920130

谢谢chxw68，完全正确，改为函数就好了

wmy920130

如何改为函数？

wj2368

wmy920130 发表于 2015-4-23 15:27
如何改为函数？

这个就是　rank　函数

grf1973

1. Sub tt()
   
2.     arr = [a1].CurrentRegion
   
3.     ReDim brr$(1 To UBound(arr))        '如果没定义成字符型下面的addcustomlist会出错
   
4.     For i = 1 To UBound(arr)
   
5.         brr(i) = arr(i, 1)
   
6.     Next
   
7.    
   
8.     [a1].CurrentRegion.Sort key1:=[b1]        '按B列排序
   
9.     For i = 1 To UBound(arr)
   
10.         Cells(i, 3) = i
    
11.     Next
    
12.    
    
13.     Application.AddCustomList ListArray:=brr          '加入排序列：原A列
    
14.     [a1].CurrentRegion.Sort key1:=[a1], OrderCustom:=Application.CustomListCount + 1        '按原A列次序排序
    
15.     Application.DeleteCustomList Application.CustomListCount     '删除排序列
    
16. End Sub
    
17.         
    

复制代码

wmy920130

rank　函数顺序号不连续，中间有断号