ikboy

¦^´_ 1# chiang0320


   
¸Õ¤U:

1. Sub ZZ()
   
2. Dim ar, rng As Range, d As Object, k, t
   
3. Set d = CreateObject("scripting.dictionary")
   
4. Set rng = Range([j2], [j2].End(2))
   
5. ar = [b2].CurrentRegion
   
6. t = [c2]
   
7. For i = 2 To UBound(ar)
   
8.     d(ar(i, 2) & t) = d(ar(i, 2) & t) & "|" & ar(i, 1)
   
9. Next
   
10. k = d.keys
    
11. For i = 0 To UBound(k)
    
12.     j = Application.Match(k(i), rng, 0)
    
13.     t = Split(Mid(d(k(i)), 2), "|")
    
14.     rng.Cells(1, j).Offset(1, 0).Resize(UBound(t) + 1, 1) = Application.Transpose(t)
    
15. Next
    
16. End Sub

½Æ»s¥N½X