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

[µo°Ý] ¦³Ãö"°õ¦æ¶¥¬q¿ù»~13 «¬ºA¤£²Å¦X"°ÝÃD

[µo°Ý] ¦³Ãö"°õ¦æ¶¥¬q¿ù»~13 «¬ºA¤£²Å¦X"°ÝÃD

¥»©«³Ì«á¥Ñ waterful ©ó 2016-8-29 14:24 ½s¿è

¥H¤U¬O¦Û¤v¼gªº«D±`¶§¬Kªº¤ñ¹ï·s³渹µ{¦¡¡A¥X°ÝÃDªº¦b1¨º¦æ¡A­Y§ï¦¨Find(..., after:=wsh2.Cells(3, 1))«h¤£·|¥X²{¦¹¿ù»~¡A¦ýµ{¦¡®Ä²v®t«Ü¦h!!
¦³¸ÕµÛ±Ni, jªº«¬ºA§ï¬°byte, long, single, double, integer, variantµ¥µ¥¬ÒµLªk§ïµ½, ª¦¤F¤åµo²{¥X²{¦¹¿ù»~°T®§ªº­ì¦]¤£¤@©w¬O¦]¬°type©w¸q°ÝÃD¡A¤£ª¾¹D¦³­þ¦ì¤j¤j¥i¥HÀ°§Ú¸Ñµª¡AÁÂÁ¡C
PS.¦¹¿ù»~¥X²{«á¡A¥u­n±N¿ù»~ÂI±¼"°±¤î°õ¦æ"¡A¤´µM·|¶]¥X·Q­nªº¸ê®Æ¡A¥u¬O¨C¦¸°õ¦æ¨ì¤@¥b³£»ÝÂI±¼¡A©Ò¥H·P¨ì«Ü§xÂZ!!
¥¼§¹¤uºû­×³æ.rar (14.43 KB)
  1. Sub ³Ñ¾lºû­×³æ()

  2.     Dim wsh1 As Worksheet, wsh2 As Worksheet
  3.     Dim rngNew As Range
  4.     Dim row1 As Long, row2 As Long
  5.     Dim i As Double, j As Double
  6.                               
  7.     Set wsh1 = Sheets("¥¼§¹¤uºû­×³æ")
  8.     Set wsh2 = Sheets("list_toexcel")
  9.     row1 = wsh1.[B2].End(xlDown).Row
  10.     row2 = wsh2.[A3].End(xlDown).Row
  11.     Set rngNew = wsh2.Range("A3:A" & row2)
  12.         
  13.     j = 3
  14.         
  15.     'step1.¤ñ¹ïºû­×³æ¸¹¬O§_¦s¦b , §ä¤£¨ì«h±N¦¹¦æ§R°£
  16.     With wsh1

  17.         For i = 2 To row1 Step 1

  18.             '¤ñ¹ï·sºû­×³æ¬O§_¦s¦b¡A§ä¤£¨ì«h±Nºû­×³æ±þ±¼
  19. 1:      If rngNew.Find(.Cells(i, 2), after:=wsh2.Cells(j, 1)) Is Nothing Then
  20.             
  21.                 .Cells(i, 2).Offset(0).EntireRow.Delete
  22.                 'ºû­×³æ§R°£¤@¦æ«á¡A¦æ¼Æ¤Ö1
  23.                 row1 = row1 - 1
  24.                 '·sºû­×³æ¤Ö¤ñ¹ï¤@¦æ¡A¥H¼W¥[µ{¦¡®Ä²v
  25.                 j = j + 1
  26.                 row2 = row2 - 1
  27.                 '§ïµ½§R°£¤@¦æ«á¡Aµ{¦¡§ï±q¤U¤@¦æ¶}©l¤ñ¹ï
  28.                 GoTo 1
  29.                
  30.             End If
  31.             
  32.         Next
  33.       
  34.     End With

  35. End Sub
½Æ»s¥N½X

Sub §R°£_01()
Dim R&, i&
Application.ScreenUpdating = False
With Sheets("¥¼§¹¤uºû­×³æ")
¡@¡@¡@R = .[B65536].End(xlUp).Row
¡@¡@¡@For i = R To 2 Step -1
¡@¡@¡@¡@¡@If Sheets("list_toexcel").[A:A].Find(.Cells(i, 2), Lookat:=xlWhole) Is Nothing Then
¡@¡@¡@¡@¡@¡@.Cells(i, 2).EntireRow.Delete
¡@¡@¡@¡@¡@End If
¡@¡@¡@Next
End With
End Sub


³Ì°ò¥»ªº§R°£¦C¡A¶·±q¤U¦Ó¤W¶i¦æ¡A¸û¤£©öµo¥Í¿ù»~¡ã
¸ê®Æ¸û¦hªº¸Ü¡A¦³¨ä¥¦¤è¦¡¡A¦ý­n¬Ý§¹¾ãªºªí®æ¡A¬O§_¦³¨ä¥¦Äæ¦ì¡I
¡@
¡@

TOP

¦^´_ 2# ­ã´£³¡ªL
·PÁª©¥D¡A³t«×¯uªº§Ö«Ü¦h¡A¦Ó¥B¤]¤£¦A¥X²{¿ù»~¤F!!
§¹¾ãªºªí®æ¬O¯uªº¦³¤@¦«¨®ªºÄæ¦ì¡A¦³ªº¬O¤Hkeyªº¡A¦³ªº¬O¨t²Î²£¥Íªº¡A¦ý¥D­nÁÙ¬O¥H³æ¸¹¨Ó°µ§R¿ï¡C
³o¦¸¤S¾Ç¨ì¤FDim R"&"¬°long¡A¤§«e¤@ª½¬Ý¤£À´¡A³o¦¸Á`ºâ·dÀ´¤F¡AÁÂÁª©¥D!!

TOP

¦^´_ 3# waterful

§R°£³t«×§Ö, ¬O¦]¬°¥[¤F¤U­±³o¦æ,
Application.ScreenUpdating = False '­áµ²µ{¦¡°õ¦æ¹Lµ{¤¤ªºµe­±ÅܤÆ, µ¥°õ¦æµ²§ô¦AÅã¥Üµ²ªG
¤W­±¨ºµ{¦¡¬O³Ì°ò¥»ªº§R°£ªk, ¹ï·s¤â©öÀ´©ö¼g!

¸ê®Æ­Y¶W¹L¼Æ¤d©Î¤W¸Uµ§¥H¤W, ´N­n¥Î¨ä¥¦§ó¨ã®Ä¯àªº¼gªk, ¬Û¹ï¦³¨Ç»yªk¸û¤£©ö²z¸Ñ,
¦ý¹ïVBA¦³¤ß, ÁÙ¬O­n¥h±µÄ², ½×¾Â¦³«Ü¦h²{¦¨ªº, ¥i§ä¬Ý¬Ý, ©Îµ¥¨ä¥L¤j¤j¬Ý¬O§_¦³ªÅ°µ­Ó¥t¸Ñ!

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD