使用VBA删除Excel中的行

我需要删除某个列中具有特定值的行。 行数是可变的。 我试图用下面的VBA代码来做到这一点：

Sub DeleteRows() Dim i, LastRow As Integer LastRow = ActiveSheet.Cells(Sheets(1).Rows.Count, 1).End(xlUp).row For i = 2 to LastRow If Cells(i, 1).Value <> "certain value" Then Rows(i).Delete End If Next i End Sub 

LastRow包含正确的值。 当我运行这个代码时，没有任何反应。 我是VBA新手，希望有人能把我推向正确的方向。 提前致谢。

Answer 1

尝试这个

 Sub DeleteRows() Dim i as long, LastRow As long with activesheet LastRow = .Cells(.Rows.Count, 1).End(xlUp).row For i = LastRow to 2 step -1 If .Cells(i, 1).Value <> "certain value" Then .Rows(i).Delete End If Next i End With End Sub