通过 .find 方法将范围设置为单元格

Question

我想将“指针”范围对象分配给应该通过 .find 方法确定的单元格，并通过 .offset 方法将找到的地址偏移 3 行。 我似乎对以下代码做错了什么：

With Sheets("Database")

    Dim pointer As Range
    Set pointer = .Cells.Find("string data").Offset(3)
    ...

End With

我不断收到错误 91：对象变量或未设置块变量。

提前感谢您的帮助！

Answer 1

您收到该错误是因为.Cells.Find("string data") 返回Nothing。
为避免此错误，您可以引入 check，如下所示：

Dim pointer As Range

With Sheets("Database")
    If Not .Cells.Find("string data") Is Nothing Then
        Set pointer = .Cells.Find("string data").Offset(3)
    End If
End With
'...