vba - 这些 VBA 代码有什么错误？

Question

我的任务是，如果 K 列的值为零，我必须删除整个行。我首先想到的是循环，但我有 4000 行，而 1000 行的 K 值可能为零。

Sub DeleteRowWithContents()
       Last = Cells(Rows.Count, "D").End(xlUp).Row
       For i = Last To 1 Step -1
           If (Cells(i, "K").Value) = 0 Then
              Cells(i, "A").EntireRow.Delete
           End If
       Next i
End Sub

我相信人们会说“它需要时间”，因为它是循环的。这就是为什么我认为最好采用下一个方法，人们还告诉我“查找”比循环快得多。所以我使用了下面的代码，这是我在谷歌搜索时发现的

Sub Delete_zeros()
    Dim rCell As Range
    Dim strAddress As String
Application.ScreenUpdating = False
ThisWorkbook.Sheets(1).Activate
    With ActiveSheet.Columns("K")
        Set rCell = .Find(What:=0, LookIn:=xlValues, SearchOrder:=xlByColumns)
        If Not rCell Is Nothing Then
            Do
            strAddress = rCell.Address
            rCell.EntireRow.Delete
            Set rCell = .FindNext(Range(strAddress))
            Loop Until rCell Is Nothing
        End If
    End With
Application.ScreenUpdating = True
End Sub

但是我发现上面的代码，如果 k 列中有 10 或 20 值，它也会删除该行。我的意思是，如果数字包含零，则将其删除

示例。

    204 or 200 or 205 or 301 or 10 \ Its deleting all these rows

这些代码有什么问题吗？这些代码比我想要使用的循环太快，但我发现了它的错误。

请解释该错误的原因。如果 K 列中的值为零而不是循环或(也可能循环应该太快)，那么对删除行更快的其他方法有何帮助？我们将不胜感激。谢谢

Answer 1

不是bug，在find方法中添加这个参数

LookAt:= xlwhole

要使用过滤器，请执行以下操作

Sub FilterAndDelete()
'Developer by Bruno Leite
'http://officevb.com 

    Dim Sht As Worksheet
    Dim FilterRange As Range
    
    'Set your Sheet
    Set Sht = ThisWorkbook.Sheets("Plan2")
    
    'Verify if is Filter
    If Sht.FilterMode Then
      Sht.ShowAllData
    End If
    
    'Filter Column A with 0 at parameter
    Sht.Range("A:A").AutoFilter Field:=1, Criteria1:="0"
    
    'Define Range Of Visible cells without row title
    Set FilterRange = Sht.Range("A1").CurrentRegion.Offset(1, 0).SpecialCells(xlCellTypeVisible)
       
    Application.DisplayAlerts = False
    
    FilterRange.Rows.Delete
    
    Application.DisplayAlerts = True
        
    Sht.ShowAllData
    
End Sub