分享成果，隨喜真能量。大家好，今日內容仍是和大家分享VBA編程中常用的簡單“積木”過程代碼，第NO.114-NO.115則，內容是：FindPrevious反向查找、利用LIKE查找等內容。

VBA過程代碼114：利用FindPrevious完成查找

Sub mynz()

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

If Not rng Is Nothing Then

Msgbox “查找到了”

Set rng = .Range("B1:E1000").FindPrevious(rng)

If Not rng Is Nothing Then

Msgbox “再次查找到了”

END IF

END IF

END WITH

END SUB

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

VBA過程代碼115：利用LIKE查找

Sub mynz()

Dim rng As Range

Dim a As Integer

a = 1

With Sheets("8")

.Range("A:A").ClearContents

For Each rng In .Range("B1:E20")

If rng.Text Like "*a*" Then

.Range("A" & a) = rng.Text

a = a + 1

End If

Next

End With

End Sub

代碼的解析說明：執行上述代碼后，將在工作表Sheets("8")的A列中查找含有a的單元格。

rng.Text Like "*a*" 是用like進行判斷。

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

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

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

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

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

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

總結

以上是生活随笔為你收集整理的vba查找数据并返回单元格地址_VBA积木代码中实现反向多值查找、LIKE模糊查找...的全部內容，希望文章能夠幫你解決所遇到的問題。

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