excel,vba,高级筛选示例代码及文件Subɸѡ()''ɸѡMacro'aa¼Ç¼µÄºê2006-3-7''Range("J7").SelectSheets("Ã÷ϸ±í").Range("A1:G22").AdvancedFilterAction:=xlFilterCopy,_CriteriaRange:=Range("A1:C2"),CopyToRange:=Range("A4:G4"),Unique:=FalseE