Excel指定条件筛选

Excel VBA高级筛选，通过动态修改查询条件进行筛选（CriteriaRange 条件），将筛选结果写入指定单元格（A7）。

Sub 宏1()'' 宏1 宏''Range("A7:G10000").ClearApplication.CutCopyMode = FalseApplication.CutCopyMode = FalseApplication.CutCopyMode = FalseSheets("工单录入").Columns("A:L").AdvancedFilter Action:=xlFilterCopy, _CriteriaRange:=Range("vba!Criteria"), CopyToRange:=Range("A7"), Unique:= _FalseRange("B7:F10000").SelectSelection.Delete Shift:=xlToLeftEnd Sub