删除包含特定文本的行

Question

我有VBA代码可以清理我的数据并将文本设置为列。该行始终以单词Planning开头。我需要一个代码来删除该行及其上面的四行。希望这不是一个硬代码。

Answer 1

通常我会等你自己的一些代码，但这不是太复杂，所以这里有一些东西应该让你开始：

Sub test()
Dim lastRow&, i&
Dim findStr$

findStr = "Planning"

lastRow = Cells(Rows.Count, 1).End(xlUp).Row

For i = lastRow To 1 Step -1 ' change this to 2 if you have headers
    If Cells(i, 1).Value = findStr Then
        'Range(Rows(i), Rows(i - 4)).Select
        Range(Rows(i), Rows(i - 4)).EntireRow.Delete
    End If
Next i

End Sub

这假设“计划”将在A列中（“行始终以”计划“一词开头）。如果没有，请更改范围以匹配它的位置。