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

Question

我正在尝试查找包含单词“ok”的单元格行，这是我的代码:

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

问题是包含单词“ok”的单元格(例如 E5)由采用另一张工作表中另一个单元格的值的公式填充。所以我收到以下错误:

execution error 91 : object variable or bloc variable with not defined
(I have translated the message from French to English.)

我认为这是因为单元格包含公式而不是实际值。

Answer 1

如果您确实认为公式是问题所在，您可以添加

lookin:=xlValues

作为 find 函数的参数，以便其读取:

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