wqfzqgk

=large(­S围,3)

wqfzqgk

¬Ý错¤F¡A¤@¦Û©w义¨ç数
Function 数­È(rng As Range, k As Integer)
On Error Resume Next
Set d = CreateObject("scripting.dictionary")
Dim rngg As Range
For Each rngg In rng
d.Add rngg.Value, ""
Next
arr = d.keys
数­È = Application.WorksheetFunction.Large(arr, k)
End Function

wqfzqgk

Function 数­È(rng As Range, k As Integer)
On Error Resume Next
Set d = CreateObject("scripting.dictionary")
Dim rngg As Range
For Each rngg In rng
d.Add rngg.Value, ""
Next
数­È = Application.WorksheetFunction.Large(d.keys
, k)
End Function

wqfzqgk

¦^´_ 7# Hsieh


    ¥H«e¤]¥Î过¡A时间长¤F§Ñ记¤F

wqfzqgk

¦^´_ 8# wqfzqgk


    §Ú没¦³¬Ý§Aªºµ{§Ç¡A§Úªº¨º个¤£¥[¤£¦æ¡A°Q½×¤£­«½Æ²M³æ¤¤¤]¥i¥H¥Î个来实现

wqfzqgk

应该¬O¦b没¦³ÚÌ©w错误ªº±¡况¤U¤~¨Ï¥Îon error