在列表中find第一个值

此代码：

RPName_rng = Cells.Find(What:=RPName, SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious).Row 

给我一个列表中的值的最后一个实例。 它运作良好。 我需要find该值的第一个实例，而不是最后一个，然后将其用作要命名的范围的左上angular的锚点。

谢谢你的帮助。

Answer 1

试试这个：

 Option Explicit Sub dural() Dim RPName As String, RPName_rng As Long RPName = "happiness" RPName_rng = Cells.Find(What:=RPName, After:=Cells(1, 1), _ SearchOrder:=xlByRows).Row MsgBox RPName_rng End Sub 

这会find第一个发生。

Answer 2

你可以使用“RPName_rng = Cells.Find（What：= RPName）”部分。 search从search范围中的第一个单元格（您的案例中的“单元格”，意思是“无处不在”）开始。 所有你需要做的就是首先检查“Cells（1）= RPName”是否在第一个单元格中 。