高级筛选VBA

nnsea

Option Explicit

Sub 高级筛选()

    '判断高级筛选条件区域有多少行
    Dim x As Integer
    x = Sheets("高级筛选").Range("A1").CurrentRegion.Rows.Count
        
    '清空高级筛选的复制到位置的内容,也就是条件区域下面的所有内容
    Sheets("高级筛选").Range("A" & x + 1 & ":G2000").Select
    Selection.Delete
   
    '把高级筛选的内容根据条件区域的条件复制到条件区域下两行后的位置
    Sheets("学生").Range("A1:G1199").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
        Sheets("高级筛选").Range("A1:G" & x), CopyToRange:=Sheets("高级筛选").Range("A" & x + 3), Unique:=False