kimbal

1. Sub test()
   
2.     Set ld = CreateObject("Scripting.Dictionary")
   
3.     For Each sht In Array(Worksheets("¤u§@ªí2"), Worksheets("¤u§@ªí3"))
   
4.         For Each c In Range(sht.Range("A1"), sht.Range("A1").End(xlDown))
   
5.             If Not ld.exists(c.Value) Then
   
6.                 ld.Add c.Value, c.Value
   
7.             End If
   
8.         Next
   
9.     Next
   
10.     With Worksheets("¤u§@ªí1")
    
11.         For i = .Range("A1").End(xlDown).Row To 1 Step -1
    
12.             If ld.exists(.Range("A1").Offset(i - 1, 0).Value) Then
    
13.                 .Range("A1").Offset(i - 1, 0).Delete (xlShiftUp)
    
14.             End If
    
15.         Next
    
16.     End With
    
17.     Set ld = Nothing
    
18. End Sub

½Æ»s¥N½X