Hsieh

1. Sub ex()
   
2. Dim Ay()
   
3. ar = Array(1, 2, 3, 5, 7, 9, 10, 11, 13, 14, 15) '¤£³sÄò°}¦C
   
4. For i = 0 To UBound(ar) - 1 ''¤£³B²z³Ì«á¤¸¯À
   
5.    j = i
   
6.    x = ar(j)
   
7.       Do Until ar(j) + 1 <> ar(j + 1)
   
8.          j = j + 1
   
9.          If j = UBound(ar) Then Exit Do
   
10.       Loop
    
11.    y = ar(j)
    
12.    i = j
    
13.    ReDim Preserve Ay(s)
    
14.    Ay(s) = IIf(x = y, x, x & "~" & y)
    
15.    s = s + 1
    
16. Next
    
17. If j = UBound(ar) - 1 Then '³B²z³Ì«á¤¸¯À
    
18. ReDim Preserve Ay(s)
    
19. Ay(s) = ar(UBound(ar))
    
20. End If
    
21. MsgBox Join(Ay, ",")
    
22. End Sub

½Æ»s¥N½X

¦^´_ 7# PKKO