使用单元格中的文本值查找包含公式的单元格的地址

Question

我试图找到一个包含单词“ok”的单元格行，这是我的代码：

Dim findValue As Long
findValue = Sheets("STOCKS").Range("E:E").Find("ok").Row

问题是包含单词“ok”的单元格，例如E5，由一个公式填充，该公式取另一个单元格中另一个单元格的值。 所以我收到以下错误：

执行错误91：未定义的对象变量或bloc变量
（我已将消息从法语翻译成英语。）

我认为这是因为细胞包含公式而不是真正的价值。

Answer 1

如果你真的认为公式是你可以添加的问题

lookin:=xlValues

作为查找函数的参数，使其显示为：

findValue = Sheets("STOCKS").Range("E:E").Find("ok", lookin:=xlValues).Row

如果找不到您要查找的值，也会出现此错误。 您可以使用此代码进行检查。

Dim findValue As Long
Dim r As Range

Set r = Sheets("STOCKS").Range("E:E").Find("ok", LookIn:=xlValues)

If r Is Nothing Then
    MsgBox "Not found"
    findvalue = -1
Else
    findvalue = r.Row
End If