編按：Hello?各位小伙伴們，大家好！在前面的文章里我們分享了通過查找替換和條件格式可以快速定位和匹配關(guān)鍵詞的技巧，今天要跟大家分享的是通過查找關(guān)鍵詞來動(dòng)態(tài)篩選表格中的數(shù)據(jù)，這個(gè)也被廣大網(wǎng)友稱之為“關(guān)鍵詞高級(jí)篩選”。

話不多說，一起來看看效果圖：

相信有很多小伙伴一定非常好奇這種關(guān)鍵詞篩選是怎么做出來的？

如果我告訴你要用到VBA，你會(huì)不會(huì)就打退堂鼓不想學(xué)了？

別怕，今天跟著文章一起操作一遍就會(huì)發(fā)現(xiàn)其實(shí)VBA非常簡單的。

Step1：添加輔助列數(shù)據(jù)

我們選中B列，鼠標(biāo)右鍵插入一列，在A3單元格輸入輔助列，接著在A4單元格中輸入公式=TEXTJOIN("",TRUE,TEXT(B4,"yyyy-mm-dd"),C4:K4)回車后下拉填充公式。填充完后將公式結(jié)果選擇性粘貼為純文本，通過函數(shù)將數(shù)據(jù)區(qū)域里面的值全部組合在一起，這樣當(dāng)我們檢索關(guān)鍵詞的時(shí)候就會(huì)以包含的形式查找到數(shù)據(jù)區(qū)域中所有內(nèi)容了。

Step2：調(diào)出開發(fā)工具選項(xiàng)卡

因?yàn)橄旅嫖視?huì)使用到錄制宏和查看代碼，所以現(xiàn)在需要將軟件中的開發(fā)工具選項(xiàng)卡調(diào)出來，在功能區(qū)鼠標(biāo)右鍵，自定義功能區(qū)，找到開發(fā)工具勾選后確定就會(huì)在功能區(qū)看到開發(fā)工具選項(xiàng)卡了。

Step3：錄制篩選宏

在開發(fā)工具選項(xiàng)卡中找到錄制宏按鈕，點(diǎn)擊開始錄制宏，宏名稱隨便取一個(gè)名字，也可以是默認(rèn)的名稱，這里我們演示的錄制宏叫“篩選”。確定后接下來的所有操作都會(huì)被軟件記錄下來。我們對(duì)第三行的標(biāo)題行數(shù)據(jù)進(jìn)行篩選，選擇輔助列篩選按鈕，文本篩選選擇包含，隨便輸入一個(gè)數(shù)據(jù)中有的詞，最后確定就會(huì)將數(shù)據(jù)中涵蓋的內(nèi)容篩選出來了。最后我們從開發(fā)工具選項(xiàng)阿卡進(jìn)入VBE的模塊里面就可以看到剛剛錄制的宏代碼了。

Step4：刪除宏代碼中多余的步驟

打開代碼后會(huì)發(fā)現(xiàn)其中有兩句代碼是多余，我們選中Range("B3").Select和Range("A4:A20").Select刪除，并且從Field:=1,后面添加空格和短劃線是將代碼換行。

Step5：添加單元格事件

從模塊1中將處理好的代碼復(fù)制，雙擊打開sheet1工作表，通用里面選擇Worksheet?事件選擇change隨后將代碼粘貼到change過程里面，這里需要將代碼Criteria1:="=*小*"更改為Criteria1:="=*" & Target & "*"

Step6：代碼效果體驗(yàn)

到此粗略的關(guān)鍵詞篩選功能算是做好了，我們回到文中輸入內(nèi)容查看通過剛剛錄制宏修改代碼后效果，這是你會(huì)發(fā)現(xiàn)在任何單元格中輸入內(nèi)容都會(huì)觸發(fā)篩選事件，不僅僅局限于在C1單元格中輸入內(nèi)容，那么想讓內(nèi)容只在C1單元格起作用咋辦呢？

?

Step7：指定單元格區(qū)域觸發(fā)事件

我們可以在代碼中添加一個(gè)IF語句，用來判斷輸入內(nèi)容的單元格是C1才執(zhí)行篩選功能。附上修改后的代碼：

_________________________________________________________

Private Sub Worksheet_Change(ByVal Target As Range)

'輸入內(nèi)容的單元格是C1才執(zhí)行篩選

If Target.Address(0, 0) = "C1" Then

???Range("a3").CurrentRegion.AutoFilter Field:=1, _

???Criteria1:="=*" & Target & "*", _

???????Operator:=xlAnd

End If

End Sub

_________________________________________________________

最后成品的效果如下：

怎么樣？看完文章后的你是否學(xué)會(huì)了錄制宏的技巧？回過頭來再看VBA是不是也并沒有大家想的那么難。

以上就是今天跟大家分享的內(nèi)容，感謝大家耐心看完，希望大家能夠喜歡。

本文配套的練習(xí)課件請(qǐng)加入QQ群：902294808下載。

做Excel高手，快速提升工作效率，部落窩教育《一周Excel直通車》視頻和《Excel極速貫通班》直播課全心為你！

相關(guān)推薦：

將excel中的數(shù)據(jù)按照指定數(shù)量進(jìn)行重復(fù)，非得用VBA才能實(shí)現(xiàn)嗎？

如何在特定位置批量插入空行等12種實(shí)用辦公技巧

4種刪除excel重復(fù)值的小妙招，速收藏

Power Query的數(shù)據(jù)替換技巧比Excel函數(shù)更萬能！

版權(quán)申明：

本文作者花花；同時(shí)部落窩教育享有專有使用權(quán)。若需轉(zhuǎn)載請(qǐng)聯(lián)系部落窩教育。