下面的示例将变量设置为工作表“sheet1”上的筛选区域中第一列的筛选 Criteria1 属性值。
With ThisWorkbook.Worksheets("sheet1")
If .AutoFilterMode Then
With .AutoFilter.Filters.Item(1)
If .On Then c1 = .Criteria1
End With
End If