Excel 为什么要使用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方法的技术。

我们能够使用Find方法查找单元格区域的数据，但是没有一个方法能够返回一个Range对象，该对象引用了含有所查找数据的所有单元格，下面提供了一个FindAll函数来实现此功能。此外，Find方法的另一个不足之处是不支持通配符字符串，引用了与所提供的通配符字符串相匹配的单元格。

FindAll函数

这个程序在参数SearchRange所代表的区域中查找所有含有参数FindWhat代表的值的单元格，SearchRange参数必须是一个单独的单元格区域对象，FindWhat参数是想要查找的值，其它参数是可选的且与Find方法的参数意思相同。

FindAll函数的代码如下：

Option Compare 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

返回SearchRange区域中含有FindWhat所代表的值的所有单元格组成的Range对象

' 其参数与Find方法的参数相同

' 如果没有找到单元格,将返回Nothing.

Dim FoundCell As Range

Dim FoundCells As Range

Dim LastCell As Range

Dim FirstAddr As String

With SearchRange

Set LastCell = .Cells(.Cells.Count)

End With

Set FoundCell = SearchRange.Find(what:=FindWhat, after:=LastCell, _

LookIn:=LookIn, LookAt:=LookAt, SearchOrder:=SearchOrder, MatchCase:=MatchCase)

If Not FoundCell Is Nothing Then

Set FoundCells = FoundCell

FirstAddr = FoundCell.Address

Do

Set FoundCells = Application.Union(FoundCells, FoundCell)

Set FoundCell = SearchRange.FindNext(after:=FoundCell)

Loop Until (FoundCell Is Nothing) Or (FoundCell.Address = FirstAddr)

End If

If FoundCells Is Nothing Then

Set FindAll = Nothing

Else

Set FindAll = FoundCells

End If

End Function

使用上面代码的示例：

Sub TestFindAll()

Dim SearchRange As Range

Dim FoundCells As Range

Dim FoundCell As Range

Dim FindWhat As Variant

Dim MatchCase As Boolean

Dim LookIn As XlFindLookIn

Dim LookAt As XlLookAt

Dim SearchOrder As XlSearchOrder

Set SearchRange = ThisWorkbook.Worksheets(1).Range("A1:L20")

FindWhat = "A" '要查找的文本,可根据实际情况自定

LookIn = xlValues

LookAt = xlPart

SearchOrder = xlByRows

MatchCase = False

Set FoundCells = FindAll(SearchRange:=SearchRange, FindWhat:=FindWhat, _

LookIn:=LookIn, LookAt:=LookAt, SearchOrder:=SearchOrder, MatchCase:=MatchCase)

If FoundCells Is Nothing Then

Debug.Print "没有找到!"

Else

For Each FoundCell In FoundCells.Cells

Debug.Print FoundCell.Address, FoundCell.Text

Next FoundCell

End If

End Sub

上面的代码中，列出了查找区域中含有所要查找的数据的所有单元格的地址以及相应文本。不仅可以找出所有含有所查找数据的单元格地址，而且也可以对这些单元格进行一系列操作，如格式化、更改数据等。

小伙伴，大家一起学习Excel VBA知识，一起进步。同时欢迎大家帮忙转发并关注，谢谢大家的支持！