选择/突出显示每一行中每个特定单元格值（“ Apple”）的列范围（AL）

Question

我正在尝试找到一种简单的方法来消除工作表中的“坏”行，该工作表中有3780行。 我想知道是否有更简单的方法，而不是每次都扫描并删除每一行，这很费时间。

也许是通过创建一个宏来突出显示列范围（AL）中的单元格的宏，每次它发现位于每一行的单元格中的错误值（例如“ Apple”）时。

类似于以下内容：

If =ISTEXT() then delete row 

我希望这是有道理的，如果没有请告诉我。

Answer 1

这个小宏将搜索A到L列中任何单元格中是否存在苹果 ，并删除该行：

Sub KillBadApple()
    Dim rng As Range
    Set rng = Intersect(ActiveSheet.UsedRange, Range("A:L"))

    nLastRow = rng.Rows.Count + rng.Row - 1
    nFirstRow = rng.Row

    For i = nLastRow To nFirstRow Step -1
        exam = ""
        For j = 1 To 12
            exam = exam & Chr(1) & Cells(i, j).Text
        Next j

        exam = LCase(exam)
        If InStr(exam, "apple") > 0 Then
            Cells(i, j).EntireRow.Delete
        End If
    Next i
End Sub