在工作表中我們經常用查找功能，在一列中查找某個內容，查找下一個，那在VBA中我們該如何進行查找呢？
我們看個實例：
上圖中我們希望通過輸入班級，點擊篩選就能出來想要的內容，這裡我忘了在篩選之前先做個清除，所以篩選二班記錄時，三班的記錄沒有清除。
我們要把某個班級的記錄篩選出來，那麼就希望首先在對應的列裡找到某個班級所在的單元格，這裡就用到了find，找到後就把該行複製到對應位置，然後進行查找下一個。
上圖中代碼如下：
Sub 篩選()
Dim rng1, rng2, rng3 As Range, addr$, adr$
Set rng1 = Range("a:a").Find(Range("e6").Value)
addr = rng1.Address
Do
Set rng1 = Range("a:a").FindNext(rng1)
adr = rng1.Address
Set rng2 = Cells(Rows.Count, "e").End(xlUp)(2, 1)
Set rng3 = rng1.EntireRow.Range("a1:c1")
rng3.Copy rng2
Loop Until addr = rng1.Address
End Sub
find的語法：
range（某區域）.find（某值）
findnext的語法：
Range(某區域).FindNext(find的結果)
使用findnext要先使用find找到第一個結果，然後在用findnext找到下一個結果。
基本用法清楚以後，給大家留到練習題：
批量刪除特定的行，效果做成如下：
今天的分享就到這裡，VBA不動手是學不會的，所以一定要動手寫。
視頻教程正在陸續錄製中(目前錄製了44節了)，需要的同學可以加我微信號：527240310，50元，一次付費後，以後所錄視頻均可以免費索取，而且不懂的地方可以交流。非誠勿擾，謝謝配合！
後臺回復下列紅色關鍵詞可以獲取相關資源：
1、office365, office 365, 365，可以獲取office365版本
2、excel學習, Excel學習，可以獲取相關的學習資料
3、VBA學習，可以獲取相關的學習資料
4、excel擴展，可以獲取excel擴展工具，能讓excel更加高效方便的工作
5、百度雲破解限速，可以獲取相關軟體
6、PPT模板, ppt模板，可以獲取相關資源
7、快查手冊，可以獲取函數快查手冊
8、微信清粉, 清粉，可以獲取微信殭屍粉清理軟體
注意是後臺回復，不是留言區回復，而且回復的關鍵字必須跟上面的關鍵字一樣，注意大小寫，空格之類。
後臺學習資源菜單中更多精彩內容等著你！
分享是一種美德，共同學習共同成長！
長按識別下方二維碼關注，
後臺菜單中有更多精彩內容等著你！
蘋果用戶可通過下方二維碼讚賞！
覺得不錯請點讚！！！