如何用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

版权声明：本文为weixin_42412150原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接和本声明。