VBA录制宏做高级筛选，第一次运行正常再次运行报错1004

kissswiss

Sub Macro10()

' Macro10 Macro
'

'
    Range("A10:U10").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    Range("A10").Select
    Sheets("水 ").Columns("A:U").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("查询!Criteria"), CopyToRange:=Range("A11"), Unique:= _
        False
End Sub

爱疯

可能是录制前，你选了表a，作为当前工作表；
而执行录制宏时，却没再先选表a。
基于录制宏，你自己修改x,y,z


Sub test()
    Dim x, y, z
    Set x = Sheets(1).UsedRange                     '数据源
    Set y = Sheets(2).Range("A1").CurrentRegion     '条件区
    Set z = Sheets(3).Range("A1").CurrentRegion     '目的区
    z.Clear
    x.AdvancedFilter xlFilterCopy, y, z
End Sub