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