Range().autofilter 用法
语法：
Range().autofilter field, Criteria1, operator, criteria2, visibledropdown
参数：
field：指出要筛选的列序号（从 1 开始）。例如：`Range("A1").AutoFilter Field:=[F1].Column, Criteria1:="100.00%"`
Criteria1：第一个筛选条件。
operator：指定操作符。常用的操作符包括：
xland：条件 1 与条件 2 并且关系
xlor：条件 1 与条件 2 或者关系
xltop10items：筛选值排在前 10 的数据
xlbottom10items：筛选值排在后 10 的数据
xlfiltervalues：使用数组筛选值
criteria2：第二个筛选条件（仅在使用 xland 或 xlor 操作符时需要）。
visibledropdown：指定是否显示筛选按钮。值为 True 或 False。
示例：
筛选包含 "100.00%" 的值：
Range("A1").AutoFilter Field:=6, Criteria1:="100.00%", Operator:=xland
筛选小于 2021-8-3 的日期：
Range("A1").AutoFilter Field:=6, Criteria1:="<=2021-8-3"
筛选前 10 名值：
Range("A1").AutoFilter Field:=[E1].Column, Criteria1:=10, Operator:=xltop10items
使用数组筛选值：
Range("A1").AutoFilter Field:=[B1].Column, Criteria1:=Array("张庆", "杨念"), Operator:=xlFilterValues
筛选大于平均值的数据：
Range("A1").AutoFilter Field:=[E1].Column, Operator:=xlFilteraboveaverage, Criteria2:=xlFilterDynamic
筛选 9 月份的日期：
Range("A1").AutoFilter Field:=5, Operator:=xlFilterAlldatesinperiodseptember, Criteria2:=xlFilterDynamic
注意：
`Criteria1`、`Operator` 和 `Criteria1` 参数名可以一起省略，但不能单独省略其中一个。
筛选出的数据可以直接复制到其他工作表，无需指定可见单元格参数。例如：
Range("a1").CurrentRegion.Copy: Sheets(3).[H1].PasteSpecial xlPasteValues