十宗罪人物原型:使用Find方法查找单元格

来源：百度文库编辑：中财网时间：2024/05/03 05:45:10

在Excel中使用查找对话框可以查找工作表中特定内容的单元格，而在VBA中则使用Find方法，如下面的代码所示。 复制内容到剪贴板

代码:

#001  Sub RngFind()
#002      Dim StrFind As String
#003      Dim Rng As Range
#004      StrFind = InputBox("请输入要查找的值:")
#005      If Trim(StrFind) <> "" Then
#006          With Sheet1.Range("A:A")
#007              Set Rng = .Find(What:=StrFind, _
#008                              After:=.Cells(.Cells.Count), _
#009                              LookIn:=xlValues, _
#010                              LookAt:=xlWhole, _
#011                              SearchOrder:=xlByRows, _
#012                              SearchDirection:=xlNext, _
#013                              MatchCase:=False)
#014              If Not Rng Is Nothing Then
#015                  Application.Goto Rng, True
#016              Else
#017                  MsgBox "没有找到该单元格!"
#018              End If
#019          End With
#020      End If
#021  End Sub

代码解析：
   RngFind过程使用Find方法在工作表Sheet1的A列中查找InputBox函数对话框中所输入的值，并查找该值所在的第一个单元格。
   第6到第13行代码在工作表Sheet1的A列中查找InputBox函数对话框中所输入的值。应用于Range对象的Find方法在区域中查找特定信息，并返回Range对象，该对象代表用于查找信息的第一个单元格。如果未发现匹配单元格，就返回Nothing，语法如下：
expression_r_r.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SerchFormat)
   参数expression_r_r是必需的，该表达式返回一个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方法进行重复搜索，如下面的代码所示。 复制内容到剪贴板

代码:

#001  Sub RngFindNext()
#002      Dim StrFind As String
#003      Dim Rng As Range
#004      Dim FindAddress As String
#005      StrFind = InputBox("请输入要查找的值:")
#006      If Trim(StrFind) <> "" Then
#007          With Sheet1.Range("A:A")
#008              Set Rng = .Find(What:=StrFind, _
#009                              After:=.Cells(.Cells.Count), _
#010                              LookIn:=xlValues, _
#011                              LookAt:=xlWhole, _
#012                              SearchOrder:=xlByRows, _
#013                              SearchDirection:=xlNext, _
#014                              MatchCase:=False)
#015              If Not Rng Is Nothing Then
#016                  FindAddress = Rng.Address
#017                  Do
#018                      Rng.Interior.ColorIndex = 6
#019                      Set Rng = .FindNext(Rng)
#020                  Loop While Not Rng Is Nothing And Rng.Address <> FindAddress
#021              End If
#022          End With
#023      End If
#024  End Sub

代码解析：
   RngFindNext过程在工作表Sheet1的A列中查找InputBox函数对话框中所输入的值，并将查到单元格底色设置成黄色。
   第8行到第17行代码使用Find方法在工作表Sheet1的A列中查找。
   第16行代码将查找到的第一个单元格地址赋给字符串变量FindAddress。
   第18行代码将查找到的单元格底色设置成黄色。
   第19行代码使用FindNext方法进行重复搜索。FindNext方法继续执行用Find方法启动的搜索。查找下一个匹配相同条件的单元格并返回代表单元格的Range对象，语法如下：
expression_r_r.FindNext(After)
   参数expression_r_r是必需的，返回一个Range对象。
   参数After是可选的，指定一个单元格，查找将从该单元格之后开始。
   第20行代码如果查找到的单元格地址等于字符串变量FindAddress所记录的地址，说明A列已搜索完毕，结束查找过程。
   运行RngFindNext过程，在InputBox函数输入框中输入“196.01”后结果如所示。

还可以使用FindPrevious方法进行重复搜索，FindPrevious方法的语法如下：
expression_r_r.FindPrevious(After)
FindPrevious方法和FindNext方法唯一的区别是FindPrevious方法查找匹配相同条件的前一个单元格而FindNext方法是查找匹配相同条件的下一个单元格。

使用Like运算符

使用Like运算符可以进行更为复杂的模式匹配查找，如下面的代码所示。

#001  Sub RngLike()#002      Dim rng As Range#003      Dim a As Integer#004      a = 1#005      With Sheet2#006          .Range("A:A").ClearContents#007          For Each rng In .Range("B1:E1000")#008              If rng.Text Like "*a*" Then#009                  .Range("A" & a) = rng.Text#010                  a = a + 1#011              End If#012          Next#013      End With#014  End Sub

RngLike过程使用For Each...Next语句和Like运算符在单元格区域B1:E10000中搜索含有“a”字符的单元格，找到匹配单元格以后将单元格的值写入到A列中。运行RngLike过程结果如图6所示。

第6行代码使用ClearContents方法清除A列区域的数据。第7行代码使用For Each...Next语句在单元格区域B1:E10000中循环。第8行代码使用Like运算符在单元格区域B1:E10000中搜索含有“a”字符的单元格。

Like运算符用来比较两个字符串，语法如下：result = string Like pattern

参数string是必需的，字符串表达式。参数pattern是必需的，字符串表达式。如果string与pattern匹配，则result为True；如果不匹配，则result为False。但是如果string或pattern 中有一个为Null，则result 为 Null。

参数pattern可以使用通配符、字符串列表或字符区间的任何组合来匹配字符串。下表列出了pattern中允许的字符以及它们与什么进行匹配。

pattern中的字符符合string中的字符任何单一字符 * 零个或多个字符 # 任何一个数字 (0–9) [charlist] charlist中的任何单一字符 [!charlist] 不在charlist中的任何单一字符

第9行代码将找到的匹配单元格的值写入到A列中。

Excel 使用中，拆分单元格的方法是什么？怎样查找电子表格中有链接的单元格。谢谢！怎样查找Excel表格中有链接的单元格？ EXCEL中如何快速查找单元格中的中文字符？ EXCEL如何在多个表中查找具有相同值的单元格查找安装视频方法错账查找方法查找木马的方法？在excel中如何全部查找间断的单元格数据并复制到另一单元格 excel2003合并单元格有几种方法是什么 EXECL 单元格中可以使用回车键吗? 一般信息的查找方法查找手机用户详细资料的方法什么方法去查找资料局域网MC地址查找方法? 查找QQ在线的方法我想想用find命令查找15天以后30天以前的文件怎么写？如何使用进程查找原文件? ICMP查找是什么？？怎样使用？怎样使用IP查找器如何使用命令提示符查找 IE查找不能使用了～～～～怎样在IE地址栏中使用find 语句搜索网页？在Excel里,如何在“查找”的同时修改单元格内容