ikboy

1. Sub zz()
   
2. Dim a, b, c As Object, d As Object, i&, j&, n&, k
   
3. Set d = CreateObject("scripting.dictionary")
   
4. a = Range("a2:a" & [a65536].End(3).Row).Value
   
5. ReDim aa(1 To UBound(a))
   
6. For Each b In a
   
7.     n = Len(b)
   
8.     d(n) = d(n) & "|" & b
   
9. Next
   
10. k = d.keys
    
11. With Application
    
12.     For i = 1 To d.Count
    
13.         n = .Small(k, i)
    
14.         t = Split(Mid(d(n), 2), "|")
    
15.         Set c = CreateObject("system.collections.arraylist")
    
16.         For Each b In t
    
17.             c.Add b
    
18.         Next
    
19.         c.Sort
    
20.         For Each b In c
    
21.             j = j + 1
    
22.             a(j, 1) = b
    
23.         Next
    
24.     Next
    
25. End With
    
26. [d2].Resize(j) = a
    
27. End Sub

½Æ»s¥N½X