分享成果，隨喜真能量。大家好，今日內容仍是和大家分享VBA編程中常用的簡單“積木”過程代碼，第NO.111-NO.113則，內容是：利用FindNext完成多重查找、利用ClearContents完成清除值的操作、利用FIND完成模糊查找等內容。

VBA過程代碼111：利用FindNext完成多重查找

Sub mynz()

Dim StrFind As String

Dim Rng As Range

Dim FindAddress As String

StrFind = InputBox("請輸入要查找的值:")

If Trim(StrFind) <> "" Then

With Sheets("7").Range("A:A")

Set Rng = .Find(What:=StrFind, _

After:=.Cells(.Cells.Count), _

LookIn:=xlValues, _

LookAt:=xlWhole, _

SearchOrder:=xlByRows, _

SearchDirection:=xlNext, _

MatchCase:=False)

If Not Rng Is Nothing Then

FindAddress = Rng.Address

Do

Rng.Interior.ColorIndex = 6 '設置成黃色

Set Rng = .FindNext(Rng)

Loop While Not Rng Is Nothing And Rng.Address <> FindAddress

End If

End With

End If

End Sub

代碼的解析說明：執行上述代碼后，將在工作表Sheets("7")的Range("A:A")即A列中查找用戶輸入的值，查找的類型是完全匹配，如果說查找到這個單元格后將執行Rng.Interior.ColorIndex = 6 即把單元格設置成黃色，其中Set Rng = .FindNext(Rng)是執行下一次查找，FindAddress = Rng.Address 是驗證單元格的地址是否相同，Loop While Not Rng Is Nothing And Rng.Address <> FindAddress 是循環的條件。

VBA過程代碼112：利用ClearContents完成清除值的操作

Sub mynz()

With Sheets("8")

.Range("A:A").ClearContents

END WITH

END SUB

代碼的解析說明：執行上述代碼后，將在工作表Sheets("8")的Range("A:A")即A列的值全部清除。但格式將保留。

VBA過程代碼113：利用FIND完成模糊查找

Sub mynz()

Set rng = Sheets("8").Range("B1:E20").Find("*a*")

If Not rng Is Nothing Then

Msgbox “查找到了”

END IF

END WITH

END SUB

代碼的解析說明：執行上述代碼后，將在工作表Sheets("8")的Range("B1:E20")中查找含有a的單元格。加入查找到則返回提示“查找到了”

越簡單的事物往往越容易理解，簡單的過程組合起來就是一個復雜的過程，我們要先認真掌握這些簡單的過程，才能在可以為我們復雜的工程服務。

下面是我根據自己20多年的VBA實際利用經驗，編寫的四部教程，這些是較大塊的“積木”，可以獨立的完成某些或者某類系統的過程，歡迎有需要的朋友聯絡(WeChat:NZ9668)分享。利用這些可以提高自己的編程效率。這些教程供有志于提高自己能力的朋友選擇。

第一套：《VBA代碼解決方案》PDF教程，是VBA中各個知識點的講解，覆蓋了絕大多數的知識點，是初學及中級以下人員必備的資料。

第二套：《VBA數據庫解決方案》PDF教程。數據庫是數據處理的利器，對于中級人員應該掌握這個內容了。

第三套：《VBA數組與字典解決方案》PDF教程，講解VBA的精華----字典，是我們打開思路，提高代碼水平的必備資料。

第四套：《VBA代碼解決方案》視頻教程。目前正在錄制，現在推出“每天20分鐘，半年精進VBA”活動，越早參與，回饋越多。現在第一冊48講內容已經錄制完成。錄制到第二冊71講的課程，第二級階段的優惠期開始。

總結

以上是生活随笔為你收集整理的find vba 模糊_VBA积木代码方案：实现多重查找、模糊查找、清除值的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。