如何用VBA清除一列中有0的数，并且删除其所在行

代码如下：

Sub july234()  

Dim i As Integer  

For Each Y In Worksheets  

X = Y.UsedRange.Rows.Count  

For i = 1 To X  If Cells(i, "A") = 0 Then  

Cells(i, "A").EntireRow.Delete '在A列中删除0所在行  

End If  

Next  

Next  

End Sub