¦p¦ó¦Û°Ê¨ú¥N·sªº¤º®e¸ê®Æ?

winston219

¦pªþÀÉ¡AÁÂÁ¤j¤j! book.rar (5.91 KB)

¤U¸ü¦¸¼Æ: 22

2010-11-25 20:07

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

winston219

·PÁÂHsieh¤j¤j!§Ú¬Oªì¾ÇªÌ¡A¤£À´±zªºµ{¦¡¡A¦ýit's work! §Ú·|¦n¦n¬ã¨s±z©Ò¼gªº¤º®e¡A³o¼Ë¤~¯à¼W¥[VBAªº¥\¤O¡A¦A¦¸ÁÂÁ±z~