[已解决]宏运行错误，求大侠指导

zjdh · 发表于 2024-3-7 16:20

本帖最后由 zjdh 于 2024-3-7 16:26 编辑

宏很简单
Sub 查询()
Sheets("统计表").Columns("A:R").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("A1:G2"), CopyToRange:=Range("A5:R1000"), Unique:=False
End Sub
Sub 清除查询()
Rows("6:1000").ClearContents
End Sub

zjdh · 发表于 2024-3-7 16:22

本帖最后由 zjdh 于 2024-3-7 16:24 编辑

重复了

zjdh · 发表于 2024-3-7 16:23

本帖最后由 zjdh 于 2024-3-7 16:25 编辑

重复了

		自动登录	找回密码
密码			注册