VBA:如何根据条件删除接下来的三行？

Question

我有这个代码只删除包含字母 的行PGM:AGEDP 但我不知道如何删除下一个三排在第一次删除之后。 之后的三行PGM:AGEDP 行是垃圾，它们包含一些字母、数字和符号，这些字母、数字和符号每次都有，但字母 PGM:AGEDP 将永远保持不变。为简单起见，如果第一行包含字母，则应将其与底部的三行删除。这四行在整个工作表中非常冒犯超过 30Xs

Sub RemovingPGM()

Dim ws As Worksheet
For Each ws In Sheets
ws.Activate

  Dim n As Long
    Dim nlast As Long
    Dim rw As Range
    Set rw = ActiveWorkbook.ActiveSheet.UsedRange.Rows
    nlast = rw.Count
    For n = nlast To 1 Step -1
        If (rw.Cells(n, 1).Value = "PGM:AGEDP") Then
            rw.Rows(n).Delete
        End If
    Next n
    Next ws
End Sub

有关进一步解释的任何问题，请随时提出。

Answer 1

  Sub Second_DeletingPGM()
    Dim n As Long
    Dim nlast As Long
    Dim rw As Range

    Set rw = ActiveWorkbook.ActiveSheet.UsedRange.Rows

    nlast = rw.Count
    For n = nlast To 1 Step -1
        If (rw.Cells(n, 1).Value = "PGM:AGEDP") Then
            rw.Rows(n).Resize(4).Delete
        End If

    Next n
End Sub