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

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

MsgBox "找到了"

Set c=ActiveWorkbook.Worksheets("Sheet1").Range("A1:A10").FindNext(after:=c)

MsgBox "找到了下一个"