Question

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

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

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

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

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

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

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

1 个答案: