《Excel VBA实例教程 查找单元格.docx》由会员分享，可在线阅读，更多相关《Excel VBA实例教程 查找单元格.docx（6页珍藏版）》请在三一办公上搜索。
1、Excel VBA实例教程 查找单元格Excel VBA实例教程 查找单元格 1、使用Find方法 在Excel中使用查找对话框可以查找工作表中特定内容的单元格，而在VBA中则使用Find方法，如下面的代码所示。 01.Sub RngFind 02. Dim StrFind As String 03. Dim Rng As Range 04. StrFind = InputBox(请输入要查找的值:) 05. If Trim(StrFind) Then 06. With Sheet1.Range(A:A) 07. Set Rng = .Find(What:=StrFind, _ 08. Aft
2、er:=.Cells(.Cells.Count), _ 09. LookIn:=xlValues, _ 10. LookAt:=xlWhole, _ 11. SearchOrder:=xlByRows, _ 12. SearchDirection:=xlNext, _ 13. MatchCase:=False) 14. If Not Rng Is Nothing Then 15. Application.Goto Rng, True 16. Else 17. MsgBox 没有找到该单元格! 18. End If 19. End With 20. End If 21.End Sub 代码解析：
3、 RngFind过程使用Find方法在工作表Sheet1的A列中查找InputBox函数对话框中所输入的值，并查找该值所在的第一个单元格。 第6到第13行代码在工作表Sheet1的A列中查找InputBox函数对话框中所输入的值。应用于Range对象的Find方法在区域中查找特定信息，并返回Range对象，该对象代表用于查找信息的第一个单元格。如果未发现匹配单元格，就返回Nothing，语法如下： 01.expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte,
4、 SerchFormat) 复制代码参数expression是必需的，该表达式返回一个Range对象。 参数What是必需的，要搜索的数据，可为字符串或任意数据类型。 参数After是可选的，表示搜索过程将从其之后开始进行的单元格，必须是区域中的单个单元格。查找时是从该单元格之后开始的，直到本方法绕回到指定的单元格时，才对其进行搜索。如果未指定本参数，搜索将从区域的左上角单元格之后开始。 在本例中将After参数设置为A列的最后一个单元格，所以查找时从A1单元格开始搜索。 参数LookIn是可选的，信息类型。 参数LookAt是可选的，可为XlLookAt常量的xlWhole 或xlPart之
5、一。 参数SearchOrder是可选的，可为XlSearchOrder常量的xlByRows或xlByColumns之一。 参数SearchDirection是可选的，搜索的方向，可为XlSearchDirection常量的xlNext或xlPrevious之一。 参数MatchCase是可选的，若为True，则进行区分大小写的查找。默认值为False。 参数MatchByte是可选的，仅在选择或安装了双字节语言支持时使用。若为True，则双字节字符仅匹配双字节字符。若为False，则双字节字符可匹配其等价的单字节字符。 参数SerchFormat是可选的，搜索的格式。 每次使用Find方法
6、后，参数LookIn、LookAt、SearchOrder 和MatchByte的设置将保存。如果下次调用Find方法时不指定这些参数的值，就使用保存的值。因此每次使用该方法时请明确设置这些参数。 如果工作表的A列中存在重复的数值，那么需要使用FindNext方法或FindPrevious方法进行重复搜索，如下面的代码所示。 01.Sub RngFindNext 02. Dim StrFind As String 03. Dim Rng As Range 04. Dim FindAddress As String 05. StrFind = InputBox(请输入要查找的值:) 06. If
7、 Trim(StrFind) Then 07. With Sheet1.Range(A:A) 08. Set Rng = .Find(What:=StrFind, _ 09. After:=.Cells(.Cells.Count), _ 10. LookIn:=xlValues, _ 11. LookAt:=xlWhole, _ 12. SearchOrder:=xlByRows, _ 13. SearchDirection:=xlNext, _ 14. MatchCase:=False) 15. If Not Rng Is Nothing Then 16. FindAddress = Rng
8、.Address 17. Do 18. Rng.Interior.ColorIndex = 6 19. Set Rng = .FindNext(Rng) 20. Loop While Not Rng Is Nothing And Rng.Address FindAddress 21. End If 22. End With 23. End If 24.End Sub 代码解析： RngFindNext过程在工作表Sheet1的A列中查找InputBox函数对话框中所输入的值，并将查到单元格底色设置成黄色。 第8行到第17行代码使用Find方法在工作表Sheet1的A列中查找。 第16行代码将查
9、找到的第一个单元格地址赋给字符串变量FindAddress。 第18行代码将查找到的单元格底色设置成黄色。 第19行代码使用FindNext方法进行重复搜索。FindNext方法继续执行用Find方法启动的搜索。查找下一个匹配相同条件的单元格并返回代表单元格的Range对象，语法如下： 01.expression.FindNext(After) 复制代码参数expression是必需的，返回一个Range对象。 参数After是可选的，指定一个单元格，查找将从该单元格之后开始。 第20行代码如果查找到的单元格地址等于字符串变量FindAddress所记录的地址，说明A列已搜索完毕，结束查找过程
10、。 运行RngFindNext过程，在InputBox函数输入框中输入“196.01”后结果如图1所示。 还可以使用FindPrevious方法进行重复搜索，FindPrevious方法的语法如下： expression.FindPrevious(After) FindPrevious方法和FindNext方法唯一的区别是FindPrevious方法查找匹配相同条件的前一个单元格而FindNext方法是查找匹配相同条件的下一个单元格。 2、使用Like运算符 使用Like运算符可以进行更为复杂的模式匹配查找，如下面的代码所示。 01.Sub RngLike 02. Dim rng As Ran
11、ge 03. Dim a As Integer 04. a = 1 05. With Sheet2 06. .Range(A:A).ClearContents 07. For Each rng In .Range(B1:E1000) 08. If rng.Text Like *a* Then 09. .Range(A & a) = rng.Text 10. a = a + 1 11. End If 12. Next 13. End With 14.End Sub 代码解析： RngLike过程使用For Each.Next语句和Like运算符在单元格区域B1:E10000中搜索含有“a”字符的
12、单元格，找到匹配单元格以后将单元格的值写入到A列中。 第6行代码使用ClearContents方法清除A列区域的数据。 第7行代码使用For Each.Next语句在单元格区域B1:E10000中循环。 第8行代码使用Like运算符在单元格区域B1:E10000中搜索含有“a”字符的单元格。 Like运算符用来比较两个字符串，语法如下： 01.result = string Like pattern 复制代码参数string是必需的，字符串表达式。 参数pattern是必需的，字符串表达式。 如果string与pattern匹配，则result为True；如果不匹配，则result为False。但是如果string或pattern 中有一个为Null，则result 为 Null。 参数pattern可以使用通配符、字符串列表或字符区间的任何组合来匹配字符串。表格 5 1列出pattern中允许的字符以及它们与什么进行匹配。 pattern中的字符 符合string中的字符 ? 任何单一字符 * 零个或多个字符 # 任何一个数字 (09) charlist charlist中的任何单一字符 !charlist 不在charlist中的任何单一字符 表格1 pattern中的匹配字符串 第9行代码将找到的匹配单元格的值写入到A列中。 运行RngLike过程结果如图2所示。
