刪除除了幾個工作表之外的所有包含零的行

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