同样的代码和表格格式，在高级筛选1中正常，在高级筛选2中不能运行。

meng196391 · 发表于 2020-2-12 10:01

本帖最后由 meng196391 于 2020-2-12 11:01 编辑

在高级筛选1中正常，在高级筛选2中不能运行。在高级筛选2中如果把清单中的第一行删除或者把第二行的标题复制到第一行，代码就能正常运行。不明白什么原因！

YZC51 · 发表于 2020-2-12 12:30

请参考
Sub exp()
Application.Goto Reference:="R4:R65536"
Selection.Clear
Range("A4").Select
Sheets("清单").Range("A2:J65536").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A1:J2"), CopyToRange:=Range("B4"), Unique:=1 'False
Range("C2").Select
End Sub

meng196391 · 发表于 2020-2-12 12:34

YZC51 发表于 2020-2-12 12:30
请参考
Sub exp()
Application.Goto Reference:="R4:R65536"

YZC51老师：非常棒！

YZC51 · 发表于 2020-2-12 12:37

meng196391 发表于 2020-2-12 12:34
YZC51老师：非常棒！

不客气！老师不敢当！

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

[讨论] 同样的代码和表格格式，在高级筛选1中正常，在高级筛选2中不能运行。

评分