相关知识点：

Application.FindFormat属性：用于指定后面Find等方法中需要查找的格式,与Range的方法一致

                     Application.FindFormat.Font.Bold=True

Range.Find(What,After,LookIn,Lookat,SearchOrder,SeachDirection,MatchCase,MatchByte,SeachFormat)

           9个参数：What 必填,后面8个参数，定义为可选参数（提高18回）。

What：含义，需要查找的内容；特点，为变体类型，可以接受数字、字符串、日期等各种VBA数据类型,支持通配符（正则表达式，？*-），从而实现模糊查找。（25），（”熊猫”），（#3/18/2019#）

MatchCase：含义，匹配大小写；取值，True代表大小写不同；False，代表大小写相同

LookAt：   含义，匹配单元格；取值，单元格的内容必须与欲查找内容长度相同，不能多出字符；False，单元格中的内容只需包含欲查找的字符串即可。1或xlwhole，完全匹配；2或xlpart，包含即可

LookIn：     含义，查找范围；取值，xlValues在单元格内容（值）中查找；xlFormulas在公式（或值）中查找；xlcomments在单元格批注中查找。Xlvalues和xlformulas查找相互重叠。

Searchformat：   含义，按格式查找；取值，True，查找结果须符合指定格式；False，查找结果可以是任意格式。

例1 大小写查找

Sub matchcasedemo()

       Dim r as range

       Set r=cells.find(“abc”,MatchCase:=True)

       If Not r Is Nothing Then

              Msgbox r.address  ‘返回单元格地址“$D$3”,匹配“abc”，不匹配“aBC”

       End If

End Sub

例2 匹配单元格

Sub lookatdemo()

       Dim r as range

       Set r=cells.find(“b”, MatchCase:=True ,lookat:=1)  ‘区分大小写，

‘1或xlwhole，精确匹配；2或xlpart，包含即可

       If Not r Is Nothing Then

              r.Interior.Color=vbred  ‘长度完全相同

       End If

End Sub

例3 查找范围

Sub lookIndemo()

       Dim r as range

       Set r=cells.find(“熊猫”, lookin:=xlvalues)  ‘在单元格内容中查找

       If Not r Is Nothing Then

              r.Interior.Color=vbred  ‘长度完全相同

       End If

End Sub

例4 特定格式查找

Sub formatdemo()

       Dim r as range

Application.FindFormat.Interior.Color=vbblack

Application.FindFormat.Font.Color=vbwhite   ‘特定格式

       Set r=cells.find(“熊猫”,searchformat:=True)

       If Not r Is Nothing Then

              Msgbox r.address  ‘返回单元格地址“$D$3”,匹配“abc”，不匹配“aBC”

       End If

End Sub

例5 特定格式查找（简化代码With    End with）

Sub formatdemo()

       Dim r as range

With Application.FindFormat

.Interior.Color=vbblack

.Font.Color=vbwhite   ‘特定格式

       End  With

       Set r=cells.find(“熊猫”,searchformat:=True)

       If Not r Is Nothing Then

              Msgbox r.address  ‘返回单元格地址“$D$3”,匹配“abc”，不匹配“aBC”

       End If

End Sub