VBA：どのように基準に基づいて次の3つの行を削除するには？

Question

このコードでは、PGM：AGEDPという文字が含まれている行だけが削除されていますが、最初の削除後に次のの3行を削除する方法はわかりません。 PGM：AGEDP行の後の3行は、毎回バラエティに富むいくつかの文字、数字、記号が入りますが、PGM：AGEDPは常に同じままです。ただ、簡単にするために、最初の行には文字が含まれている場合、それはで削除する必要があります下の3つの以上rows.These 4行が非常に30X​​s

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