在VBA中使用Find方法.doc

在 VBA 中使用 Find 方法使用 VBA 在工作表或单元格区域中查找某项数据时,我们通常使用 For … Next 循环,这在小范围中使用还可以,但应用在大量数据中查找时,会耗费较多时间。而在 Excel 工作表中, 通常使用菜单“编辑>> 查找”命令或按 Ctrl+F 组合键,在“查找和替换”对话框中来迅速查找所需的数据。在 VBA 中,我们也能使用这种方法,这在下面的内容中介绍。为什么要使用 Find 方法呢?最主要的原因是查找的速度。如果要使用 VBA 代码在包含大量数据的单元格区域中查找某项数据,应该使用 Find 方法。例如,在工作表 Sheet1 的单元格 IV65536 中输入 fanjy ,然后运行下面的代码: Sub QuickSearch() If Not ("fanjy") Is Nothing Then MsgBox "已找到 fanjy!" End Sub 再试试下面的代码: Sub SlowSearch() Dim R As Range For Each R In If = "fanjy" Then MsgBox "已找到 fanjy!" Next R End Sub 比较一下两段代码的速度,可知第一段代码运行很快,而第二段代码却要执行相当长的一段时间。关于 Find 方法的基本使用方法请见《关于查找方法(Find 方法)的应用》。下面介绍一些扩展 Find 方法的技术。我们能够使用 Find 方法查找单元格区域的数据, 但是没有一个方法能够返回一个 Range 对象,该对象引用了含有所查找数据的所有单元格,下面提供了一个 FindAll 函数来实现此功能。此外, Find 方法的另一个不足之处是不支持通配符字符串,下面也提供了一个 WildCardMatchCells 函数,返回一个 Rang e 对象, 引用了与所提供的通配符字符串相匹配的单元格。通配符字符串可以是有效使用在 Like 运算符中的任何字符串,关于 Like 运算符的介绍请见《关于 Like 运算符的使用》一文。--------------------- FindAll 函数这个程序在参数 SearchRange 所代表的区域中查找所有含有参数 FindWhat 代表的值的单元格, SearchRange 参数必须是一个单独的单元格区域对象, FindWhat 参数是想要查找的值,其它参数是可选的且与 Find 方法的参数意思相同。 FindAll 函数的代码如下: pare Text Function FindAll(SearchRange As Range, FindWhat As Variant, _ Optional LookIn As XlFindLookIn = xlValues, Optional LookAt As XlLookAt = xlWhole, _ Optional SearchOrder As XlSearchOrder = xlByRows, _ Optional MatchCase As Boolean = False) As Range ''''''''''''''''''''''''''''''''''''''''''''''''''''