find并select一个string

我想在工作表Sheet1find我正在制作的macros的string"P1" 。 我似乎无法find一段时间后如何做到这一点。 任何build议都不起作用。 任何人都知道如何做到这一点？

Answer 1

只需使用Find()函数：

 Dim r As Range Set r = Sheet1.Cells.Find(What:="P1") If Not r Is Nothing Then r.Select MsgBox "First found at " & r.Address End If