excel - 如何将VBA代码应用到工作簿中的所有工作表

Question

此代码应删除包含特定文本的行并将其应用到工作簿中的所有工作表。

当我尝试此代码时，它仅适用于一个工作表。

Sub WorksheetLoop()

     Dim c As Integer
     Dim n As Integer
     c = ActiveWorkbook.Worksheets.Count
     For n = 1 To c Step 1
        Last = Cells(Rows.Count, "A").End(xlUp).Row
        For I = Last To 1 Step -1
            If (Cells(I, "A").Value) = "Text" Then
                Cells(I, "A").EntireRow.Delete
            End If
        Next I
     Next n

 End Sub

Answer 1

它不起作用，因为您从未限定要在代码中使用的工作表。简单的修复，使您的代码主要保持如下所示。

Sub WorksheetLoop()

 Dim c As Integer
 Dim n As Integer
 c = ActiveWorkbook.Worksheets.Count
 For n = 1 To c Step 1
    Last = Worksheets(n).Cells(Rows.Count, "A").End(xlUp).Row
    For I = Last To 1 Step -1
        If (Worksheets(n).Cells(I, "A").Value) = "Text" Then
            Worksheets(n).Cells(I, "A").EntireRow.Delete
        End If
    Next I
 Next n

 End Sub

上述工作通过将工作表索引属性与您创建的 n 变量结合使用来实现。