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

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

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

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

rng.Text Like "*a*" 是用like進(jìn)行判斷。

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

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

第一套：《VBA代碼解決方案》PDF教程，是VBA中各個(gè)知識(shí)點(diǎn)的講解，覆蓋了絕大多數(shù)的知識(shí)點(diǎn)，是初學(xué)及中級(jí)以下人員必備的資料。

第二套：《VBA數(shù)據(jù)庫解決方案》PDF教程。數(shù)據(jù)庫是數(shù)據(jù)處理的利器，對(duì)于中級(jí)人員應(yīng)該掌握這個(gè)內(nèi)容了。

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

第四套：《VBA代碼解決方案》視頻教程。目前正在錄制，現(xiàn)在推出“每天20分鐘，半年精進(jìn)VBA”活動(dòng)，越早參與，回饋越多。現(xiàn)在第一冊(cè)48講內(nèi)容已經(jīng)錄制完成。錄制到第二冊(cè)71講的課程，第二級(jí)階段的優(yōu)惠期開始。

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。