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

[µo°Ý] vba¯S©w®æ¦¡§R°£

[µo°Ý] vba¯S©w®æ¦¡§R°£

¦p¦ó§â²M¥U¤¤ªº¯S©w®æ¦¡§R°£(¼Ð¬OÃC¦â³¡¥÷)¡A¦b¸ê®Æ©¹¤W»¼¸É¡A¦]¬°¨C¤@¶¥¬qªº¸ê®Æ¦³©Ò¤£¦P¡A©Ò¥Hªí®æ¤Wªº¨C¦C¸ê®Æ¤£¬Û¦P(¨S¦³©T©w)¡A½Ð¦Ñ®vÀ°¦£¡AÁÂÁÂ!
ªþÀɸÑÃD: 20160603.rar (21.62 KB)

Sub test()
    Application.ScreenUpdating = False
    With Sheets("Sheet1")
        er = .[J65536].End(3).Row
        For r = er To 1 Step -1
            If .Cells(r, 1).Interior.ColorIndex = 4 Then Rows(r).Delete
        Next r
    End With
    Application.ScreenUpdating = True
End Sub

TOP

¦^´_ 2# Kubi


    ·PÁÂKubi¤j¤jªº¦^µª¡A§R°£ªº«Ü¾ã½T¡A¦ý ¦A«ô°U¤@¤U¡AÁÙ¦³¥t¤@ºØ®æ¦¡¡A©Ò¥Hµ{¦¡¨Sªk¥Î¡A¥t¤@­Ó°ÝÃD¦bSHEEET2 ¡A§R°£ªº¤è¦¡¡A®ÚSHEET1¤@¼Ë¡AªþÀÉ: 20160603AA.rar (29.82 KB)
    ÁÂÁÂ!

TOP

Sub test2()
    Application.ScreenUpdating = False
    With Sheets("Sheet2")
        er = .[I65536].End(3).Row
        For r = er To 1 Step -1
            If .Cells(r, 10).Interior.ColorIndex = 4 Then Rows(r).Delete
        Next r
    End With
    Application.ScreenUpdating = True
End Sub

TOP

¦^´_ 3# man65boy

¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Rng(1 To 2) As Range, Sh As Worksheet
  4.     For Each Sh In Sheets  ' Sheets ª«¥ó: ¬¡­¶Ã¯Sheetªºª«¥ó¶°¦X
  5.         Set Rng(1) = Sh.Cells.Find(Sh.Range("a4"), Sh.Range("a4")) ' [ª««~½s¸¹ ]©Ò¦b¦C:¬°©Ò¦³¤u§@ªíªí³æ¤Wªº¦@³qÂI
  6.         If Not Rng(1) Is Nothing Then '¤u§@ªí¤W¦³´M§ä¨ì [ª««~½s¸¹ ]
  7.             Set Rng(2) = Nothing
  8.             Do
  9.                 If Rng(2) Is Nothing Then
  10.                     Set Rng(2) = Rng(1).Offset(-3).Resize(4).EntireRow     '[ª««~½s¸¹ ]©Ò¦b¦C ,©¹¤W4¦CÀx¦s®æªº¾ã¦C
  11.                 Else
  12.                     Set Rng(2) = Union(Rng(2), Rng(1).Offset(-3).Resize(4).EntireRow)  ''¾ã¦X:[ª««~½s¸¹ ]©Ò¦b¦C ,©¹¤W4¦CÀx¦s®æªº¾ã¦C
  13.                 End If
  14.                 Set Rng(1) = Sh.Cells.FindNext(Rng(1))
  15.             Loop Until Rng(1).Address(0, 0) = "A4"
  16.             If Not Rng(2) Is Nothing Then Rng(2).Delete   '§R°£
  17.         End If
  18.     Next
  19. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 5# GBKEE
Rng(1) ¡BRng(2) ¥H¤Î Union() ªº³B¸ÌÆZ²Ó¿°¤Î§ã­n¡A
¤@°w¨£¦å¡A²©ú«W¸¨¡C
ÁÂÁ±zªº½ç±Ð¡I

TOP

¦^´_ 5# GBKEE

ÁÂÁÂKubi¤j¤j©MGBKEE¶W¯ÅªO¤jªº¦^µª¡A«D±`ªº²Å¦X¡A¦ý ¤S¬O¤£§÷¤p§Ì¥H¬°¥Î­ÓÃþ¦üªºªí®æ´N¥i§Q¥Îµ{¦¡¨ÓÀ³¥Î¡A¯u±o¹ê¦b¤Ó¤£§÷¤F¡A·d¤F¦n¤[¡AÁÙ¬O.........¤£¦æ¡A
¤p§Ì§â­ì©lÀɭקï¤å¦r¦Ó¤w¡A¦A½Ð¦Ñ®v­ÌÀ°À°¦£¬Ý¤@¤U¡A¯u±o«Ü·PÁ¡A¤S©ç¨Æ¡CªþÀÉ: §R°£¯S©w®æ¦¡BB.rar (83.6 KB)

TOP

¦^´_ 7# man65boy
®M¥Î GBKEE ¤j¤jªºµ{¦¡½X¡A¨Ã¥[¤W
  1.          If Sh.Range("a4") <> "" Then
  2.             .
  3.             .
  4.          End If
½Æ»s¥N½X
¨Ó¹LÂoªÅ¥Õ¤º®eªºªí³æ¡G
  1. Sub Ex()
  2.     Dim Rng(1 To 12) As Range, Sh As Worksheet
  3.     For Each Sh In Sheets  ' Sheets ª«¥ó: ¬¡­¶Ã¯Sheetªºª«¥ó¶°¦X
  4.         If Sh.Range("a4") <> "" Then
  5.             Set Rng(1) = Sh.Cells.Find(Sh.Range("a4"), Sh.Range("a4")) ' [ª««~½s¸¹ ]©Ò¦b¦C:¬°©Ò¦³¤u§@ªíªí³æ¤Wªº¦@³qÂI
  6.             If Not Rng(1) Is Nothing Then '¤u§@ªí¤W¦³´M§ä¨ì [ª««~½s¸¹ ]
  7.                 Set Rng(2) = Nothing
  8.                 Do
  9.                     If Rng(2) Is Nothing Then
  10.                         Set Rng(2) = Rng(1).Offset(-3).Resize(4).EntireRow     '[ª««~½s¸¹ ]©Ò¦b¦C ,©¹¤W4¦CÀx¦s®æªº¾ã¦C
  11.                     Else
  12.                         Set Rng(2) = Union(Rng(2), Rng(1).Offset(-3).Resize(4).EntireRow)  ''¾ã¦X:[ª««~½s¸¹ ]©Ò¦b¦C ,©¹¤W4¦CÀx¦s®æªº¾ã¦C
  13.                     End If
  14.                     Set Rng(1) = Sh.Cells.FindNext(Rng(1))
  15.                 Loop Until Rng(1).Address(0, 0) = "A4"
  16.                 If Not Rng(2) Is Nothing Then Rng(2).Delete   '§R°£
  17.             End If
  18.         End If
  19.     Next
  20. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ man65boy ©ó 2016-6-4 15:25 ½s¿è

¦^´_ 8# c_c_lai

ÁÂÁ¦ѮvªºÀ°¦£¡A¦pªG§Ú§âA4ªºÀx¦s®æ¤å¦r(ª««~½s¸¹)§ï¬°(¤é´Á)¡A¬°¦óµLªk°õ¦æ¡A¦Aµ{¦¡½X:Set Rng(1) = Sh.Cells.Find(Sh.Range("a4"), Sh.Range("a4")) ' [ª««~½s¸¹ ]©Ò¦b¦C:¬°©Ò¦³¤u§@ªíªí³æ¤Wªº¦@³qÂI ¡A¤£¬O³£¨ÌA4ªºÀx¦s®æ¬°¥D¤F¶Ü?«ç»ò§Ú§â©Ò¦³"ª««~½s¸¹"§ï¬°"(¤é´Á)"¡A·|µLªk°õ¦æ???(°õ¦æ¶¥¬q¿ù»~'1004')

TOP

¦^´_ 9# man65boy
¥t¥~¤@ºØ¸Ñªk¡A½Ð°Ñ¦Ò
§R°£¯S©w®æ¦¡BB-1.rar (20.44 KB) ¡C

TOP

        ÀR«ä¦Û¦b : ¤Ó¶§¥ú¤j¡B¤÷¥À®¦¤j¡B§g¤l¶q¤j¡A¤p¤H®ð¤j¡C
ªð¦^¦Cªí ¤W¤@¥DÃD