excel - 自动过滤器不返回行 : skip next steps

Question

我正在构建一个异常报告，在应用一系列自动过滤器后突出显示丢失/不准确的数据。
问题:
1)当自动过滤器之一没有返回结果/没有行时，着色代码将颜色应用于数据范围内的所有单元格。
2)报告在某些周可能有结果/行，某些周自动过滤器不会有任何结果/行
需要指导:看看下面的代码，谁能告诉我如果 BBB 标题中的自动过滤器没有连续返回，我怎么能跳过着色/突出显示？而是移至 CCC 标题过滤器。

With ActiveSheet.ListObjects("Table_query__57")
          .Range.AutoFilter Field:=a, Criteria1:=Array("BCH", "HS", "L"), 
           Operator:=xlFilterValues
                
       'BBB 
          .Range.AutoFilter Field:=i, Criteria1:="Approved"

'if autofilter returns no result, i want to skip next this function
          .ListColumns(p).DataBodyRange.Interior.Color = RGB(255, 0, 0)
    
'start function here
          .Range.AutoFilter Field:=i  

Answer 1

计算应用过滤器后得到的行数。如果结果为 1，则忽略。
让我们假设过滤器在 B 列

Dim Visible_cells As Long
ActiveSheet.Range("B4:B1000").AutoFilter Field:=1, Criteria1:="Your condition", Operator:=xlAnd
Visible_cells = Range("B4:B1000").SpecialCells(xlCellTypeVisible).Rows.Count

If Visible_cells > 1 Then ' code will continue only if the visible cells is more than 1
    ' Continue your code
Else
End If