为每个特定单元格值（“Apple”）select/突出显示列范围（AL）

我试图find一个简单的方法来摆脱我的工作表，有3780行“坏”行。 而不是每次扫描和删除每一行，这是很费时间，我想知道是否有一个更简单的方法？

也许可以通过在每一行中find不良值（例如“苹果”）的单元格来突出显示列范围（AL）中的单元格的macros。

有些东西是：

If =ISTEXT() then delete row 

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

Answer 1

这个小macros将在A到L列的任何单元格中search苹果的存在，并删除该行：

 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