Hsieh

¦^´_ 3# hungrn

1. Sub ex()
   
2. Dim r&, A As Range, d As Object
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. With Sheets(1)
   
5. r = .UsedRange.Rows.Count - 1
   
6. For Each A In .UsedRange.Rows(1).Cells 'Ū¨ú¤u§@ªí1¸ê®Æ
   
7.    d(A.Value) = A.Offset(1).Resize(r, 1).Value
   
8. Next
   
9. With Sheets(2)
   
10. .UsedRange.Offset(1).ClearContents
    
11. For Each A In .UsedRange.Rows(1).Cells '¼g¤J¨ì¤u§@ªí2
    
12. If d.exists(A.Value) Then A.Offset(1).Resize(r, 1) = d(A.Value)
    
13. Next
    
14. End With
    
15. End With
    
16. End Sub

½Æ»s¥N½X