VBA-根据单元格是否包含特定文本来隐藏行

打算浏览整个栏目以查看产品（在单个单元格中）是否可能被停用。 如果停用的单词在一个单元格中，这是真的。 如果中断，我希望整行被隐藏。 有什么build议么？

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