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

Question

当按下按钮时，我想循环遍历Sheet中的所有单元格，找到包含.doc或.xls或.pdf的单元格，并隐藏整个Row。 我知道我不能使用Contains，但必须有类似的东西。

单元格示例PM-TR Training.doc

这就是我现在所拥有的内容，包含哪些内容？

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

IF语句中的函数InStr应该可以解决问题。

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