1. 程式人生 > >如何用VBA清除一列中有0的數,並且刪除其所在行

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