前景提要

上一节我们学习了如何通过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)