VBA自动filter – 如果满足多个条件，则禁用单元格

这个自动filter对单元格进行过滤，使字段6到8包含“是”：

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