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

GBKEE

¦^´_ 3# day741025
   ±q²Ä3­Ó¶}©l¤u§@ªí¨Ì§Ç¨ì³Ì«áªº¤u§@ªí

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

½Æ»s¥N½X

GBKEE

¦^´_ 6# day741025
¦pªG®³±¼¡uRng=""¡v´N·|¥X²{¿ù»~  ½Ð°Ý¿ù»~¥X²{¦b¦ó³Bª¾¹D¶Ü?
Do  
if a>15 then exit do     °j°é¤¤¶¡,¦³³]¤U±ø¥ó Â÷¶}°j°é.
LooP   
¦p°j°é¤¤¶¡¨S³]¤U±ø¥óÂ÷¶}°j°é,  ¤]¨S³]¤U  While , Until, ±ø¥ó °j°é¬O¤@ª½°õ¦æ¤U¥h,¨S§¹¨S¤F

Do
Loop Until  [¤@ª½¨ì±ø¥ó¬°]  Â÷¶}°j°é


Do  While    [±ø¥ó¤@ª½¬O]   Ä~Äò°j°é   
Loop

GBKEE

¦^´_ 9# day741025
Next  ¦³«ü©w ¨S«ü©w ¬Ò¥i