[原创] 0秒,快速模糊搜索

ldy888 · 发表于 2006-5-14 01:27

模糊搜索全称及所在表名和单元格地址. 在做物流查询系统时,用到单表搜索,稍改一下,做成全表搜索. 应该有很多人用得上,那应该是相当多的人啊. 除Sheet1外其它表都是要搜索的内容,有需要自己改. 只要在本工作薄中,没有找不到的列:搜索"中", 1中,中1,1中1,2中14,大中华.都能找到搜索"中大","中 ",则不会出现内容,因为原文中没有含"中大","中 ",字样的文字在1600多万有数据的格中,找出上千个有"中"的格子,约用7秒 1600多万就是一张表填满了. 如数据不多,时间显示 0 秒试验机器:ADM2600,512M,128M显卡

8OrCuZDQ.rar (15.16 KB, 下载次数: 801)

[此贴子已经被作者于2006-5-14 22:54:05编辑过]

yyy9596 · 发表于 2006-5-14 01:38

GOOD,干得太漂亮了

buddyk · 发表于 2006-5-14 03:51

为什么“中大”搜索不到呢。。。

ldy888 · 发表于 2006-5-14 04:49

样表中有"大中华",而没有"华中大"或"中大华"所以搜索不到.

qq198310 · 发表于 2006-5-14 11:12

请问楼主，我想要查询的结果是含有该字符的单元格所在的行的数据，如何实现？？

来生缘 · 发表于 2006-5-14 13:02

做得不错,0秒太夸了

ldy888 · 发表于 2006-5-14 20:24

以下是引用[I]qq198310[/I]在2006-5-14 11:12:16的发言：
请问楼主，我想要查询的结果是含有该字符的单元格所在的行的数据，如何实现？？

第一个Cells(a, 4) = r改为 Cells(a, 4) = Sheets(ch.Name).Cells.Find(What:=[b2]).Row 第二个Cells(a, 4) = r改为 Cells(a, 4) = Sheets(ch.Name).Cells.FindNext(after:=Sheets(ch.Name).Range(r)).Row 如要查列号把两个ROW 改为 Column

[此贴子已经被作者于2006-5-14 20:27:59编辑过]

青山依旧 · 发表于 2006-5-14 22:01

""中大","中 ",则没有"??????????

可以查出呀.

ldy888 · 发表于 2006-5-14 23:14

简单的说明搞复杂了,我的本意是想说明关键字和结果的关系,

"中" = 1中,中1,1中1,2中14,大中华.

"中大","中 "<> 1中,中1,1中1,2中14,大中华.

其实这两句说明对这里的人来说是多余的.

因为一个同事(,打"ABC"要15秒的电脑盲)问过我:搜索"中" 能找到"大中华",为什么搜索 "中 " 或"中大"就找不出"大中华"呢?

说了好半天他才明白,所以简单写了两句说明.

有时越简单的东西越难用文字表达.[em06]

nawong · 发表于 2006-5-15 16:48

用

Do

.

Loop While r <> fr

會讓代碼更簡潔

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