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

Question

我正在寻找一个含有"ok“这个词的细胞系，这是我的代码：

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

问题是，包含单词"ok“(例如E5 )的单元格由另一个工作表中另一个单元格的值的公式填充。因此，我得到了以下错误：

执行错误91 :对象变量或未定义的整块变量 (我已将这封信从法文翻译成英文。)

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

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