Hsieh

¦^´_ 1# winston219

1. Sub Ex()
   
2. Dim A As Range
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. With Sheet2
   
5. For Each A In .Range(.[A2], .[A65536].End(xlUp))
   
6.    d(A.Value) = Array(A.Offset(, 2).Value, A.Offset(, 1).Value)
   
7. Next
   
8. End With
   
9. With Sheet1
   
10. For Each A In .Range(.[A2], .[A65536].End(xlUp))
    
11.   If d.exists(A.Value) = True Then A.Offset(, 2).Resize(, 2) = d(A.Value)
    
12. Next
    
13. End With
    
14. End Sub

½Æ»s¥N½X