特定の値またはテキストを持っている場合は行全体を削除し、さらに7行を削除する

Question

特定の値またはテキストがある場合は行全体を削除し、その値またはテキストからは7行未満を削除します。私はこのコードを持っています。それは動作しますが、その特定の行だけを削除します。どうすれば7行以下の行を削除できますか？

Sub sbDelete_Rows_Based_On_Criteria() 
Dim lRow As Long 
Dim iCntr As Long 
lRow = 4395 
For iCntr = lRow To 1 Step -1 
    If Cells(iCntr, 1) = “HeaderName” Then 
    Rows(iCntr).EntireRow.Delete 
    End If 
Next 
End Sub 

Answer 1

あなたは7行、その下に「HeaderNameは」とで行を削除する場合：あなたは「HeaderNameは」との行を維持し、7行を削除したい場合は

Sub sbDelete_Rows_Based_On_Criteria() 
    Dim lRow As Long 
    Dim iCntr As Long 

    lRow = 4395 
    For iCntr = lRow To 1 Step -1 
     If Cells(iCntr, 1) = "HeaderName" Then 
      Rows(iCntr).Resize(8).EntireRow.Delete 
     End If 
    Next 
End Sub 

Sub sbDelete_Rows_Based_On_Criteria2() 
    Dim lRow As Long 
    Dim iCntr As Long 

    lRow = 4395 
    For iCntr = lRow To 1 Step -1 
     If Cells(iCntr, 1) = "HeaderName" Then 
      Rows(iCntr).Offset(1).Resize(7).EntireRow.Delete 
     End If 
    Next 
End Sub 

Answer 2

また、検索オプションを使用して、探しているセルを取得することもできます。

Columns("A:A").Find(What:="bla").Resize(7).EntireRow.Delete