vba - 如何使用excel VBA删除第一列中包含特定代码的行？

Question

我每周运行一个报告，我必须采取的一个步骤是在 A 列中删除包含某个短语的行，在我的例子中是“CFS-GHOST-DJKT”。要通读的行从 7 开始并有一个可变的结束。

我在网上查看过，根据我发现的内容，以下代码应该可以工作，但我得到了错误，它不喜欢 With Cells(Lrow,"A") 行

我相信就删除部分而言，它的编写方式是可以的，但问题在于选择方面。

Firstrow = 7
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
    With Cells(Lrow, "A")
        If Not IsError(.Value) Then
            If .Value = "CFS-GHOST-DJKT" Then .EntireRow.Delete
       End If
    End With

Answer 1

删除时需要从最后一行迭代到第一行，否则最终会跳过行。

Dim x As Long
For x = Cells(Rows.Count, "A").End(xlUp).Row To 7 Step -1
    If Cells(x, "A") = "CFS-GHOST-DJKT" Then Rows(x).Delete
Next