<h1>前景提要</h1><p>上一節(jié)我們學(xué)習(xí)了如何通過VBA來實(shí)現(xiàn)查找功能，也是通過VBA簡單的了解了Excel查找功能的邏輯</p><p>不過既然我們學(xué)習(xí)VBA，肯定不僅僅是copyExcel已經(jīng)自帶的功能，那肯定沒有意思了，我們肯定還是要實(shí)現(xiàn)一些Excel沒有的功能，或者像之前一樣，完善一些Excel功能中的BUG</p><p>上一節(jié)就有小伙伴們說，能否將查詢到的結(jié)果直接單獨(dú)展示出來，高亮雖然也挺醒目，但是還不夠完美，而且還有一些小伙伴也是指出，如果單元格本身帶有條件格式，就會沒有辦法更改顏色了。</p><p>另外還有小伙伴想要知道是否能夠?qū)崿F(xiàn)模糊查找。</p><p>那么今天講兩個內(nèi)容放在一起進(jìn)行講解。</p><h1>場景說明</h1><p/><div class="image-package"><img src="https://upload-images.jianshu.io/upload_images/16158327-bc16c2d58713cdb9.png" class="uploaded-img" style="min-height:200px;min-width:200px;" width="auto" height="auto"/>
</div><p>
</p><p/><p>這里我們還是利用之前的案例，這里我們稍微更改一下數(shù)據(jù)，將姓名那一列作出了一些小改動，同時(shí)我們在第16行增加了一個表頭</p><p>今天的目的就是利用VBA，實(shí)現(xiàn)單元格的模糊查找功能，同時(shí)將找到的結(jié)果所在哪一行的數(shù)據(jù)都單獨(dú)展示在另外一處</p><p>這樣看數(shù)據(jù)更加的方便，直接上代碼</p><h1>代碼區(qū)</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>上一節(jié)，我們?yōu)榱酥v解單元格的精確查找都已經(jīng)寫了一篇流水賬式的圖文，相信大家對于單元格的查找應(yīng)該有了一定的了解了</p><p>今天我們的模糊查找呢，其實(shí)也是在上一節(jié)的基礎(chǔ)上，繼續(xù)延伸的，所以大家如果還不太明白的話，不要著急，可以再去看看上一節(jié)的圖文章節(jié)VBA 8.44打造更加高效地查找功能 秒殺自帶功能 </p><p>先來看看代碼的效果</p><p/><p/><div class="image-package"><img src="https://upload-images.jianshu.io/upload_images/16158327-efb49dda6ec7a071.gif" class="uploaded-img" style="min-height:200px;min-width:200px;" width="auto" height="auto"/>
</div><p>們成功地將姓名列中含有A1的結(jié)果都找到了。</p><p>并且單獨(dú)展示在指定的區(qū)域，這樣我們進(jìn)行數(shù)據(jù)的查詢和查找就更加的方便了，遠(yuǎn)遠(yuǎn)好過在原始數(shù)據(jù)中，不斷地去點(diǎn)擊下一個，下一個。。。。這樣看的的方便</p><p/><h1><div class="image-package"><img src="https://upload-images.jianshu.io/upload_images/16158327-d26292edbc1d7662.png" class="uploaded-img" style="min-height:200px;min-width:200px;" width="auto" height="auto"/>
</div>代碼解析</h1><p>那么我們來看看代碼</p><p>上一節(jié)我們知道，單元格的查找，其實(shí)就是通過range.find方法來實(shí)現(xiàn)的，那么模糊查找呢？</p><p>也是一樣，不過就是查找條件有一些變化而已。</p><p>來看看代碼，為了學(xué)習(xí)的方便，我們將上一節(jié)的精確查找的代碼也是一起展示，方便大家對比著學(xué)習(xí)，理解</p>Set rng = .Find("A1?", , , xlPart)'模糊查找Set rng = .Find(s) '精確查找<p>我們對比著看，精確查找的代碼量就比較的簡單，直接在find后面加上查找的內(nèi)容就可以了。那么模糊查找呢？</p><p>代碼量明顯增加了一點(diǎn)，我們就來講解下這個增加的部分</p><p>A1?</p><p>這個代碼其實(shí)就等于精確查找中的s,代表的是要查找的內(nèi)容,?代表的是通配符,代表后面至少還有一個字符，就是理解為是A1開頭的文本</p><p>xlPart</p><p>part這個單詞大家應(yīng)該都知道，是部分的意思，那么xlpart就可以理解為是部分查找，就是針對單元格的部分內(nèi)容進(jìn)行查找，相對的就是整體查找，就是精確查找，</p><p>這樣一連起來就好理解了</p><p>frng = rng.Address</p><p>這里就是我們上節(jié)課學(xué)習(xí)的，獲得起始單元格的位置了</p><p/><p/><div class="image-package"><img src="https://upload-images.jianshu.io/upload_images/16158327-897c27b73f5c821a.png" class="uploaded-img" style="min-height:200px;min-width:200px;" width="auto" height="auto"/>
</div><p>然后就和上節(jié)的思路是一樣的，繼續(xù)遍歷循環(huán)查找這個區(qū)域，如果存在就和這個frng進(jìn)行對比，看看單元格的位置是否一樣</p><p>如果一樣，那么自然就是證明結(jié)果只有一個，如果不一致，那就證明數(shù)據(jù)還有第二個，以此類推</p><p/><p/><div class="image-package"><img src="https://upload-images.jianshu.io/upload_images/16158327-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>這樣其實(shí)就是最原始的單元格的復(fù)制。</p><p>copy前面的是要復(fù)制的內(nèi)容，后面是要復(fù)制的區(qū)域，這里我們也拆開來講解</p><p/><p/><div class="image-package"><img src="https://upload-images.jianshu.io/upload_images/16158327-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為起點(diǎn)的一個1行6列的連續(xù)封閉區(qū)間</p><p/><p/><div class="image-package"><img src="https://upload-images.jianshu.io/upload_images/16158327-c6bbbc5a8551baaa.png" class="uploaded-img" style="min-height:200px;min-width:200px;" width="auto" height="auto"/>
</div><p>Resize表示的就是這樣一個概念，兩個關(guān)鍵詞，封閉，連續(xù)</p><p/><p/><div class="image-package"><img src="https://upload-images.jianshu.io/upload_images/16158327-31c29da8165ea8d6.png" class="uploaded-img" style="min-height:200px;min-width:200px;" width="auto" height="auto"/>
</div><p>比方說這樣的區(qū)間，中間間隔了一列，那么就不算是連續(xù)的區(qū)間了，那么Resize的區(qū)域就不包括后面的這一列了。</p><p>這一點(diǎn)大家要理解</p>Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)<p>這一句是套路。非常常見的套路，相當(dāng)于我們按下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://upload-images.jianshu.io/upload_images/16158327-55721f1efac70178.png" style="min-height:200px;min-width:200px;" class="uploaded-img" width="auto" height="auto"/>
</div></h1>