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

3  

Give this a try:

尝试一下:

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

This will find the first occurrance.

这将找到第一次出现。

0  

you could use just the "RPName_rng = Cells.Find(What:=RPName)" part. The search goes from the 1st cell in the search range ("cells" in your case, meanning "everywhere"). All you need to do is to first check if the "Cells(1)=RPName" in case it's in the first cell.

你可以只使用“RPName_rng = Cells.Find(What:= RPName)”部分。搜索从搜索范围中的第一个单元格开始(在您的情况下为“单元格”,意味着“无处不在”)。您需要做的就是首先检查“Cells(1)= RPName”是否在第一个单元格中。