Как найти ячейки, содержащие конкретный текст, затем скрыть всю строку

Question

Когда нажата кнопка, я хочу прокрутить все ячейки в моем листе и найти ячейки, содержащие .doc или .xls или .pdf, и скрыть все Ряд. Я знаю, что не могу использовать 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

Функция InStr жгутов ваше IF заявление следует сделать трюк.

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