VBA-根據單元格是否包含特定文本來隱藏行

Question

想要掃描整列以查看產品（在單個單元格中）是否可能會停用。如果停用的單詞在單元格中，則情況正確。如果它被停用，我希望整行被隱藏。有什麼建議麼？

Sub HideRows() 
    Dim c As Range 
    For Each c In Range("B3:B2452") 
     If InStr(1, c, "Discontinued") Or InStr(1, c, "discontinued") Then 
      c.EntireRow.Hidden = True 
     End If 
     Next 
End Sub 

Answer 1

Sub HideRows() 

    Dim rCheck As Range 
    Dim rHide As Range 
    Dim rCheckCell As Range 

    Set rCheck = ActiveWorkbook.ActiveSheet.Range("B3:B2452") 
    rCheck.EntireRow.Hidden = False 

    For Each rCheckCell In rCheck.Cells 
     If InStr(1, rCheckCell, "Discontinued", vbTextCompare) > 0 Then 
      If Not rHide Is Nothing Then Set rHide = Union(rHide, rCheckCell) Else Set rHide = rCheckCell 
     End If 
    Next rCheckCell 

    If Not rHide Is Nothing Then rHide.EntireRow.Hidden = True 

End Sub