Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

你正在寻找更好的Excel学习教程吗?Excel技巧80集+数据透视表+函数初中高全套+VBA80集,想学的这儿全都有
查看: 117|回复: 9

[求助] 求高手帮助

[复制链接]
发表于 2017-8-11 15:36 | 显示全部楼层 |阅读模式
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
从论坛上获得一段代码,想在实际工作中得到应用,但还是不行,希望高手给予帮助。 附件.zip (18.33 KB, 下载次数: 3)

点评

在原贴修改下, 或者指一下楼层.方便别人找附件  发表于 2017-8-11 16:55
发表于 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, 2017-8-23 08:46 , Processed in 0.093600 second(s), 26 queries , Gzip On, Memcache On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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