Excel宏删除所有工作表上的所有行（如果列AA中的值为0）

我有一本包含197页的工作簿。如果AA列中的值为零，我需要删除每个工作表中的所有行。有人知道怎么做吗？

如果你想删除每一行，当且仅当该行的列AA为零时，那么下面的内容应该对你有用

Sub delete0rows()
    Dim Worksheet As Excel.Worksheet
    Dim lastRow As Long
    Dim i As Integer
    For Each Worksheet In Application.ThisWorkbook.Worksheets
        lastRow = Worksheet.Cells(Rows.Count, 1).End(xlUp).Row
        i = 1
        Do While i <= lastRow
            If Worksheet.Range("AA" & i).Value = 0 Then
                Worksheet.Rows(i).Delete
                i = i - 1
                lastRow = lastRow - 1
            End If
            i = i + 1
        Loop
    Next
End Sub

子删除0行（）
将工作表设置为Excel。工作表
最后一排一样长
作为整数的Dim i
对于Application.ThisWorkbook.Worksheets中的每个工作表
lastRow=工作表.Cells（Rows.Count，1）.End（xlUp）.Row
i=1
趁我还活着的时候