删除整行，如果我们有特定的值或文本，并删除7行以下

如果我们有特定的值或文本，我想要删除整行，并从该值或文本删除下面的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

如果你想删除“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 

如果你想保持与“HeaderName”行并删除它下面的7行：

 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