本示例在单元格区域 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 "找到了下一个"