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

cxddx0 · 发表于 2006-5-15 20:21

太强了，学习中

okmijnj · 发表于 2006-5-15 21:58

一边上QQ,Bt，MP3，开网页，用了2秒，P4，1.6G

qq198310 · 发表于 2006-5-15 22:10

不是要行号，需要该行的全部内容。。。。

qq198310 · 发表于 2006-5-16 00:06

以下是引用[I]ldy888[/I]在2006-5-14 20:24:23的发言：[BR]
以下是引用[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

我想要的不是行号，而是该行的全部内容，该如何实现，谢谢！！

ldy888 · 发表于 2006-5-16 01:45

如果一行中有几个相同关键字,就会反应出相同的几行.

把代码中所有的"[b2]"都改成"[b1]",搜索内容要写在B1格

第一处Cells(a, 5) = Sheets(ch.Name).Range(r) 改为

Sheets(ch.Name).Rows(Sheets(ch.Name).Cells.Find(What:=[b2]).Row).Copy Rows(a + 1)

第二处Cells(a, 5) = Sheets(ch.Name).Range(r)改为

Sheets(ch.Name).Rows(Sheets(ch.Name).Cells.FindNext(after:=Sheets(ch.Name).Range(r)).Row). _Copy Rows(a + 1)

如不想要表名和单元地址,把两处Cells(a, 3) = ch.Name Cells(a, 4) =r 都去掉,再把上文的两处+1去掉

[此贴子已经被作者于2006-5-16 2:11:27编辑过]

ldy888 · 发表于 2006-5-16 01:57

以下是引用[I]nawong[/I]在2006-5-15 16:48:35的发言：[BR]
用
Do
.
.
.
Loop While r <> fr
會讓代碼更簡潔

我水平不高.用过,但感觉慢很多,也许是我用的不对. do loop 用的不是太熟,要不请师兄直接改个完整的发上来,我看看是哪用的不对. 不过我发现用excel提供的组合语句,反不如自已用简单语句编一个相同功能的跑得快. 我一般都是分别FOR它个一千几百次,才决定用哪个的.

nawong · 发表于 2006-5-16 10:50

以下是引用[I]ldy888[/I]在2006-5-16 1:57:13的发言：
以下是引用[I]nawong[/I]在2006-5-15 16:48:35的发言：
用
Do
.
.
.
Loop While r <> fr
會讓代碼更簡潔
我水平不高.用过,但感觉慢很多,也许是我用的不对. do loop 用的不是太熟,要不请师兄直接改个完整的发上来,我看看是哪用的不对. 不过我发现用excel提供的组合语句,反不如自已用简单语句编一个相同功能的跑得快. 我一般都是分别FOR它个一千几百次,才决定用哪个的.

Do.....Loop方法，共用學習 Sub nawong() 'use Do....Loop Dim sheet As Worksheet, a As Long Dim rangeA As Range, Adr As String t = Now Application.ScreenUpdating = 0 For Each sheet In ActiveWorkbook.Sheets If sheet.Index 1 Then Set rangeA = sheet.UsedRange.Find([b2]) If rangeA Is Nothing Then GoTo 11 Adr = rangeA.Address Do Cells(2 + a, 3) = sheet.Name Cells(2 + a, 4) = rangeA.Address Cells(2 + a, 5) = rangeA a = a + 1 Set rangeA = sheet.UsedRange.FindNext(rangeA) Loop While rangeA.Address Adr End If 11 Next Application.ScreenUpdating = 1 MsgBox (Now - t) * 24 * 3600 & "s" End Sub

AF3t0yII.rar (15.27 KB, 下载次数: 65)

[此贴子已经被作者于2006-6-14 15:29:04编辑过]

cui36 · 发表于 2006-5-16 11:16

程序简单,用处很大,收藏先.

qee用 · 发表于 2006-5-16 11:29

看ldy888兄滴贴子，总是让人愉悦滴。
读ldy888兄滴代码，不吃力，但收获却是相当不小滴。
那代码写滴，是相当不错滴。俺给改改，也是相当不错滴。
可是俺上传这个东东，竟用了俺N多倍于改改的时间！

青山依旧 · 发表于 2006-5-16 11:39

滴、滴、滴......

用哥这个做得很好滴.哈哈.

收下滴.

[em23][em23][em23]

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