GBKEE

¦^´_ 1# GGGYYY
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex_Match() '¤j¤p¼g¨S¦³¤À§O
   
3.     Dim M As Variant, Rng As Range, E As Range
   
4.     Set Rng = Sheets("¹ï·Ó").Range("A:A")
   
5.     For Each E In Sheets("¼Æ­È").UsedRange.Columns(1).Offset(1).Cells
   
6.         M = Application.Match(E, Rng, 0)   '¨S§ä¨ì¶Ç¦^¿ù»~­È
   
7.         If IsNumeric(M) Then               '§ä¨ì¶Ç¦^¼Æ¦r
   
8.             Rng.Cells(M, 2).Resize(, 2).Copy E.Offset(, 1)
   
9.         Else
   
10.             With E.Cells(1, 2).Resize(, 2)
    
11.                 .Value = ""
    
12.                 .Interior.ColorIndex = xlNo
    
13.             End With
    
14.         End If
    
15.     Next
    
16. End Sub
    
17. 
    
18. Sub Ex_¦r¨åª«¥ó() '¤j¤p¼g¦³¤À§O
    
19.     Dim E As Range, d As Object, i As Integer
    
20.     Set d = CreateObject("scripting.dictionary") '¦r¨åª«¥ó
    
21.     i = 1
    
22.     With Sheets("¹ï·Ó")
    
23.         Do While .Cells(i, "a") <> ""
    
24.             Set d(.Cells(i, "a").Value) = .Cells(i, "a").Offset(, 1).Resize(, 2)
    
25.             i = i + 1
    
26.         Loop
    
27.     End With
    
28.     For Each E In Sheets("¼Æ­È").UsedRange.Columns(1).Offset(1).Cells
    
29.         If d.EXISTS(E.Value) Then   'Dictionary ª«¥ó¤¤«ü©wªºÃöÁä¦r¦s¦b¡A¶Ç¦^ True¡A­Y¤£¦s¦b¡A¶Ç¦^ False¡C
    
30.             d(E.Value).Copy E.Offset(, 1)
    
31.         Else
    
32.             With E.Cells(1, 2).Resize(, 2)
    
33.                 .Value = ""
    
34.                 .Interior.ColorIndex = xlNo
    
35.             End With
    
36.         End If
    
37.     Next
    
38. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# pegawang
·í range1 Is Nothing   
MsgBox (range1.Address)  ·|¥X¿ùªº