本示例判断当前工作表的第一个筛选字段未执行筛选时,则设置该字段的筛选条件为“1”。

If ActiveSheet.AutoFilter.Filters.Item(1).On = False Then
    Selection.AutoFilter Field:=1, Criteria1:="1"
End If