1 つまたは 2 つの条件を選択したら、次のように簡単に取得できます。
Option Explicit
Sub sample()
Dim rRange As Range
Dim iFiltCrit As Long
'Remove any filters
ActiveSheet.AutoFilterMode = False
Set rRange = Range("A1:B8")
With rRange
.AutoFilter Field:=1, Criteria1:="=1"
Debug.Print Sheet1.AutoFilter.Filters(1).Criteria1
End With
'Remove any filters
ActiveSheet.AutoFilterMode = False
End Sub
2つ以上の基準がある場合、それらは配列に格納されているため、前述のようにループできます。
問題は、フィルターが非アクティブな場合です。つまり、すべてを表示でき、すべての基準がメモリから消去されます。この例を参照してください。ActiveSheet.ShowAllData
すべてのデータを表示するために使用しています。
Option Explicit
Sub sample()
Dim rRange As Range
'Remove any filters
ActiveSheet.AutoFilterMode = False
Set rRange = Range("A1:B8")
With rRange
.AutoFilter Field:=1, Criteria1:="=1"
Debug.Print ">"; Sheet1.AutoFilter.Filters(1).Criteria1
'~~> Show all data
ActiveSheet.ShowAllData
Debug.Print ">>"; Sheet1.AutoFilter.Filters(1).Criteria1
End With
'Remove any filters
ActiveSheet.AutoFilterMode = False
End Sub
スナップショット

したがって、すべてのデータを表示すると、その情報を取得することはできなくなると思います。