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

我有这个代码，只删除包含字母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