sql模糊查询结果不匹配_如何使用VBA处理数据模糊匹配查询？

最新推荐文章于 2024-08-17 10:05:48 发布

weixin_39612720

最新推荐文章于 2024-08-17 10:05:48 发布

阅读量2.2k

点赞数

文章标签： sql模糊查询结果不匹配

本文链接：https://blog.csdn.net/weixin_39612720/article/details/111334536

版权

本文介绍了如何使用VBA进行数据模糊匹配查询，包括Find方法、Like运算符、Instr函数的应用，并提供了一个基础案例和乱序匹配查询的示例。文章还提到，Instr函数在模糊匹配中最为常用且灵活强大。此外，作者展示了如何将这种模糊匹配功能转化为自定义函数，并预告了后续关于VBA函数过程的讲解。

摘要由CSDN通过智能技术生成

每天一篇Excel技术图文微信公众号：Excel星球 NO.194-VBA模糊查询作者：看见星光微博：EXCELers / 知识星球：Excel

HI，大家好，我是星光。在VBA系列教程前面的章节里，分别给大家分享了什么是字典、如何使用字典处理各种情况下的数据查询、聚合统计等，本节再给大家分享一下如何使用VBA实现数据模糊匹配查询。

VBA处理数据模糊匹配查询通常有4种方式，一种是单元格对象的Find方法，一种是比较运算符Like，一种是Instr函数，还一种是正则表达式。4种方式各有优势。正则我们放到VBA进阶教程里再讲，剩下的三种方式，综合而论，最常用最灵活最强大的是Instr函数。

先举个简单的案例▼

1 丨

基础案例

如下图所示的数据表为例，需要根据A:B列的数据源，查询D列人名对应的成绩，查询结果存放E列▼

Find方法的解法代码如下▼ 代码看不全可以左右拖动..▼

Sub InstrData1()    Dim rngData As Range, aRes, rngRes As Range    Dim i As Long, j As Long, rngTemp As Range    Set rngData = Range("a1").CurrentRegion '数据源区域    Set rngRes = Range("d1:e" & Cells(Rows.Count, "d").End(xlUp).Row)    aRes = rngRes.Value '查找区域存入数组aRes    For i = 2 To UBound(aRes) '遍历查询结果数组每个值        Set rngTemp = Nothing  '初始化        Set rngTemp = rngData.Find(what:=aRes(i, 1), lookat:=xlPart)        '局部匹配查询        If rngTemp Is Nothing Then '如果没有查到结果            aRes(i, 2) = "查无"        Else '如果有查到结果，则偏移单元格取结果            aRes(i, 2) = rngTemp.Offset(0, 1).Value        End If    Next    rngRes = aResEnd Sub

代码解析见注释。FIND方法我们在单元格对象查找与替换一节有详细讲解，这里就不再重复，毕竟人生就是一场无法重复的选择，冷漠