Question

如果我们有特定的值或文本，我想删除整行，并删除该值或文本下面的7行。我有这个代码。它可以工作，但它只会删除该特定行。如何删除7行以下。

start

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

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

2 个答案: