­ã´£³¡ªL

ÁÙ¬O¦³ÂI¬Ý¤£À´¡A¤j¬ù¤]¼g¤@­Ó¡G

1. Function GetLoseVal(xRng As Range, xInd%)
   
2. Dim Arr, xMin, i&, j&, k%, N%, xD
   
3. xMin = "":  GetLoseVal = "":  Arr = xRng.Value
   
4. Set xD = CreateObject("Scripting.Dictionary")
   
5. For i = 1 To UBound(Arr)
   
6. For j = i + 1 To UBound(Arr)
   
7.     If Arr(j, 1) >= Arr(i, 1) Then Exit For
   
8.     If Arr(j, 1) < xMin Then k = j: xMin = Arr(j, 1)
   
9. Next
   
10.     If xMin <> "" Then N = N + 1: xD(N) = xMin - Arr(i, 1): i = k: xMin = ""
    
11. Next
    
12. If xInd <= N Then GetLoseVal = Application.Small(xD.items, xInd)
    
13. End Function

½Æ»s¥N½X

¢Ò¢¶¤½¦¡¡G=GetLoseVal(D$20:D$34,ROW(A1))¡@¥k©Ô¤U©Ô
¡@
¡@

­ã´£³¡ªL

¦^´_ 28# cdkee


=ROW(A1)  >>>> = 1
¤U©Ô«h»¼¼W
=ROW(A2)  >>>> = 2
...
...