如何查找包含特定文本的单元格，然后隐藏整个行

当一个button被按下时，我想遍历我的工作表中的所有单元格，并find包含.doc或.xls或.pdf的单元格，并隐藏整个行。 我知道我不能使用Contains但一定有类似的东西。

Cell示例PM-TR Training.doc

这是我现在有什么可以replace包含？

 Sub HideRows() Dim cell As Range Dim DataCount As Integer 'Change the sheet name as necessary in the following line With Worksheets("Sheet1") DataCount = Range("A" & Rows.Count).End(xlUp).Row For Each cell In Range("A1:A" & DataCount) If cell.Contains(".doc") Or cell.Contains(".xls") Or cell.Contains(".pdf") Then 'The following code assumes you want the row hidden. Range(cell.Row).EntireRow.Hidden = True End If Next cell End With End Sub 

Answer 1

函数InStr与你的IF语句应该做的伎俩。

 IF instr(cell.value, ".doc")> 0 then 'Code Here