问题：要求自动筛选性别=“男”语文>80分
    image.png
    知识：
    AutoFliter(field,criteria1,operator,criteria2,visibledropdown)
    field,：指筛选的字段所在的列的数值
    criteria1,指定的判断条件（为字符串形式）
    operator,
    criteria2,
    visibledropdown：参数的默认值为ture是限制筛选的下拉箭头，值为false时，隐藏筛选字段的下拉箭头。
    ====代码====

    1. Sub 自动筛选()
    2. '性别=男，语文>80分
    3. '
    4.     Dim Rng As Range
    6.     Set Rng = Range("A6").CurrentRegion
    7.     If ActiveSheet.AutoFilterMode = True Then
    8.     Rng.AutoFilter
    9.     End If
    10.     Rng.AutoFilter Field:=2, Criteria1:="男"
    11.     Rng.AutoFilter 3, ">80" ', Operator:=xlAnd
    12. End Sub

    完成
    image.png
    文件下载
    ExcelVBA自动筛选.xlsm