《VBA代码解决方案》(版权10028096)这套教程是我最早推出的教程，目前已经是第三版修订了。这套教程定位于入门后的提高，在学习这套教程过程中，侧重点是要理解及掌握我的“积木编程”思想。要灵活运用教程中的实例像搭积木一样把自己喜欢的代码摆好。
这套教程共三册，一百四十七讲，内容覆盖较广，也是初级和中级间的过渡教程，改版后的内容主要是提供程序源码文件及代码修正为32位和64位兼用代码。今后一段时间会给大家陆续推出。今日的内容是VBA代码解决方案第8讲：利用FindPrevious进行重复搜索及利用LIKE查找
【分享成果，随喜正能量】笑看风云淡，坐对云起时。不争就是慈悲，不辩就是智慧，不闻就是清净，不看就是自在，原谅就是解脱，知足就是放下。。
第八讲 利用FindPrevious进行重复搜索及利用LIKE查找
在上一讲中，我讲了利用FIND方法进行单值和多值查找的方法，今日继续讲解，今日讲解FindPrevious方法进行重复搜索和利用LIKE查找的方法。
1 FindPrevious方法
语法：expression.FindPrevious(After)
FindPrevious方法和FindNext方法唯一的区别是FindPrevious方法查找匹配相同条件的前一个单元格而FindNext方法是查找匹配相同条件的下一个单元格。
如下代码：
Sub mynz_8() '8 利用FindPrevious方法进行重复搜索
Dim rng As Range
Dim a As Integer
a = 1
With Sheets("8")
.Range("A:A").ClearContents
bcontinue = True
Set rng = .Range("B1:E20").Find("*a*")
If Not rng Is Nothing Then fristmyfind = rng.Address
Do Until rng Is Nothing Or Not bcontinue
.Range("A" & a) = rng.Text
a = a + 1
Set rng = .Range("B1:E20").FindPrevious(rng)
If rng.Address = fristmyfind Then bcontinue = False
Loop
End With
End Sub
代码截图：
上述代码运行后，将返回值放在A列，大家可以看一下返回的结果。
2 用Like运算符，进行更为复杂的匹配查找
Like运算符用来比较两个字符串。
语法如下：result = string Like pattern
参数
a)string是必需的，字符串表达式。
b)pattern是必需的，字符串表达式。
c)pattern可以使用通配符、字符串列表或字符区间的任何组合来匹配字符串。下表列出pattern中允许的字符以及它们与什么进行匹配。
返回结果：如果string与pattern匹配，则result为True；如果不匹配，则result为False。但是如果string或pattern 中有一个为Null，则result 为 Null。
下面我们通过一个实例来讲解，先看下面的代码：
Sub mynz_8_2() '8 利用FindPrevious方法进行重复搜索和利用LIKE查找
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
代码截图：
代码解读：上述过程使用For Each...Next语句和Like运算符在单元格区域B1:E20中搜索含有“a”字符的单元格，找到匹配单元格以后将单元格的值写入到A列中。
1）第6行代码使用ClearContents方法清除A列区域的数据。
2）第7行代码使用For Each...Next语句在单元格区域B1:E20中循环。
3）第8行代码使用Like运算符在单元格区域B1:E20中搜索含有“a”字符的单元格。
4）第9行代码将找到的匹配单元格的值写入到A列中。
在上一讲和本讲中，先后讲解了Find,FindNext,FindPrevious三个方法的利用，这在VBA中利用的非常广泛，尤其是Find和FindNex方法，是解决查找问题的通用的终结方法，比Excel中的LookUp方法要灵活的多，也简单的多，还希望大家在工作中真正的掌握这些方法。
今日内容回向：
1 FIND,FINDNEXT,FINDPrevious有什么不同？
2 LIKE运算是如何进行比较的。
本讲内容参考程序文件：VBA代码解决方案（1-19）.xlsm
我20多年的VBA实践经验，全部浓缩在下面的各个教程中：
