c_c_lai

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

c_c_lai

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

c_c_lai

¦^´_ 9# man65boy
¦pªG§A·Q­n±N A4 ªºÀx¦s®æ¤å¦r (ª««~½s¸¹) §ï¬° (¤é´Á)¡A
²z½×¤W¬O OK ªº¡C
¦ý¬O¦b§Aªº A3 Äæ¦ìªº­È¬O Rng(1) = "           »sªí¤é´Á: " : Range/Range
µ{¦¡¦b³Ì«á¤@¦¸°õ¦æ Set Rng(1) = Sh.Cells.FindNext(Rng(1)) ®É¡A
¦^ÀY·j´M (FindNext()) «o§ì¨ì¤FA3 Äæ¦ìªº­È¡A¦Ó«D A4 ªºÀx¦s®æ¤å¦r (¤é´Á)¡C

±µµÛ µ{¦¡Ä~Äò©¹¤U°õ¦æ¨ì
Set Rng(2) = Union(Rng(2), Rng(1).Offset(-3).Resize(4).EntireRow)
¦b Rng(1).Offset(-3) «K²£¥X¤F¿ù»~°T®§ ('1004')¡F¦]¬°¦¹®É
Rng(1).Address(0, 0) = "A3" : String¡A ¦Ó Rng(1).Offset(-3) ªº¦ì§}¬° A0¡A
¤w¸g¶W¥Xªí³æªº½d³ò¡C

c_c_lai

¦^´_ 9# man65boy
´N¦p GBKEE ¤j¤jªº´£¥Ü (#12) °µ­×¥¿¡A
«K OK ¤F¡I

c_c_lai

¦^´_ 14# man65boy
§A»{¬°³B²zªº«ä¦Ò¤è¦V OK ªº¸Ü¡A´N¥H§Aªº·Qªk¥h¹F¦¨¥¦¡C
½×¾Â¥u¬O¤@­ÓÄÀºÃ»P¾Ç²ßªº³õ¦X¡A¨C­Ó¤H§¡¦³¦Û¤vªº«ä¦Ò¤è¦V¡A
¥u­n¬O¦nªº¸àÄÀ¡B©Î¬O§ó¨Îªº§Þ¥©³B²z³£¬O­È±o§Ú­Ì¾Ç²ßªº¡C