VBA Excel-当列中的单元格值等于零时删除行

Question

我的VBA脚本中有一些代码，当行的相应B列的值等于零时，应该删除整行。不幸的是，我所使用的代码行并不是我想要的，因为如果相应行中的任何单元格等于零，它会删除整行。以下是迄今为止的代码：

With Worksheets("Sheet2")
For myloop = .Range("B10000").End(xlUp).Row To 1 Step -1
    If .Cells(myloop, 4).Value = 0 Then .Rows(myloop).EntireRow.Delete
Next myloop
End With

例如，我有一行，其中D列中的单元格等于零，而这段代码删除了整行，即使B列中的单元格的值不是零。如何更改代码，使其实际上只扫描列B中的条目？

如有任何帮助，我们将不胜感激。

Answer 1

AutoFilter（）方法如下：

With Worksheets("Sheet2") '<--| reference your shet
    With .Range("B1", .Cells(Rows.Count, "B").End(xlUp)) '<--| reference its column B range from row 1 (header) down to last not empty row
        If WorksheetFunction.CountBlank(.Cells) + WorksheetFunction.CountIf(.Cells, 0) = 0 Then Exit Sub '<--| exit of no empty or "zero" cells
        .AutoFilter Field:=1, Criteria1:=0, Operator:=xlOr, Criteria2:=""  '<--| filter column B cells with "0" content
         .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete '<--| if any filtered cell other than headers then delete their entire rows
    End With
    .AutoFilterMode = False
End With

Answer 2

用户gizlmo提供了答案：

更改<代码>。单元格（myloop，4）。值到。单元格（myloop，2）。值