GBKEE

¦^´_ 1# day741025


¸Õ¸Õ¬Ý

1. Sub Ex()
   
2.     Dim D As Object, Wb(1 To 2) As Workbook, Sh As Worksheet, Rng As Range
   
3.     Set Wb(1) = Workbooks("ÂÂ.xlsx")
   
4.     Set Wb(2) = Workbooks("·s.xlsx")
   
5.     For Each Sh In Wb(1).Sheets                         '¦bWb(1)ªº¤u§@ªí¶°¦Xª«¥ó ¨Ì§Ç¸Ì¨C¤@¤u§@ªí
   
6.         Set D = CreateObject("SCRIPTING.DICTIONARY")    '³]¥ßÅܼƬ°¦r¨åª«¥ó
   
7.         Set Rng = Sh.[B2]                               'ÂÂ.xlsx¨C¤@¤u§@ªíªºB2¶}©l
   
8.         Do
   
9.             D(Rng.Value) = Rng.Offset(, 1)              '¬ö¿ýCÄæ¸ê®Æ¨ì¦r¨åª«¥ó
   
10.             Set Rng = Rng.Offset(1)                     'BÄ橹¤U²¾¤@¦C
    
11.         Loop Until Rng = ""                             'Rng = ""-> Â÷¶}°j°é
    
12.         Set Rng = Wb(2).Sheets(Sh.Name).[B2]            '·s.xlsx¨C¤@¤u§@ªíªºB2¶}©l
    
13.         Do
    
14.             If D.EXISTS(Rng.Value) Then Rng.Offset(, 1) = D(Rng.Value)
    
15.             'EXISTS  ->¦bDictionaryª«¥ó¤¤«ü©wªº  ÃöÁä¦r( Rng.Value ) ¦s¦b¡A¶Ç¦^ True¡A­Y¤£¦s¦b¡A¶Ç¦^ False¡C
    
16.             'D(Rng.Value)  ¨ú¥X¸ê®Æ
    
17.             Set Rng = Rng.Offset(1)                     'BÄ橹¤U²¾¤@¦C
    
18.         Loop Until Rng = ""
    
19.     Next
    
20. End Sub

½Æ»s¥N½X