Hsieh

¦^´_ 4# JOSH

1. Sub h()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. With Sheets("List")
   
4. For Each a In .Range(.[A2], .[A2].End(xlDown))
   
5.   d(a.Value) = a.Offset(, 7)
   
6. Next
   
7. End With
   
8. With Sheets("Summary")
   
9. For i = 4 To .[IV2].End(xlToLeft).Column
   
10. For Each a In .Range(.[A4], .[A4].End(xlDown))
    
11. .Cells(a.Row, i) = d(.Cells(2, i) & a)
    
12. Next
    
13. Next
    
14. End With
    
15.   
    
16. End Sub

½Æ»s¥N½X