Excel的Find方法

 Find   方法  
  参阅应用于示例特性应用于   WorksheetFunction   对象的   Find   方法。  
   
  在工作表中查找特定信息。  
   
  expression.Find(Arg1,   Arg2,   Arg3)  
  expression             必需。该表达式返回一个   WorksheetFunction   对象。  
   
  Arg1             String   类型，必需。工作表名称。  
   
  Arg2             String   类型，必需。单元格区域名称。  
   
  Arg3             Variant   类型，可选。精确限制查询的参数名称。  
   
  应用于   Range   对象的   Find   方法。  
   
  在区域中查找特定信息，并返回   Range   对象，该对象代表用于查找信息的第一个单元格。如果未发现匹配单元格，就返回   Nothing。本方法不影响选定区域或活动单元格。  
   
  有关在   Visual   Basic   中使用   Find   工作表函数的详细信息，请参阅在   Visual   Basic   中使用工作表函数。  
   
  expression.Find(What,   After,   LookIn,   LookAt,   SearchOrder,   SearchDirection,   MatchCase,   MatchByte,   SerchFormat)  
  expression             必需。该表达式返回一个   Range   对象。  
   
  What             Variant   类型，必需。要搜索的 数据 。可为字符串或任意   Microsoft   Excel   数据类型。  
   
  After             Variant   类型，可选。表示搜索过程将从其之后开始进行的单元格。此单元格对应于从用户界面搜索时的活动单元格位置。值得注意的是，After   必须是区域中的单个单元格。请记住搜索是从该单元格之后       开始的；直到本方法绕回到指定的单元格时，才对其进行搜索。如果未指定本参数，搜索将从区域的左上角单元格之后开始。  
   
  LookIn             Variant   类型，可选。信息类型。  
   
  LookAt             Variant   类型，可选。可为以下   XlLookAt   常量之一：xlWhole   或   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