Hsieh

¦^´_ 2# xandertco

1. Sub ¶ñ¤J()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. With Sheets("±M®×½s¸¹")
   
4.    ar = .Range("A1").CurrentRegion.Value
   
5.    For i = 2 To UBound(ar, 1)
   
6.       d(ar(i, 1)) = IIf(d(ar(i, 1)) = "", ar(i, 2), d(ar(i, 1)) & "," & ar(i, 2))
   
7.    Next
   
8. End With
   
9. With Sheets("¥Í²£»â°h®Æ©ú²Óªí")
   
10.    For Each a In .Range("A:A").SpecialCells(xlCellTypeConstants)
    
11.    If d(a.Value) <> "" Then
    
12.       ay = Split(d(a.Value), ",")
    
13.        a.Offset(, 16).Resize(, UBound(ay) + 1) = ay
    
14.     End If
    
15.    Next
    
16. End With
    
17. End Sub

½Æ»s¥N½X