如果列AA = 0中的值Excelmacros删除所有工作表上的所有行

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

Answer 1

如果你想要删除每一行当且仅当该行的列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 

请注意，如果AA中的单元格值为0，则只会删除该行。这里有几个细节…即使单元格值为0或= 0，Excel也将显示0，而这些行将不会用上面的代码删除。