¦p¦ó§R°£©T©wªº¦C¼Æ

man65boy

¦p¦ó¦A§R°£©T©wªº¦C¼Æ¡A°£¤F¼ÐÃDA4¦C«O¯d¥~¡A§R°£¨ä¥L©T©wªº¦C¦ì¡A¦p¥H¤U¸ê®Æµe¤WÃC¦â¬°§R°£ªº¹ï¶H¡AÁÂÁ¦U¦ì¦Ñ®v­ÌÀ°¦£¡C
ªþÀÉ: 1070920.rar (51.16 KB)

¤U¸ü¦¸¼Æ: 10

2018-9-20 09:43

man65boy

¦^´_ 4# ­ã´£³¡ªL

ÁÂÁ·Ǥjªº¦^µª¡AÀ°¤F¤p§Ìªº¦£¡A¯¬·Ç¤j"¤¤¬î¸`§Ö¼Ö"¶¶¤ß¡AÁÂÁ§A!

hcm19522

A:V®æ¦¡¤Æ ¦Û¦â¥Õ¦â ÁôÂÃ=MOD(ROW(A1)-1,15)<3

­ã´£³¡ªL

¦^´_ 3# man65boy

Sub Del_Lab()
Dim xC As Range, xR As Range, xU As Range
For Each xR In ActiveSheet.UsedRange.Columns(1).Cells
    If xR <> "¤é´Á" Or xR.Row <= 4 Then GoTo 101
    Set xC = xR(-3, 1).Resize(5)
    If xU Is Nothing Then Set xU = xC Else Set xU = Union(xU, xC)
101: Next
If Not xU Is Nothing Then xU.EntireRow.Delete
End Sub

man65boy

¦^´_ 2# ­ã´£³¡ªL

Á­ã¤j¤jªº¦^µª¡A²Å¦X»Ý¨D¡A·PÁ§A¡A¦ý¦b½Ð­ã¤j¦bÀ°¦£­×§ï¤@¤U¥t¤@­ÓÀÉ¡A¦]¬°®æ¦¡¦³µy¤£¦P¡A¤@¼Ë¬O©T©wµeÃC¦âªº¦C¦ì§R°£¡AÁÂÁ¦Ѯv¡C
1070921.rar (11.6 KB)

¤U¸ü¦¸¼Æ: 6

2018-9-21 11:51

­ã´£³¡ªL

Sub Del_Lab()
Dim xC As Range, xR As Range, xU As Range
For Each xR In ActiveSheet.UsedRange.Columns(1).Cells
    If xR <> "ª««~½s¸¹" Or xR.Row <= 4 Then GoTo 101
    Set xC = xR(-2, 1).Resize(4)
    If xU Is Nothing Then Set xU = xC Else Set xU = Union(xU, xC)
101: Next
If Not xU Is Nothing Then xU.EntireRow.Delete
End Sub