本示例设置自动筛选第一列字段为“1”。

Selection.AutoFilter Field:=1, Criteria1:="1"