Excel VBA循环查找x并删除行 - 错误

Question

我使用记录宏创建了一些代码，然后将其放入循环中。它可以工作，但是 find 函数中有一个错误，导致它只能工作一次。我试图对错误做一些事情，但我没有任何运气让它循环。我在这里和那里看了几天，但我不知所措。希望您能够帮助我。非常感谢。

i = 1
On Error GoTo notfound
 Do While Sheet1.Cells(i, 1) <> "" 
   
 Columns("J:J").Select
    Selection.Find(What:="x", After:=ActiveCell, LookIn:=xlFormulas, _
  LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
  MatchCase:=False, SearchFormat:=False).Activate
        
        Rows(ActiveCell.Row).EntireRow.Delete

notfound: msgbox "Finished"
GoTo notfound
Exit Sub
   
   i = i + 1
   
   Loop

Answer 1

我已经更正、完成、格式化和注释了您的代码。这应该会让你离你想要做的事情更近一步。

Private Sub Sample()

    Dim Crit        As Variant      ' the criterium to look for
    Dim Fnd         As Range        ' the cell to find
    Dim i           As Long
    
    ' never create an error handler if you don't know which error to exect
'    On Error GoTo notfound
    i = 1
    ' the cell can't be "" only its value can do thjat
    Do While Sheet1.Cells(i, 1).Value <> ""
        Crit = "x"
'        Columns("J:J").Select
        ' don't Select anything, address cells or ranges instead
        Set Fnd = Columns("J:J").Find(What:=Crit, _
                                      After:=ActiveCell, _
                                      LookIn:=xlFormulas, _
                                      LookAt:=xlPart, _
                                      SearchOrder:=xlByColumns, _
                                      SearchDirection:=xlNext, _
                                      MatchCase:=False, _
                                      SearchFormat:=False)
        ' where is the 'Activecell'?
        '   a) it doesn't change while this loop is running
        '      but it might get deleted by this loop's action
        '   b) it must be in the range you are searching
        '      that's why your code will fail most of the time.
        
        ' don't Activate anything. Instead address the object you want to deal with.
        If Fnd Is Nothing Then
            MsgBox "I didn't find """ & Crit & """"
        Else
            Sheet1.Rows(Fnd.Row).EntireRow.Delete
        End If
        i = i + 1
    Loop
End Sub

只要 A 列中有值，此代码就会在 J 列中查找“x”并删除找到它的行。很难想象 A 列中的条目数与 J 列中的“x”数之间的关系，但希望这不是你的问题。相反，您明显的问题是您要在其中开始搜索的单元格。绝对不是ActiveCell，但可能是Cells(1, "J")。你也可以省略这条指令，VBA会在J1之后开始搜索。

你想LookIn 公式。如果 J 列中有公式，Formula 将不同于 Value。您不妨搜索xlValues。