Excel VBA 8.45模糊查询+单独集中展示!VBA打造更好的查找功能
打造更加高效的查找功能 秒杀自带功能
点击上方“Excel和VBA”,选择“置顶公众号”
致力于原创分享Excel的相关知识,源码,源文件打包提供
一起学习,一起进步~~
上一节我们学习了如何通过VBA来实现查找功能,也是通过VBA简单的了解了Excel查找功能的逻辑
不过既然我们学习VBA,肯定不仅仅是copyExcel已经自带的功能,那肯定没有意思了,我们肯定还是要实现一些Excel没有的功能,或者像之前一样,完善一些Excel功能中的BUG
上一节就有小伙伴们说,能否将查询到的结果直接单独展示出来,高亮虽然也挺醒目,但是还不够完美,而且还有一些小伙伴也是指出,如果单元格本身带有条件格式,就会没有办法更改颜色了。
另外还有小伙伴想要知道是否能够实现模糊查找。
那么今天讲两个内容放在一起进行讲解。
场景说明
这里我们还是利用之前的案例,这里我们稍微更改一下数据,将姓名那一列作出了一些小改动,同时我们在第16行增加了一个表头
今天的目的就是利用VBA,实现单元格的模糊查找功能,同时将找到的结果所在哪一行的数据都单独展示在另外一处
这样看数据更加的方便,直接上代码
代码区
Sub test2()
Dim rng As Range, frng$
With ActiveSheet.UsedRange
Set rng = .Find("A1?", , , xlPart)
If Not rng Is Nothing Then
Range("A1:F1").Copy Range("a16") '
frng = rng.Address
rng.Resize(1, 6).Copy Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End If
Do
Set rng = .FindNext(rng)
If frng = rng.Address Then
Exit Sub
Else
rng.Resize(1, 6).Copy Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End If
Loop
End With
End Sub
上一节,我们为了讲解单元格的精确查找都已经写了一篇流水账式的图文,相信大家对于单元格的查找应该有了一定的了解了
今天我们的模糊查找呢,其实也是在上一节的基础上,继续延伸的,所以大家如果还不太明白的话,不要着急,可以再去看看上一节的图文章节8-44
先来看看代码的效果
我们成功的将姓名列中含有A1的结果都找到了。
并且单独展示在指定的区域,这样我们进行数据的查询和查找就更加的方便了,远远好过在原始数据中,不断的去点击下一个,下一个。。。。这样看的的方便
代码解析
那么我们来看看代码
上一节我们知道,单元格的查找,其实就是通过range.find方法来实现的,那么模糊查找呢?
也是一样,不过就是查找条件有一些变化而已。
来看看代码,为了学习的方便,我们将上一节的精确查找的代码也是一起展示,方便大家对比着学习,理解
Set rng = .Find("A1?", , , xlPart)'模糊查找
Set rng = .Find(s) '精确查找
我们对比着看,精确查找的代码量就比较的简单,直接在find后面加上查找的内容就可以了。那么模糊查找呢?
代码量明显增加了一点,我们就来讲解下这个增加的部分
A1? 这个代码其实就等于精确查找中的s,代表的是要查找的内容,?代表的是通配符,代表后面至少还有一个字符,就是理解为是A1开头的文本 xlPart part这个单词大家应该都知道,是部分的意思,那么xlpart就可以理解为是部分查找,就是针对单元格的部分内容进行查找,相对的就是整体查找,就是精确查找,
这样一连起来就好理解了
frng = rng.Address
这里就是我们上节课学习的,获得起始单元格的位置了
然后就和上节的思路是一样的,继续遍历循环查找这个区域,如果存在就和这个frng进行对比,看看单元格的位置是否一样
如果一样,那么自然就是证明结果只有一个,如果不一致,那就证明数据还有第二个,以此类推
今天多了一句新的代码
rng.Resize(1, 6).Copy Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
这样其实就是最原始的单元格的复制。
copy前面的是要复制的内容,后面是要复制的区域,这里我们也拆开来讲解
rng.Resize(1, 6)
代表的是以rng为起点的一个1行6列的连续封闭区间
Resize表示的就是这样一个概念,两个关键词,封闭,连续
比方说这样的区间,中间间隔了一列,那么就不算是连续的区间了,那么Resize的区域就不包括后面的这一列了。
这一点大家要理解
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
这一句是套路。非常常见的套路,相当于我们按下CTRL+向下
目的就是获取这一列的最后一个非空单元格的位置。
留给大家一个小疑问:
为什么第一行的BA1和第4行的A1没有被选中呢?
如果要选中这两个,那代码要如何写呢?