在列表中查找值的第一个实例

Question

此代码：

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

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

感谢您的帮助。

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

这将找到第一次出现。

Answer 2

你只能使用＆＃34; RPName_rng = Cells.Find（What：= RPName）＆＃34;部分。搜索从搜索范围中的第一个单元格开始（＆＃34;单元格＆＃34;在您的情况下，意味着＆＃34;无处不在＆＃34;）。您需要做的就是 首先检查＆＃34; Cells（1）= RPName＆＃34;如果它在第一个单元格 。