オートフィルタ - 表示セルの2番目の行が空白であるかどうかを調べる

Question

ワークシートを最初の条件に基づいてオートフィルタするコードがあります。 条件文は（私は明らかにヘッダをインクルードする必要はありません）私は助けを必要とするところ、それはデータが2行目の最初のセルにある場合でもerroringし続けている：

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を使用することはできますが、これはより複雑になります。今度は、2行目の可視データを参照するだけで済みます。

ありがとうございました。

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