如何实现模糊查找

高山雪原

模糊查找.rar (6.39 KB, 下载次数: 52)

2015-2-28 16:03 上传

点击文件名下载附件

求助各位老师：如果B列单元格包含A列单元格的值，就将包含内容的单元格变色，如何实现？

doitbest

Public Sub abc()
Dim x As Range, rng As Range
For Each x In Range([b1], [b65536].End(3))
    If Not [a:a].Find(x, , , 1) Is Nothing Then
        If rng Is Nothing Then Set rng = x Else Set rng = Union(rng, x)
    End If
Next
If Not rng Is Nothing Then rng.Interior.Color = vbRed
End Sub

高山雪原

doitbest 发表于 2015-2-28 16:42
Public Sub abc()
Dim x As Range, rng As Range
For Each x In Range(, .End(3))

    十分感谢！学会了完全匹配单元格的查找！请教doitbest老师，如果再进一步，单元格内容部分匹配的也改变颜色，如B7“区人大”单元格包含A11单元格“人大”，B7单元格也改变颜色，不知能否实现。

jpj123

部分匹配:
Public Sub abc()
Dim x As Range, rng As Range
For Each x In Range([b1], [b65536].End(3))
    If Not [a:a].Find(x, , , 2) Is Nothing Then
        If rng Is Nothing Then Set rng = x Else Set rng = Union(rng, x)
    End If
Next
If Not rng Is Nothing Then rng.Interior.Color = vbRed
End Sub

高山雪原

jpj123 发表于 2015-2-28 20:56
部分匹配:
Public Sub abc()
Dim x As Range, rng As Range

谢谢回复！经测试还是未能实现部分匹配。

jpj123

If Not [a:a].Find(x, , , 2) Is Nothing Then
建议你看下关于FIND函数的帮助。

高山雪原

jpj123 发表于 2015-2-28 21:41
If Not [a:a].Find(x, , , 2) Is Nothing Then
建议你看下关于FIND函数的帮助。

If Not [a:a].Find(x, lookat:=xlPart) Is Nothing Then
将参数设置成Find(x, lookat:=xlPart)也未能实现，不知问题出在哪里？

jpj123

高山雪原 发表于 2015-2-28 22:23
If Not [a:a].Find(x, lookat:=xlPart) Is Nothing Then
将参数设置成Find(x, lookat:=xlPart)也未能实现 ...

你要的模糊查询是怎么匹配的？比如：在"ABC123"中模糊查找BC，是能找到的，但是要找B12C，就找不到的。
如果要模糊查询到， 就必须把B12C拆分成单个字符，再查找。最后再判断是否全部找到。不知道我说清楚没？

高山雪原

正是这个结果。非常感谢！谢谢zhaogang老师！

高山雪原

jpj123 发表于 2015-2-28 22:56
你要的模糊查询是怎么匹配的？比如：在"ABC123"中模糊查找BC，是能找到的，但是要找B12C，就找不到的。
...

首先，十分感谢你的热心帮助！
我是想在"ABC123"中模糊查找BC，即包含两个及以上连续字符的。