用VBA方法进行查找和替换

大家好，最近有位朋友在做项目的时候，遇到了VBA方法来进行查找和替换的问题。今天来和大家研究研究。VBA方法进行查找和替换涉及到的知识是单元格对象的Find方法和FindNext方法。其中单元格对象的Find方法在小编以前的VBA系列课程中有讲到过，大家可以回顾一下。

点击查看：【单元格对象的Find方法】

下面我们来看一个实例，现在想查找A1:A10单元格区域中的数字3，并在B列输出其所在的单元格的地址：

编写如下代码：

代码主要解析：
   1、FindNext方法对应于“查找与替换”对话框中的“查找下一个”按钮。可以使用该方法继续执行查找，查找下一个与Find方法中所指定条件的数据相匹配的单元格，返回代表该单元格的Range对象。在使用该方法时，不影响选定区域或活动单元格。
2、FindNext方法语法是：单元格区域.FindNext(After)，参数After，可选。代表所指定的单元格，将从该单元格之后开始进行查找。开始时不查找该位置所在的单元格，直到FindNext方法绕回到该单元格时，才对其内容进行查找。所指定的位置必须是单元格区域中的单个单元格，如果未指定本参数，则将从单元格区域的左上角的单元格之后开始进行查找。当查找到指定查找区域的末尾时，本方法将环绕至区域的开始继续查找。发生环绕后，为停止查找，可保存第一次找到的单元格地址，然后测试下一个查找到的单元格地址是否与其相同，作为判断查找退出的条件，以避免出现死循环。

---

下面我们再来看一个实例，数据还是前面实例的数据，现在想查找A1:A10单元格区域中的数字3，并替换为三，编写如下代码：

代码解析：
   本案例由于查找之后就改变了原来的值，所以当再次这个值的时候，就会查找不到，所以用Loop While Not c Is Nothing作为跳出循环的条件。小编希望大家好好想想Excel是怎么查找数据的，有不理解的地方可以在留言区留言，我会一一解答。