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

Question

当按下按钮时，我想遍历 Sheet 中的所有单元格并找到包含 .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

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

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

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

How to find cells that contain specific text then hide the entire row

excel

vba

document

hide