VBA技巧5查找单元格.docVIP

技巧1 查找单元格1-1 使用Find方法在Excel中使用查找对话框可以查找工作表中特定内容的单元格，而在VBA中则使用Find方法，如下面的代码所示。#001SubRngFind()#002DimStrFindAsString#003DimRngAsRange#004StrFind=InputBox(请输入要查找的值:)#005IfTrim(StrFind)Then#006WithSheet1.Range(A:A)#007SetRng=.Find(What:=StrFind,_#008After:=.Cells(.Cells.Count),_#009LookIn:=xlValues,_#010LookAt:=xlWhole,_#011SearchOrder:=xlByRows,_#012SearchDirection:=xlNext,_#013MatchCase:=False)#014IfNotRngIsNothingThen#015Application.GotoRng,True#016Else#017MsgBox没有找到该单元格!#018EndIf#019EndWith#020EndIf#021EndSub代码解析：RngFind过程使用Find方法在工作表Sheet1的A列中查找InputBox函数对话框中所输入的值，并查找该值所在的第一个单元格。第6到第13行代码在工作表Sheet1的A列中查找InputBox函数对话框中所输入的值。应用于Range对象的Find方法在区域中查找特定信息，并返回Range对象，该对象代表用于查找信息的第一个单元格。如果未发现匹配单元格，就返回Nothing，语法如下：expression.Find(What,After,LookIn,LookAt,SearchOrder,SearchDirection,MatchCase,MatchByte,SerchFormat)参数expression是必需的，该表达式返回一个Range对象。参数What是必需的，要有哪些信誉好的足球投注网站的数据，可为字符串或任意数据类型。参数After是可选的，表示有哪些信誉好的足球投注网站过程将从其之后开始进行的单元格，必须是区域中的单个单元格。查找时是从该单元格之后开始的，直到本方法绕回到指定的单元格时，才对其进行有哪些信誉好的足球投注网站。如果未指定本参数，有哪些信誉好的足球投注网站将从区域的左上角单元格之后开始。在本例中将After参数设置为A列的最后一个单元格，所以查找时从A1单元格开始有哪些信誉好的足球投注网站。参数LookIn是可选的，信息类型。参数LookAt是可选的，可为XlLookAt常量的xlWhole或xlPart之一。参数SearchOrder是可选的，可为XlSearchOrder常量的xlByRows或xlByColumns之一。参数SearchDirection是可选的，有哪些信誉好的足球投注网站的方向，可为XlSearchDirection常量的xlNext或xlPrevious之一。参数MatchCase是可选的，若为True，则进行区分大小写的查找。默认值为False。参数MatchByte是可选的，仅在选择或安装了双字节语言支持时使用。若为True，则双字节字符仅匹配双字节字符。若为False，则双字节字符可匹配其等价的单字节字符。参数SerchFormat是可选的，有哪些信誉好的足球投注网站的格式。每次使用Find方法后，参数LookIn、LookAt、SearchOrder和MatchByte的设置将保存。如果下次调用Find方法时不指定这些参数的值，就使用保存的值。因此每次使用该方法时请明确设置这些参数。如果工作表的A列中存在重复的数值，那么需要使用FindNext方法或FindPrevious方法进行重复有哪些信誉好的足球投注网站，如下面的代码所示。#001SubRngFindNext()#002DimStrFindAsString#003DimRngAsRange#004DimFindAddressAsString#005StrFind=InputBox(请输入要查找的值:)#006IfTrim(StrFind)Then#007WithSheet1.Range(A:A)#008SetRng=.Find(What:=StrFind,_#009After:=.Cells(.Cells.Count),_#010LookIn:=xlValues,_#011LookAt:=xlWhole,_#012SearchOrder:=xlByRows,_#013SearchDirection:=xlNext,_#014MatchCase:=False)#015IfNotRngIsNothingThen#016FindAddress=Rng.Address#017Do#018Rng.Interior.ColorIndex=6#019SetRng=.Fi