查找特定的Cell并使用它来创建范围

Question

我目前正在搜索Excel工作表以找到特定的单元格：

Set findCell = ActiveSheet.Range("D:D").Find(What:=startTerm).Offset(1, 0)

一旦我有了这个单元格，我想从该单元格向下创建一个任意数字的范围，现在没关系。

Set instrumentList = ActiveSheet.Range("findCell:D100").Cells

我似乎无法找出使其正确的语法。我必须只需要找到具有某些特定文本的单元格并从中向下创建一个范围，但我只是遇到应用程序错误。

Answer 1

您可能希望再次使用Offset() :(添加检查startTerm未找到）

If Not findCell is Nothing Then
    Set instrumentList = ActiveSheet.Range(findCell, findCell.Offset(x, 0))
Else
    MsgBox startTerm & " Not Found!"
    Exit Sub
End If

x是你想要的任意行数。