Hsieh

¦^´_ 3# acdx

1. Sub nn()
   
2. Dim Ar()
   
3. k = 1.5 '®e³\»~®t
   
4. fm = Array(32.2, 44.3, 63, 79.1, 95.2, 111.3) '±`¼Æ°}¦C
   
5. Set d = CreateObject("Scripting.Dictionary")
   
6. For i = 0 To UBound(fm)
   
7. If i > 0 Then
   
8. ReDim Preserve Ar(s)
   
9. Ar(s) = fm(i) - fm(i - 1)
   
10. s = s + 1
    
11. End If
    
12.    d(i) = fm(i)
    
13. Next
    
14. n = Application.Mode(Ar) '³Ì±`¥X²{®t­È
    
15. For i = LBound(fm) + 1 To UBound(fm) - 1
    
16.    If d(i) - d(i - 1) < n - k Or d(i + 1) - d(i) > n + k Then
    
17.    d.Remove i
    
18.    End If
    
19. Next
    
20. MsgBox Join(d.items, Chr(10))
    
21. End Sub

½Æ»s¥N½X