vba实现高级筛选功能

ph378 · 发表于 2024-7-4 11:31

本帖最后由 ph378 于 2024-7-4 11:32 编辑

工作簿1.rar (9.1 KB, 下载次数: 8)

vba实现高级筛选功能

titi012 · 发表于 2024-7-4 11:48

直接录制一个宏吧

Sub 宏1()
Columns("A:F").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("I1:I2"), CopyToRange:=Range("K1:N1"), Unique:=False
End Sub

复制代码

ph378 · 发表于 2024-7-4 15:31

titi012 发表于 2024-7-4 11:48
直接录制一个宏吧

提示自动化错误，是版本问题？wps2019专业版

lsc900707 · 发表于 2024-7-4 15:31

参考附件：

titi012 · 发表于 2024-7-4 16:26

ph378 发表于 2024-7-4 15:31
提示自动化错误，是版本问题？wps2019专业版

那就是了。我的版本 off 2010，很低的版本

ph378 · 发表于 2024-7-5 08:36

lsc900707 发表于 2024-7-4 15:31
参考附件：

工作簿1.rar (9.73 KB, 下载次数: 6)

lsc900707 · 发表于 2024-7-5 09:51

ph378 发表于 2024-7-5 08:36

稍加修改即可;

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

[求助] vba实现高级筛选功能