Excel精英培训网

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

[已解决]向大神们求助一个有关百度式搜索提速与去重问题

[复制链接]
发表于 2013-12-21 22:38 | 显示全部楼层 |阅读模式
本帖最后由 loft 于 2013-12-21 22:45 编辑

已实现可从搜索结果中再次搜索,但“查询”表中的搜索模块在以下问题:
1、查找内容01 中 输入石龙 查询出来的结果中第9和10条重复
2、运行速度比较慢,特别是查询目标表中的内容比较多时。
请各位大神帮助,小弟先谢过各位了。附件: 百度式搜索(HOPE).zip (379.54 KB, 下载次数: 24)
发表于 2013-12-22 13:22 | 显示全部楼层
你别忘了,你的查询语句是
Set r1 = .Cells.Find(tj1, , , xlPart) ,而不是某列。
也就是说表2的每一个单元都要查询,只要出现一次“石龙”就复制一次,当一行中出现2个单元中有“石龙”就复制2次,所以1与2重复,9与10重复!
另外每次复制一个数据,就触发一次事件,速度就慢了,可用
Application.EnableEvents = False
..........................
Application.EnableEvents = True
暂时关闭触发事件,提高一点速度。
也可将数据先赋予数组再粘贴,也将大大提高速度(对数据较多时十分明显)
回复

使用道具 举报

 楼主| 发表于 2013-12-22 14:24 | 显示全部楼层
zjdh 发表于 2013-12-22 13:22
你别忘了,你的查询语句是
Set r1 = .Cells.Find(tj1, , , xlPart) ,而不是某列。
也就是说表2的每一个单 ...

非常感谢zjdh老师的提示,但因VBA落下太久了,要是能帮忙修改代码,上传个附件,那我就可以提前完成这项工作了,再次感谢~
回复

使用道具 举报

发表于 2013-12-22 15:24 | 显示全部楼层
你的附件中没有“全国各省市ID号”表啊
回复

使用道具 举报

发表于 2013-12-22 16:25 | 显示全部楼层
百度式搜索(HOPE).rar (288.77 KB, 下载次数: 4)
回复

使用道具 举报

 楼主| 发表于 2013-12-22 23:02 | 显示全部楼层
zjdh 发表于 2013-12-22 16:25

老师,点“重新查询”后,再次输入内容回车就不行了,另在“查找内容01”里输入内容后,在“查找内容02”及“查询内容03”里再输入内容,无法从“查找内容01”的搜索结果中进行再次搜索,在“查找内容02”里输入内容再次搜索时,提示“无相关数据”,但在搜索结果中是有相关关键词的。
另,“全国各省市ID号”工作表隐藏了。老师能否再帮改改,谢谢啦。

回复

使用道具 举报

发表于 2013-12-23 08:14 | 显示全部楼层    本楼为最佳答案   
百度式搜索(HOPE)2.rar (288.88 KB, 下载次数: 21)
回复

使用道具 举报

 楼主| 发表于 2013-12-23 19:18 | 显示全部楼层
zjdh 发表于 2013-12-23 08:14

灰常感谢zjdh老师,OK了。{:35:}
回复

使用道具 举报

 楼主| 发表于 2013-12-24 21:19 | 显示全部楼层
zjdh 发表于 2013-12-23 08:14

zjdh 老师  ,贴子飞了会,没找到答案,弱弱地问下能否再帮助解决下{:25:}http://www.excelpx.com/thread-316104-1-1.html
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-28 19:02 , Processed in 0.463831 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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