有关如何删除不包含文本的行的VBA

Question

我有一列（H），需要搜索它是否包含4个单词中的1个。如果它不包含这四个单词中的一个，我需要将该行隐藏或删除。实现这个目标的最佳途径是什么？

Answer 1

尝试将以下内容添加到模块并运行。我假设H列有一个头这样的范围开始于第2行。

Public Sub Test() 
Dim rng As Range 
Dim row As Range 
Dim cell As Range 

Set rng = Range("H2:H7") 

For Each row In rng.Rows 
For Each cell In row.Cells 

Select Case cell.Value 
Case "Red", "Blue", "Green", "White" 
'Do nothing 
Case Else 
row.Hidden = True 
End Select 

Next cell 
Next row 
End Sub 

Answer 2

或者，如果你愿意删除：

lastRow = Range("H65000").End(xlUp).Row 
For i = lastRow To 2 Step -1 
Select Case Cells(i, 8).Value 
    Case "Red", "Blue", "Green", "White" 
     'Do nothing 
    Case Else 
     Cells(i, 8).EntireRow.Delete 
End Select 
Next i