在VBA中使用Find方法.docVIP

在VBA中使用Find方法 使用VBA在工作表或单元格区域中查找某项数据时，我们通常使用For…Next循环，这在小范围中使用还可以，但应用在大量数据中查找时，会耗费较多时间。 而在Excel工作表中，通常使用菜单“编辑查找”命令或按Ctrl+F组合键，在“查找和替换”对话框中来迅速查找所需的数据。在VBA中，我们也能使用这种方法，这在下面的内容中介绍。 为什么要使用Find方法呢？最主要的原因是查找的速度。如果要使用VBA代码在包含大量数据的单元格区域中查找某项数据，应该使用Find方法。 例如，在工作表Sheet1的单元格IV65536中输入fanjy，然后运行下面的代码： Sub QuickSearch() ??? If Not Sheet1.Cells.Find(fanjy) Is Nothing Then MsgBox 已找到fanjy! End Sub 再试试下面的代码： Sub SlowSearch() ??? Dim R As Range ??? For Each R In Sheet1.Cells ??????? If R.Value = fanjy Then MsgBox 已找到fanjy! ??? Next R End Sub 比较一下两段代码的速度，可知第一段代码运行很快，而第二段代码却要执行相当长的一段时间。 关于Find方法的基本使用方法请见《关于查