小编use*_*749的帖子

我正在使用此代码:

Dim r As Integer   
For r = 1 To Sheet1.UsedRange.Rows.Count        
    If Cells(r, "Q") = "0" Then           
    Sheet1.Rows(r).EntireRow.Delete    
    End If
Next  

问题是它不会删除所有内容,它只是删除了一些行,我必须按下多次使用此代码的按钮才能删除"Q"中的所有"0"实例

来自类似问题的答案

如何基于搜索关键字VBA 反转For循环
删除行