如何用vba实现模糊查找

zhaogang1960 · 发表于 2012-7-31 19:28

郁孤亭发表于 2012-7-31 19:00
如附件，用find法
c1=ax，则结果前面有几个空单元格
c1=AX，则没有

countif不能区分大小写，下面代码区别大小写、使用双数组：

Sub Find法()
Dim c As Range, firstAddress$, arr(), brr(), m&, n&, temp$
temp = [c1]
ReDim arr(1 To [a65536].End(xlUp).Row, 1 To 1)
ReDim brr(1 To [a65536].End(xlUp).Row, 1 To 1)
With Range("a:a")
Set c = .Find(temp, , , 2, , , True)
If Not c Is Nothing Then
firstAddress = c.Address
Do
If c.Value = temp Then
m = m + 1
arr(m, 1) = c.Offset(, 1)
Else
n = n + 1
brr(n, 1) = c.Offset(, 1)
End If
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
Range("d2:d65536").ClearContents
If m > 0 Then [d2].Resize(m) = arr
If n > 0 Then [d65536].End(xlUp).Offset(1).Resize(n) = brr
End Sub

复制代码

zhaogang1960 · 发表于 2012-7-31 19:30

请注意，区分大小写后输入小写字母就查不到了，请看附件

模糊查找.rar (126.01 KB, 下载次数: 315)

郁孤亭 · 发表于 2012-8-1 10:19

zhaogang1960 发表于 2012-7-31 19:28
countif不能区分大小写，下面代码区别大小写、使用双数组：

谢谢版主。

继续深入讨论一下：
如果不只是做首字母查找，而是用拼音查找（不含声调）
随便输入查找字，如全为声母，当然就按照首字母规则来查找
如果是拼音（声母加韵母）就按照拼音查找的规则来进行。但拼音规则的模糊查找就很麻烦，比如
赵刚：zhaogang
用zhg,zhaog,zhangang,zhaang等等都要能查到
h和g这两个字母又会导致很多问题

我记得以前诺基亚的一些直板手机的通信录查找做的非常好，搜索到的结果又快又准
但是现在的智能机，我看到的，苹果、三星、htc、诺基亚，搜索都很烂，查到的结果很多是莫名其妙根本不是我想找的，而且排序很乱，我想找的往往不在开头处。

拼音查找的话，版主知道有没有什么好的算法，用vba又能否实现？

郁孤亭 · 发表于 2012-8-1 10:23

首字母查找的话，用版主的find法，我做了个5w多条记录的通信录，查找速度很快，但查找结果太多，两个字母一般有上百条。要查得更准的话，要不就用汉字查找，要不就增加字母输入，变成拼音查找。
汉字查找应该是非常准的，但查找的时候输入汉字，相比输入拼音（模糊音），就麻烦许多

郁孤亭 · 发表于 2012-8-1 10:28

我想做到类似qq的“搜索联系人”那样的功能
但这个功能有很大的缺陷，比如联系人“孔夫子”，用fz是找不到的。

zhaogang1960 · 发表于 2012-8-1 11:23

郁孤亭发表于 2012-8-1 10:19
谢谢版主。

继续深入讨论一下：

查询包含或等于全拼可以试一试，混合拼音没有研究过

zhaogang1960 · 发表于 2012-8-1 11:27

全拼模糊查询，请参考

全拼模糊查找.rar (139.3 KB, 下载次数: 501)

tianyk · 发表于 2012-8-1 11:37

学习学习。zhaogang1960 真耐心！

郁孤亭 · 发表于 2012-8-2 16:49

zhaogang1960 发表于 2012-8-1 11:27
全拼模糊查询，请参考

谢谢
但是打不开
打开时显示excel出错

郁孤亭 · 发表于 2012-8-2 16:55

顺便请教，vba有没有好的教材？
最好是实例较多的

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

[求助] 如何用vba实现模糊查找

评分