VBA代码解决方案第8讲：用FindPrevious进行重复搜索及利用LIKE查找

《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实践经验，全部浓缩在下面的各个教程中：