Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

工作中常用的Excel函数公式,全印在一张超大鼠标垫上
查看: 148|回复: 1

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

[复制链接]
发表于 2020-11-25 14:49 | 显示全部楼层 |阅读模式
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



发表于 2020-11-25 16:04 | 显示全部楼层
可能是录制前,你选了表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
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2021-1-23 09:35 , Processed in 0.093600 second(s), 5 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表