ikboy

1. Sub zz()
   
2. Dim d As Object, a, k, t, xL As Object, n&
   
3. Set xL = CreateObject("System.collections.arraylist")
   
4. Set d = CreateObject("scripting.dictionary")
   
5. a = Range("h6:h" & [h1048576].End(3).Row)
   
6. For Each k In a
   
7.     d(k) = ""
   
8. Next
   
9. For Each k In d.keys
   
10.     xL.Add k
    
11. Next
    
12. xL.Sort: b = xL.Toarray()
    
13. n = UBound(b)
    
14. For i = 1 To UBound(a)
    
15.     For j = 0 To n
    
16.         If a(i, 1) <= b(j) Then a(i, 1) = n + 1 - j: Exit For
    
17.     Next
    
18. Next
    
19. [i6].Resize(i - 1) = a
    
20. End Sub

½Æ»s¥N½X