この列の値がゼロの場合、すべての行が削除されない

Question

特定の列にゼロが含まれている行全体を削除したいが、その列の値が0のセルがすべて削除されていないゼロ

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

あなたは=文字列値をテストするために必要とされていることを確認してください「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