GBKEE

¦^´_ 3# c_c_lai
¤]¥i¥H³o¼Ë¼g

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim i, Rng As Range, Msg As Boolean, Sht As Variant
   
4.      With Worksheets("¤u§@ªí1")
   
5.         For i = .Range("A1").End(xlDown).Row To 1 Step -1
   
6.             Msg = False
   
7.             For Each Sht In Array(Worksheets("¤u§@ªí2"), Worksheets("¤u§@ªí3"))
   
8.                 Set Rng = Sht.Range(Sht.Range("A1"), Sht.Range("A1").End(xlDown))
   
9.                 If Not IsError(Application.Match(.Cells(i, "A"), Rng, 0)) Then Msg = True
   
10.             Next
    
11.             If Msg = False Then .Range("a" & i).Delete xlUp
    
12.         Next
    
13.     End With
    
14. End Sub

½Æ»s¥N½X