¸ê®Æ¤ñ¹ï»P§R°£

modelcrazyer

¦U¦ì¹F¤H
§Ú¦³¤T­Ó¤u§@ªí,¤À§O¬°
¤u§@ªí1
A-1
B-2
C-3
¤u§@ªí2
A-1
D-3
E-5
G-6
¤u§@ªí3
B-2
F-7
H-9
D-10
·Q°µ¨ì¸g¤u§@ªí1¸g»P¤u§@ªí2¤Î¤u§@ªí3¤ñ¹ï«á¥u³Ñ¤U
A-1
B-2
½Ð°Ý¸Ó«ç»ò°µ

c_c_lai

¦^´_ 4# GBKEE
³oºØ³æ¤Mª½¤Jªº¼¶¼g¤è¦¡¡A¤]¤ñ¸ûª½±µ¤F·í¡A
³o¥ç¬O§Ú¥­®Éµ{¦¡ªº¼¶¼g­·®æ¡AÁÂÁ±z¡I

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

c_c_lai

¦^´_ 1# modelcrazyer
¦^´_ 2# kimbal

1. If ld.exists(.Range("A1").Offset(i - 1, 0).Value) Then

½Æ»s¥N½X

À³§ï¥¿¬°

1. If Not ld.exists(.Range("A1").Offset(i - 1, 0).Value) Then

½Æ»s¥N½X

µª®×¤~·|¦p #1 modelcrazyer ¼Ó¥D©Ò­z¡C

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