1、Find 方法

在区域中查找特定信息，并返回 Range 对象，该对象代表用于查找信息的第一个单元格。如果未发现匹配单元格，就返回 Nothing。本方法不影响选定区域或活动单元格。

语法

expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SerchFormat)

参数

expression 必需。该表达式返回一个 Range 对象。

What Variant 类型，必需。要搜索的数据。可为字符串或任意 Microsoft Excel 数据类型。

After Variant 类型，可选。表示搜索过程将从其之后开始进行的单元格。此单元格对应于从用户界面搜索时的活动单元格位置。值得注意的是，After 必须是区域中的单个单元格。请记住搜索是从该单元格之后开始的；直到本方法绕回到指定的单元格时，才对其进行搜索。如果未指定本参数，搜索将从区域的左上角单元格之后开始。

LookIn Variant类型，可选。指定查找的范围类型，可以为以下常量之一：xlValues、xlFormulas或者xlComments，默认值为xlFormulas。对应于“查找与替换”对话框中，“查找范围”下拉框中的选项。

LookAt Variant 类型，可选。可以为以下常量之一：XlWhole或者xlPart，用来指定所查找的数据是与单元格内容完全匹配还是部分匹配，默认值为xlPart。对应于“查找与替换”对话框中，“单元格匹配”复选框。

SearchOrder Variant 类型，可选。可为以下 XlSearchOrder 常量之一：xlByRows 或 xlByColumns。

SearchDirection XlSearchDirection 类型，可选。搜索的方向。

XlSearchDirection 可为以下 XlSearchDirection 常量之一。
xlNext 默认值 ，向前查找
xlPrevious 向后查找

MatchCase Variant 类型，可选。若为 True，则进行区分大小写的查找。默认值为 False。

MatchByte Variant 类型，可选。区分全角半角查找，仅在选择或安装了双字节语言支持时使用。若为 True，则双字节字符仅匹配双字节字符。若为 False，则双字节字符可匹配其等价的单字节字符。

SearchFormat Variant 类型，可选。搜索的格式。

说明

每次使用本方法后，参数 LookIn、LookAt、SearchOrder 和 MatchByte 的设置将保存。如果下次调用本方法时不指定这些参数的值，就使用保存的值。设置这些参数将更改“查找和替换”对话框中的设置，如果您忽略参数，更改“查找和替换”对话框中的设置将更改使用的保存值。若要避免这种问题的出现，每次使用该方法时请明确设置这些参数。

可以使用 FindNext 和 FindPrevious 方法重复搜索。

当搜索到指定的搜索区域的末尾时，本方法将绕回到区域的开始继续搜索。发生绕转后，若要停止搜索，请保存第一个找到的单元格地址，然后依据该保存地址测试每个后续查找到的单元格地址。

若要进行更为复杂的模式匹配查找，请用 For Each...Next 语句和 Like 运算符。例如，下列代码在单元格区域 A1:C5 中搜索字体名称以“Cour”开始的单元格。当 Microsoft Excel 找到匹配单元格以后，就将其字体改为“Times New Roman”。

For Each c In [A1:C5]
    If c.Font.Name Like "Cour*" Then
        c.Font.Name = "Times New Roman"
    End If
Next

示例

本示例在工作表的单元格区域 A1:A500 中查找包含值 2 的所有单元格，并将这些单元格的值更改为 5。

With Worksheets(1).Range("a1:a500")
    Set c = .Find(2, lookin:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Value = 5
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

2、FindNext 方法

继续执行Find方法启动的搜索。查找下一个匹配相同条件的单元格并返回代表单元格的Range对象。

语法

expression.FindNext(After)

参数

expression 必需。该表达式返回一个Range对象。
After Variant类型，可选。指定一个单元格，查找将从该单元格之后开始。与Find方法的After一样。

说明

当查找到指定查找区域的末尾时，本方法将环绕至区域的开始继续搜索。发生环绕后，为停止查找，可保存第一次找到的单元格地址，然后测试下一个查找到的单元格地址是否与其相同。

示例

本示例在单元格区域 A1:A500 中查找值为 2 的单元格，并将这些单元格的值变为 5。

With Worksheets(1).Range("a1:a500")
    Set c = .Find(2, lookin:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Value = 5
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

3、FindPrevious 方法

继续执行用 Find 方法启动的搜索。查找匹配相同条件的前一个单元格并返回代表单元格的 Range 对象。不影响选定区域或当前单元格。

语法

expression.FindPrevious(After)

参数

expression 必需。该表达式返回一个 Range 对象。

After Variant 类型，可选。指定一个单元格，查找将从该单元格之前开始。此单元格相应于从用户界面查找时的活动单元格位置。注意，After 必须是查找区域中的单个单元格。请记住查找是从该单元格之前开始的；直到本方法环绕到此单元格时，才检测其内容。如果未指定本参数，查找将从区域的左上角单元格之前开始。

说明

当查找到指定查找区域的起始位置时，本方法将环绕至区域的末尾继续搜索。发生环绕后，为停止查找，可保存第一次找到的单元格地址，然后测试下一个查找到的单元格地址是否与其相同。

示例

本示例演示 FindPrevious 方法如何与 Find 方法和 FindNext 方法共用。运行本示例之前，请确保 Sheet1 的 B 列中至少出现过两次“Phoenix”。

Set fc = Worksheets("Sheet1").Columns("B").Find(what:="Phoenix")
    MsgBox "The first occurrence is in cell " & fc.Address
Set fc = Worksheets("Sheet1").Columns("B").FindNext(after:=fc)
    MsgBox "The next occurrence is in cell " & fc.Address
Set fc = Worksheets("Sheet1").Columns("B").FindPrevious(after:=fc)
    MsgBox "The previous occurrence is in cell " & fc.Address