删除除了几个工作表之外的所有包含零的行

Question

我试图创建一个宏来删除在工作表中除了几个工作簿之外的列L中包含0值的行。我发现了一个可以在activesheet上执行此操作的宏，我试图将它嵌套在循环遍历所需表单的函数中，但它仍然只删除活动表单中的零。任何人都可以看到我做错了什么？

下面是代码：

Sub nul_waarden_verwijderen() 

Dim WS As Worksheet 
Dim lngMyRow As Long 
Application.ScreenUpdating = False 

    For Each WS In ActiveWorkbook.Worksheets 
     If WS.Name <> "TB per 29122014" And WS.Name <> "SCOA" And WS.Name <> "105 Enterprise klad" And WS.Name <> "105 rekenblad" And WS.Name <> "list" Then   
      For lngMyRow = Cells(Cells.Rows.Count, "E").End(xlUp).Row To 2 Step -1 
       If Val(Cells(lngMyRow, "L")) = 0 Then 
        Rows(lngMyRow).EntireRow.Delete 
       End If 
      Next lngMyRow 
     End If         
    Next WS 

End Sub 

Answer 1

你必须使用在.Cells和.Rows前面的预选赛中，以便它在一个特定的工作表的工作。没有这个限定符，这两个引用ActiveSheet.Cells和ActiveSheet.Rows。

For Each WS In ActiveWorkbook.Worksheets 
    If WS.Name <> "TB per 29122014" And WS.Name <> "SCOA" And WS.Name <> "105 Enterprise klad" And WS.Name <> "105 rekenblad" And WS.Name <> "list" Then 
     For lngMyRow = WS.Cells(Cells.Rows.Count, "E").End(xlUp).Row To 2 Step -1 
      If Val(WS.Cells(lngMyRow, "L")) = 0 Then 
       WS.Rows(lngMyRow).EntireRow.Delete 
      End If 
     Next lngMyRow 
    End If 
Next WS