《Find方法.docx》由会员分享，可在线阅读，更多相关《Find方法.docx（3页珍藏版）》请在三一文库上搜索。
1、Find方法应用于 WorksheetFunction 对象的Find 方法。在工作表中查找特定信息。expression.Find(Arg1, Arg2, Arg3)expression 必需。该表达式返回一个 WorksheetFunction对象。Arg1 String类型，必需。工作表名称。Arg2 String类型，必需。单元格区域名称。Arg3 Variant 类型，可选。精确限制查询的参数名称。应用于Range对象的Find方法。在区域中查找特定信息，并返回Range对象，该对象代表用于查找信息的第一个单元格。如果未发现匹配单元格，就返回Nothing。本方法不影响选定区域或 活
2、动单元格。有关在Visual Basic 中使用Find工作表函数的详细信息，请参阅 在Visual Basic 中使用工作表函数。expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SerchFormat)expression 必需。该表达式返回一个 Range对象。What Variant 类型，必需。要搜索的数据。可为字符串或任意MicrosoftExcel数据类型。After Variant 类型，可选。表示搜索过程将从其之后开始进行的单元格。此
3、单元格对应于从用户界面搜索时的活动单元格位置。值得注意的是，After必须是区域中的单个单元格。请记住搜索是从该单元格之后开始的；直到本方法绕回到指定的单元格时，才对其进行搜索。如果未指定本参数，搜索将从区域的左上 角单元格之后开始。LookIn Variant 类型，可选。信息类型。LookAt Variant 类型，可选。可为以下 XlLookAt常量之一：xlWhole或 xlPart 。SearchOrder Variant 类型，可选。可为以下 XlSearchOrder 常量之一: xlByRows 或 xlByColumns。SearchDirection XlSearchDir
4、ection 类型，可选。搜索的方向。XlSearchDirection 可为以下 XlSearchDirection常量之一。xlNext 默认值xlPreviousMatchCase Variant 类型，可选。若为 True ,则进行区分大小写的查找。默 认值为False 。MatchByte Variant 类型，可选。仅在选择或安装了双字节语言支持时使用。若为True ,则双字节字符仅匹配双字节字符。若为 False ,则双字节字符可匹 配其等价的单字节字符。SearchFormat Variant 类型，可选。搜索的格式。说明每次使用本方法后，参数LookIn、LookAt、Sea
5、rchOrder和MatchByte 的设置 将保存。如果下次调用本方法时不指定这些参数的值， 就使用保存的值。设置这 些参数将更改“查找和替换”对话框中的设置， 如果您忽略参数，更改“查找和 替换”对话框中的设置将更改使用的保存值。 若要避免这种问题的出现，每次使 用该方法时请明确设置这些参数。可以使用FindNext和FindPrevious方法重复搜索。当搜索到指定的搜索区域的末尾时， 本方法将绕回到区域的开始继续搜索。 发生 绕转后，若要停止搜索，请保存第一个找到的单元格地址， 然后依据该保存地址 测试每个后续查找到的单元格地址。若要进行更为复杂的模式匹配查找，请用For EachNe
6、xt语句和Like 运算符。例如，下列代码在单元格区域 A1:C5中搜索字体名称以“ Cour”开始的单 元格。当Microsoft Excel找到匹配单元格以后，就将其字体改为“ Times New Roman。For Each c In A1:C5If c.Font.Name Like Cour* Then c.Font.Name = Times New RomanEnd IfNextExcel VBA教程：Find方法示例本示例在工作表的单元格区域 A1:A500中查找包含值2的所有单元格，并将这 些单元格的值更改为5。With Worksheets(1).Range(a1:a500)Set c = .Find(2, lookin:=xlValues)If Not c Is Nothing ThenfirstAddress = c.AddressDoc.Value = 5Set c = .FindNext(c)Loop While Not c Is Nothing And c.Address firstAddressEnd IfEnd With