我添加了这个非VBA答案，因为对某些用户来说可能更容易。
可以使用集成的查找和替换工具根据单元格值隐藏行/列。
1.选择要搜索的单元格
1.打开“查找和替换”（CTRL+H）
1.选择“查找”选项卡并输入要搜索和隐藏的内容。
1.按“查找全部”
1.选择“查找所有结果”表中的所有结果（CTRL-A）
1.按下右侧的向下滚动按钮，使控件返回主窗口，而不会丢失所选内容
1.选择所有结果单元格的行（Shift-Space）
1.选择所有结果单元格的列（CTRL-SPACE）
1.右键单击将突出显示的选定行（标题）或列（标题）
1.按下隐藏
我认为这是一个非常有用的解决方案，因为它不需要添加VBA，宏，函数，过滤器等
祝你有美好的一天丹

使用Like应该可以达到这个目的：

For a = 2 To 200
    If Worksheets("Purchase Log").Cells(a, 2).Value Like "*" & Cells(1, 35) & "*" Then
        Worksheets("Purchase Log").Rows(a).Hidden = False
    Else
        Worksheets("Purchase Log").Rows(a).Hidden = True
    End If
Next

对部分匹配使用InStr（）：

For a = 2 To 200
    If InStr(Worksheets("Purchase Log").Cells(a, 2).Value, Cells(1, 35).Value) Then 
        Worksheets("Purchase Log").Rows(a).Hidden = False
    Else
        Worksheets("Purchase Log").Rows(a).Hidden = True
    End If
Next a