求第K大值，详见附件

maditate

feiren228 发表于 2015-3-18 22:03
求指教。。

设一个空数组，将分数直接填进对应的单元，再读数组，有数的有效，序号自然也就出来了。

liu-aguang

1. Sub test()
   
2.     Dim ar, i%
   
3.     ar = Range("d5").CurrentRegion
   
4.     For i = 2 To UBound(ar)
   
5.        ar(i, 2) = Columns("b").Find(ar(i, 1), , xlValues, xlWhole).Offset(, -1)
   
6.     Next
   
7.     Range("d5").Resize(UBound(ar), 2) = ar
   
8. End Sub
   

复制代码

sayhi95

liu-aguang 发表于 2015-3-18 22:10

请问老师这段代码是用到了B列数据吗？

liu-aguang

sayhi95 发表于 2015-3-19 00:16
请问老师这段代码是用到了B列数据吗？

1. Sub test()
   
2.     Dim ar, br, d, i%
   
3.     ar = Range("d5").CurrentRegion
   
4.     br = Range("a1").CurrentRegion
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     For i = 2 To UBound(br)
   
7.         d(br(i, 1)) = ""
   
8.     Next
   
9.     For i = 2 To UBound(ar)
   
10.         ar(i, 2) = Application.Large(d.keys, ar(i, 1))
    
11.     Next
    
12.     Range("d5").Resize(UBound(ar), 2) = ar
    
13. End Sub
    

复制代码

首席打杂

用函数似乎也可解啊。。。。

1. =LARGE(IF(FREQUENCY(A$2:A$17,A$2:A$17),A$2:A$17),D6)

复制代码

大树_zhao

学习一下,很久没来了