VBA示例_高级筛选

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