GBKEE

¦^´_ 3# basarasy
¼gªk¤£¤î¤@­Ó

1. Sub Ex()
   
2.     Dim D As Object, E, Rng As Range
   
3.     Set D = CreateObject("SCRIPTING.DICTIONARY")
   
4.     For Each E In Sheet2.Range("A2", Sheet2.Range("A" & Rows.Count).End(xlUp))
   
5.         D(E.Value) = E & ""
   
6.     Next
   
7.     For Each E In Sheet1.Range("A3", Sheet1.Range("A" & Rows.Count).End(xlUp))
   
8.         If D.Exists(E.Value) = False Then
   
9.             If Rng Is Nothing Then Set Rng = E.Resize(, 3) Else Set Rng = Union(Rng, E.Resize(, 3))
   
10.         End If
    
11.     Next
    
12.     If Not Rng Is Nothing Then Rng.Copy Sheet2.Range("A" & Rows.Count).End(xlUp).Offset(1)
    
13. End Sub
    
14. Sub Ex1()
    
15.     Dim E, a&, Rng As Range
    
16.     For Each E In Sheet1.Range("A3", Sheet1.Range("A" & Rows.Count).End(xlUp))
    
17.         If IsError(Application.Match(E, Sheet2.[a:a], 0)) Then
    
18.             If Rng Is Nothing Then Set Rng = E.Resize(, 3) Else Set Rng = Union(Rng, E.Resize(, 3))
    
19.         End If
    
20.     Next
    
21.     If Not Rng Is Nothing Then Rng.Copy Sheet2.Range("A" & Rows.Count).End(xlUp).Offset(1)
    
22. End Sub

½Æ»s¥N½X