Question

我有一个VBA代码可以在一个单元格列中存在绝对零值时删除整行但是，我无法弄清楚如何更新代码以应用于所有工作表（我的表格中有20个表格）工作簿）：

有人可以帮助语法如何更新此代码以应用于工作簿中的所有工作表。

Sub IfandthenDelete_Button3_Click()

Dim lRow As Long

Dim i As Long

lRow = 3000

Application.ScreenUpdating = False

For i = lRow To 1 Step -1

   If Cells(i, 1) = 0 Then

   Rows(i).Delete
        End If

Next

Application.ScreenUpdating = False
End Sub

Answer 1

你还需要一个for循环。

Sub WorksheetLoop()
    Dim wsCount As Integer
    Dim j As Integer
    Dim lRow As Long
    Dim i As Long

    lRow = 3000
    wsCount = ActiveWorkbook.Worksheets.Count

    For j = 1 To wsCount

        For i = lRow To 1 Step -1
            If ActiveWorkbook.Worksheets(j).Cells(i, 1) = 0 Then
                ActiveWorkbook.Worksheets(j).Rows(i).Delete
            End If
        Next

    Next j

End Sub

使用零删除整个行适用于所有工作表

1 个答案: