- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 3# man65boy
¸Õ¸Õ¬Ý- Option Explicit
- Sub Ex()
- Dim Rng(1 To 2) As Range, Sh As Worksheet
- For Each Sh In Sheets ' Sheets ª«¥ó: ¬¡¶Ã¯Sheetªºª«¥ó¶°¦X
- Set Rng(1) = Sh.Cells.Find(Sh.Range("a4"), Sh.Range("a4")) ' [ª««~½s¸¹ ]©Ò¦b¦C:¬°©Ò¦³¤u§@ªíªí³æ¤Wªº¦@³qÂI
- If Not Rng(1) Is Nothing Then '¤u§@ªí¤W¦³´M§ä¨ì [ª««~½s¸¹ ]
- Set Rng(2) = Nothing
- Do
- If Rng(2) Is Nothing Then
- Set Rng(2) = Rng(1).Offset(-3).Resize(4).EntireRow '[ª««~½s¸¹ ]©Ò¦b¦C ,©¹¤W4¦CÀx¦s®æªº¾ã¦C
- Else
- Set Rng(2) = Union(Rng(2), Rng(1).Offset(-3).Resize(4).EntireRow) ''¾ã¦X:[ª««~½s¸¹ ]©Ò¦b¦C ,©¹¤W4¦CÀx¦s®æªº¾ã¦C
- End If
- Set Rng(1) = Sh.Cells.FindNext(Rng(1))
- Loop Until Rng(1).Address(0, 0) = "A4"
- If Not Rng(2) Is Nothing Then Rng(2).Delete '§R°£
- End If
- Next
- End Sub
½Æ»s¥N½X |
|