语法：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:E1000").FindPrevious(rng) If rng.Address = fristmyfind Then bcontinue = False Loop End With End Sub上述代码和上一讲的代码比较类似不再过多的讲解了。
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 WithEnd 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和FINDNEXT方法，是解决查找问题的通用的终结方法，比EXCEL重的LOOKUP方法要灵活的多，也简单的多，还希望大家在工作中真正的掌握这些方法。
