本示例在单元格区域 A1:A10中查找第一个数值为2的单元格,并提示用户“找到了”。

Set c=ActiveWorkbook.Worksheets("Sheet1").Range("A1:A10").Find(what:="2")

MsgBox "找到了"