如何删除excel中满足特定条件的所有行以及后续行

Question

Example of what I'm trying to get rid of.

我正在尝试删除似乎已格式化为分页的工作表中的垃圾数据。在每个新“页面”的开头是 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