vba查找数据并返回单元格地址_VBA积木代码中实现反向多值查找、LIKE模糊查找...

分享成果，随喜真能量。大家好，今日内容仍是和大家分享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讲的课程，第二级阶段的优惠期开始。