相关知识点：
Range.Find 方法，在该Range类对象代表的单元格区域中，搜索含有指定内容的单元格。Find只返回第一个找到的结果，例找374这个数字：Range(“B2，G14”).Find(374)，返回Range（”C4”）
Range.Find(What,After,LookIn,Lookat,SearchOrder,SeachDirection,MatchCase,MatchByte,SeachFormat)
个参数：What 必填,后面8个参数，定义为可选参数（提高18回）。
What：含义，需要查找的内容；特点，为变体类型，可以接受数字、字符串、日期等各种VBA数据类型,支持通配符（正则表达式，？*-），从而实现模糊查找。（25），（”熊猫”），（#3/18/2019#）
例1 找出“熊猫”单元格(基础方法)
Sub findnum()
Found:
End Sub
例2 找熊猫优化例1，用二维数组（提高篇14回）
Sub findnum1()
arr()=range((1,1),(100000,50))
Found:
End Sub
例3 找熊猫优化例2，用Fiund（）函数，代码简单，如果没有熊猫，就会出错（Nothing）
Sub findnum()
Dim d as date, r as range
如果r不是Nothing，即r is Nothing Ϊ False，则Not r is Nothing
‘ΪTrue，进入分枝
r.interior.color=vbred
Else
没找到”
End Sub
文章来源: https://blog.csdn.net/lei_686/article/details/92376918