wqfzqgk

¦^´_ 7# Hsieh


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

Hsieh

¦^´_ 6# wqfzqgk

1. Function maxk(rng As Range, k As Integer)
   
2. Set d = CreateObject("scripting.dictionary")
   
3. Dim rngg As Range
   
4. For Each rngg In rng
   
5. d(rngg.Value) = ""
   
6. Next
   
7. maxk = Application.WorksheetFunction.Large(d.keys, k)
   
8. End Function

½Æ»s¥N½X

³o¼Ë¤£»Ý¥ÎON ERROR RESUME NEXT¨ÓÁקK¿ù»~

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

¬Ý错¤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

PD961A

¦^´_ 3# metrostar


    §ä¥X²Ä3¤j­È.rar (2.12 KB)

¤U¸ü¦¸¼Æ: 22

2010-7-6 17:44

metrostar

¦hÁ wqfzqgk «Ó­ô¾Çªø

±zªº¤½¦¡ÁöµM¯à¥Î

¦ý¤£¬O¾Ç©f­nªº,¨D¥Xªº¼Æ¾Ú¬O 99 ­C (¤£¹ï¤£¹ï)

¬O­n 97 ¨º­Ó¼Æ¾Ú¤~¹ï
¤£ºÞ«e­±¼Æ¾Ú¬O§_¦³­«½Æ 100,99,97,96
­n§ä¥X²Ä¤T¨º­Ó¤~ºâ

wqfzqgk

=large(­S围,3)