如果某列中有0值，excel vba将删除整行

Sub DeleteRowsWithZero()
    Dim lastRow As Long
    Dim i As Long
    
    ' 获取最后一行
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    ' 从最后一行开始循环
    For i = lastRow To 1 Step -1
        ' 检查某列中的值是否为0
        If Cells(i, "A").Value = 0 Then
            ' 删除整行
            Rows(i).Delete
        End If
    Next i
End Sub