Excel VB宏 - 查找和删除具有特定数据及其上方4行的行

Question

我不能为我的生活弄清楚如何做到这一点!!

我正在尝试创建一个宏，它将被放置在快速访问工具栏上，以查找和删除列P =“服务索赔计数1”加上其上方4行的行。

该文件有几千个条目，所以我需要它来浏览整个文档并删除所有5行（带搜索数据的主行，加上上面的4行）。

希望你能帮忙！ ：）

Answer 1

Sub delRows()
Dim txtCel As Range
Dim timesFound As Long, i As Long
timesFound = WorksheetFunction.CountIf(Range("P:P"), "Service to Claim Count 1")
For i = 1 To timesFound
    Set txtCel = Columns(16).Find(what:="Service to Claim Count 1")
    txtCel.Offset(-4).Select
    Range(txtCel, txtCel.Offset(-4)).EntireRow.Delete
Next i
End Sub

非常直接。它找到带有文本的单元格，然后删除该行，以及它上面的四行。