如何实现模糊查找

高山雪原

修改代码后，仍然没有实现。刚刚学习VBA,基础十分薄弱，还望不吝赐教！ 模糊查找a.zip (8.43 KB, 下载次数: 31)

2015-2-28 23:19 上传

点击文件名下载附件

zhaogang1960

应该是A列数据在B列中查询？如果是请参考：

1. Public Sub abc()
   
2. Dim x, rng As Range, c As Range
   
3. For Each x In Range([a1], [a65536].End(3)).Value
   
4.     Set c = [b:b].Find(x, , , 2)
   
5.     If Not [b:b].Find(x, , , 2) Is Nothing Then
   
6.         If rng Is Nothing Then Set rng = c Else Set rng = Union(rng, c)
   
7.     End If
   
8. Next
   
9. If Not rng Is Nothing Then rng.Interior.Color = vbRed
   
10. End Sub

复制代码

高山雪原

问题已经解决，感谢楼上各位老师的无私帮助！
身处excelhome之中，真正有“家”的感觉，愿这个家的每一个成员接力传递爱心，把这个家建设得越来越好！

nomis9

好厉害！学习了

jinghexi

xiexie xiexie