lpk187

¦^´_ 1# ui123


    ¥ý¤å¦r±Æ§Ç¡A¦A¼Æ¦r±Æ§Ç
À³¸Ó¥i¥H¹F¦¨§A­nªº®ÄªG¡I

1. Sub Bubblesort()
   
2. Dim i, j  As Integer
   
3. Dim arr, si, sj, s As Variant
   
4. arr = Range("a4:a" & Cells(Rows.Count, 1).End(xlUp).Row)
   
5. For i = 1 To UBound(arr)
   
6.     For j = i + 1 To UBound(arr)
   
7.         If arr(i, 1) > arr(j, 1) Then
   
8.             s = arr(i, 1)
   
9.             arr(i, 1) = arr(j, 1)
   
10.             arr(j, 1) = s
    
11.         End If
    
12.     Next
    
13. Next
    
14. For i = 1 To UBound(arr)
    
15.     For j = i + 1 To UBound(arr)
    
16.             si = Split(arr(i, 1), "-")
    
17.             sj = Split(arr(j, 1), "-")
    
18.             If si(0) = sj(0) Then
    
19.                 If si(1) + 1 > sj(1) + 1 Then '+1¬OÅý"¤å¦r«¬ªº¼Æ¦r"Åܬ°"¼Æ¦r"
    
20.                     s = arr(i, 1)
    
21.                     arr(i, 1) = arr(j, 1)
    
22.                     arr(j, 1) = s
    
23.                     End If
    
24.             End If
    
25.     Next
    
26. Next
    
27. [a4].Resize(UBound(arr)) = arr
    
28. End Sub

½Æ»s¥N½X