­ã´£³¡ª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

­ã´£³¡ª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