ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

¦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
½Ð°Ý¸Ó«ç»ò°µ

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

TOP

¦^´_ 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

TOP

¦^´_ 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

TOP

  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
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

        ÀR«ä¦Û¦b : ¥¬¬I¦p¼½ºØ¡A¥HÅw³ß¤ß´þ¼íºØ¤l¡A¤~·|µoªÞ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD