通过.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，所以您收到该错误。
为避免此错误，您可以像这样引入检查：

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
'...