<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ù)，將姓名那一列作出了一些小改動臼膏，同時我們在第16行增加了一個表頭</p><p>今天的目的就是利用VBA硼被，實(shí)現(xiàn)單元格的模糊查找功能，同時將找到的結(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>