所有行都不会被删除，列值为零

我想删除特定列中包含零的整个行，但该列中值为零的所有单元都没有被删除，有些单元仍保留为零

Sub DeleteRows() Dim ChkRange As Range Set ChkRange = Range("A2:A150") For Each cell In ChkRange If cell = "0" Then cell.EntireRow.Delete End If Next End Sub 

Answer 1

确保您需要testingstring值=“0”而不是数字= 0。

 Sub DeleteRows() Dim iRow as Integer For iRow = 150 to 2 Step -1 If Cells(iRow, "A") = "0" Then Rows(iRow).EntireRow.Delete End If Next End Sub