自动筛选 – 找出是否可见细胞的第二行是空白的

我有一些代码，基于第一个标准自动筛选工作表，然后第二个如果没有条件返回。 条件语句是我需要帮助的地方，即使在第二行的第一个单元格中有数据（我显然不想包含标题），它仍然会出错：

With ActiveSheet .AutoFilterMode = False With .Range("A1:F1") .AutoFilter Field:=1, Criteria1:="FirstTest" 'See if first cell in second row is blank If (.Offset(2,1).SpecialCells(xlCellTypeVisible).Value = "") Then 'if blank, change criteria .AutoFilter Field:=1, Criteria1:="SecondTest" End If End With End With 

我知道你可以使用VBA.Array的多个标准，但这变得更加复杂，我只需要现在如何引用第二行中的可见数据。

提前谢谢任何帮助。

Answer 1

尝试这个：

 With ActiveSheet .AutoFilterMode = False With .Range("A1:F1") .AutoFilter Field:=1, Criteria1:="FirstTest" 'See if first cell in second row is blank If (.Parent.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Count < 2) Then 'if blank, change criteria .AutoFilter Field:=1, Criteria1:="SecondTest" End If End With End With