Hsieh

¦^´_ 3# cslinmiso

®É¶¡¬O§_¤]­n¬Û¦P?

1. Sub ex()
   
2. Dim Mystr$, d As Object, A As Range
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. With ¤u§@ªí1
   
5. For Each A In .Range(.[A2], .[A2].End(xlDown))
   
6.    Mystr = Join(Application.Transpose(Application.Transpose(A.Resize(, 3))), ",")
   
7.    d(Mystr) = A.Offset(, 3).Resize(, 3)
   
8. Next
   
9. End With
   
10. With ¤u§@ªí2
    
11. For Each A In .Range(.[A2], .[A2].End(xlDown))
    
12.    Mystr = Join(Application.Transpose(Application.Transpose(A.Resize(, 3))), ",")
    
13.   A.Offset(, 3).Resize(, 3) = d(Mystr)
    
14. Next
    
15. End With
    
16. End Sub

½Æ»s¥N½X