我每周运行一份报告，我必须采取的步骤是删除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
按照你叙述（“我必须......删除一排”），你似乎打扰短语的唯一一个出现“CFS-GHOST-DJKT”
在这种情况下，不需要遍历单元格，而只需尝试找到它，如果成功，则删除其整个行
Dim f As Range
Set f = Range("A7", Cells(Rows.Count, "A").End(xlUp)).Find(what:="CFS-GHOST-DJKT", LookIn:=xlValues, lookat:=xlPart)
If Not f Is Nothing Then f.EntireRow.Delete
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句