<h1>前景提要</h1><p>上一节我们学习了如何通过VBA来实现查找功能，也是通过VBA简单的了解了Excel查找功能的逻辑</p><p>不过既然我们学习VBA，肯定不仅仅是copyExcel已经自带的功能，那肯定没有意思了，我们肯定还是要实现一些Excel没有的功能，或者像之前一样，完善一些Excel功能中的BUG</p><p>上一节就有小伙伴们说，能否将查询到的结果直接单独展示出来，高亮虽然也挺醒目，但是还不够完美，而且还有一些小伙伴也是指出，如果单元格本身带有条件格式，就会没有办法更改颜色了。</p><p>另外还有小伙伴想要知道是否能够实现模糊查找。</p><p>那么今天讲两个内容放在一起进行讲解。</p><h1>场景说明</h1><p/><div class="image-package"><img src="https://img.haomeiwen.com/i16158327/bc16c2d58713cdb9.png" class="uploaded-img" style="min-height:200px;min-width:200px;" width="auto" height="auto"/>
</div><p>
</p><p/><p>这里我们还是利用之前的案例，这里我们稍微更改一下数据，将姓名那一列作出了一些小改动，同时我们在第16行增加了一个表头</p><p>今天的目的就是利用VBA，实现单元格的模糊查找功能，同时将找到的结果所在哪一行的数据都单独展示在另外一处</p><p>这样看数据更加的方便，直接上代码</p><h1>代码区</h1><p>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</p><p>上一节，我们为了讲解单元格的精确查找都已经写了一篇流水账式的图文，相信大家对于单元格的查找应该有了一定的了解了</p><p>今天我们的模糊查找呢，其实也是在上一节的基础上，继续延伸的，所以大家如果还不太明白的话，不要着急，可以再去看看上一节的图文章节VBA 8.44打造更加高效地查找功能 秒杀自带功能 </p><p>先来看看代码的效果</p><p/><p/><div class="image-package"><img src="https://img.haomeiwen.com/i16158327/efb49dda6ec7a071.gif" class="uploaded-img" style="min-height:200px;min-width:200px;" width="auto" height="auto"/>
</div><p>们成功地将姓名列中含有A1的结果都找到了。</p><p>并且单独展示在指定的区域，这样我们进行数据的查询和查找就更加的方便了，远远好过在原始数据中，不断地去点击下一个，下一个。。。。这样看的的方便</p><p/><h1><div class="image-package"><img src="https://img.haomeiwen.com/i16158327/d26292edbc1d7662.png" class="uploaded-img" style="min-height:200px;min-width:200px;" width="auto" height="auto"/>
</div>代码解析</h1><p>那么我们来看看代码</p><p>上一节我们知道，单元格的查找，其实就是通过range.find方法来实现的，那么模糊查找呢？</p><p>也是一样，不过就是查找条件有一些变化而已。</p><p>来看看代码，为了学习的方便，我们将上一节的精确查找的代码也是一起展示，方便大家对比着学习，理解</p>Set rng = .Find("A1?", , , xlPart)'模糊查找Set rng = .Find(s) '精确查找<p>我们对比着看，精确查找的代码量就比较的简单，直接在find后面加上查找的内容就可以了。那么模糊查找呢？</p><p>代码量明显增加了一点，我们就来讲解下这个增加的部分</p><p>A1?</p><p>这个代码其实就等于精确查找中的s,代表的是要查找的内容,?代表的是通配符,代表后面至少还有一个字符，就是理解为是A1开头的文本</p><p>xlPart</p><p>part这个单词大家应该都知道，是部分的意思，那么xlpart就可以理解为是部分查找，就是针对单元格的部分内容进行查找，相对的就是整体查找，就是精确查找，</p><p>这样一连起来就好理解了</p><p>frng = rng.Address</p><p>这里就是我们上节课学习的，获得起始单元格的位置了</p><p/><p/><div class="image-package"><img src="https://img.haomeiwen.com/i16158327/897c27b73f5c821a.png" class="uploaded-img" style="min-height:200px;min-width:200px;" width="auto" height="auto"/>
</div><p>然后就和上节的思路是一样的，继续遍历循环查找这个区域，如果存在就和这个frng进行对比，看看单元格的位置是否一样</p><p>如果一样，那么自然就是证明结果只有一个，如果不一致，那就证明数据还有第二个，以此类推</p><p/><p/><div class="image-package"><img src="https://img.haomeiwen.com/i16158327/0421a1fe81b3c6f0.png" class="uploaded-img" style="min-height:200px;min-width:200px;" width="auto" height="auto"/>
</div><p>今天多了一句新的代码</p>rng.Resize(1, 6).Copy Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)<p>这样其实就是最原始的单元格的复制。</p><p>copy前面的是要复制的内容，后面是要复制的区域，这里我们也拆开来讲解</p><p/><p/><div class="image-package"><img src="https://img.haomeiwen.com/i16158327/7063ff3debcd908b.png" class="uploaded-img" style="min-height:200px;min-width:200px;" width="auto" height="auto"/>
</div><p>rng.Resize(1, 6)</p><p>代表的是以rng为起点的一个1行6列的连续封闭区间</p><p/><p/><div class="image-package"><img src="https://img.haomeiwen.com/i16158327/c6bbbc5a8551baaa.png" class="uploaded-img" style="min-height:200px;min-width:200px;" width="auto" height="auto"/>
</div><p>Resize表示的就是这样一个概念，两个关键词，封闭，连续</p><p/><p/><div class="image-package"><img src="https://img.haomeiwen.com/i16158327/31c29da8165ea8d6.png" class="uploaded-img" style="min-height:200px;min-width:200px;" width="auto" height="auto"/>
</div><p>比方说这样的区间，中间间隔了一列，那么就不算是连续的区间了，那么Resize的区域就不包括后面的这一列了。</p><p>这一点大家要理解</p>Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)<p>这一句是套路。非常常见的套路，相当于我们按下CTRL+向下</p><p>目的就是获取这一列的最后一个非空单元格的位置。</p><p>
</p><p>留给大家一个小疑问：</p><p>为什么第一行的BA1和第4行的A1没有被选中呢？</p><p>如果要选中这两个，那代码要如何写呢？</p><p>知道的小伙伴们，尽情留言吧</p><p/><h1><div class="image-package"><img src="https://img.haomeiwen.com/i16158327/55721f1efac70178.png" style="min-height:200px;min-width:200px;" class="uploaded-img" width="auto" height="auto"/>
</div></h1>
网友评论