下面的示例将变量设置为工作表“sheet1”上的筛选区域中第一列的筛选 Criteria1 属性值。

With ThisWorkbook.Worksheets("sheet1")

    If .AutoFilterMode Then

        With .AutoFilter.Filters.Item(1)

            If .On Then c1 = .Criteria1

        End With

    End If

End With