Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2219|回复: 9

求高手帮助

[复制链接]
发表于 2017-8-11 15:36 | 显示全部楼层 |阅读模式
从论坛上获得一段代码,想在实际工作中得到应用,但还是不行,希望高手给予帮助。 附件.zip (18.33 KB, 下载次数: 3)
发表于 2017-8-11 16:25 | 显示全部楼层
回复

使用道具 举报

 楼主| 发表于 2017-8-11 16:34 | 显示全部楼层
对不起,我刚才发的附件不对,应该是这个,拜托高手们。 附件1.zip (34.34 KB, 下载次数: 7)
回复

使用道具 举报

 楼主| 发表于 2017-8-11 18:15 | 显示全部楼层
就是在绿色单元格输入要筛选的范围的值,按一下键,就能将各工作表该范围值筛选到“高级筛选”的表内。敬请各位高手帮忙。
回复

使用道具 举报

发表于 2017-8-12 12:10 | 显示全部楼层
If sh.Name <> "目录" Then这句改成If sh.Name <> "目录"  and  sh.Name <> "高级筛选" Then
回复

使用道具 举报

发表于 2017-8-12 12:15 | 显示全部楼层
Sheets(arr(1, 2)).Columns("A:V")这句改成 Sheets(arr(1, 2)).RANGE("A2:V6000")
回复

使用道具 举报

发表于 2017-8-12 12:16 | 显示全部楼层
CopyToRange:=Range("A2") 改成CopyToRange:=Range("A5")
回复

使用道具 举报

 楼主| 发表于 2017-8-12 13:39 | 显示全部楼层
首先感谢您的帮助,但还是不行只复制了表头,没有筛选的数据。
回复

使用道具 举报

 楼主| 发表于 2017-8-12 14:43 | 显示全部楼层
CopyToRange:=Range("A4"),能否改成最后一非空单元格加1,因为筛选每张表后的数据都复制到Range("A4")开头的行,那么到最后只能获得从最后一张表筛选的数据,其他表筛选后的数据都被覆盖了。
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 07:52 , Processed in 0.556933 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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