如何刪除excel中滿足特定條件的所有行，以及后續行

Question

我試圖擺脫的例子。

我試圖擺脫似乎已格式化為分頁的工作表中的垃圾數據。 在每個新“頁面”的開頭是 G 列中的一個單元格，上面寫着“頁面 X”。 每頁接下來的六行都是我要刪除的垃圾數據，有數百個“頁面”。

我希望能夠編寫一個公式來搜索工作表中包含文本“頁面”（至少在 G 列中）的每個單元格，然后刪除該行以及接下來的六行。

Answer 1

1. 循環遍歷Column G所有單元格
2. 查找單元格=page和....
3. 將這些單元格 + 下 6 行添加到Union （單元格集合）
4. 最后刪除Union

---

Sub Maid()

Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1") '<-- Update
Dim DeleteMe As Range
Dim LR As Long

LR = ws.Range("G" & ws.Rows.Count).End(xlUp).Row

    For i = 2 To LR
        If ws.Range("G" & i) = "page" Then
            If Not DeleteMe Is Nothing Then
                Set DeleteMe = Union(ws.Range("G" & i).Resize(7), DeleteMe)
            Else
                Set DeleteMe = ws.Range("G" & i).Resize(7)
            End If
        End If
    Next i

    If Not DeleteMe Is Nothing Then
        DeleteMe.EntireColumn.Delete
    End If

End Sub