VBA自动过滤 - 如果满足多个条件，则禁用单元格

Question

此自动筛选过滤单元格，因此字段 6 到 8 包含"yes"：

With Range("F6:H500")
.AutoFilter Field:=6, Criteria1:="yes"
.AutoFilter Field:=7, Criteria1:="yes"
.AutoFilter Field:=8, Criteria1:="yes"
End With

我怎样才能实现相反的目标？我希望拥有每个组合，但如果每个单元格都包含"是"，则不会。所以"是"，"是"，空白。或"是"，空白，空白

谢谢。

更新
尝试了此操作，但失败了：

For Each r In rng.Rows
If rng.Cells(r.Row, 1).Text Like "yes" Then
r.EntireRow.Hidden = True
End If
Next r

Answer 1

您可以使用以下方式进行过滤：

Sub HideRows()
Dim ws As Worksheet
Set ws = Worksheets(1)
With ws
For i = 6 To 500
If .Cells(i, 6) Like "yes" And .Cells(i, 7) Like "yes" And .Cells(i, 8) Like "yes" Then
.Rows(i).EntireRow.Hidden = True
End If
Next
End With
End Sub

并取消隐藏：

Sub ShowAllRows()
Rows.EntireRow.Hidden = False
End Sub