使用行的变量设置范围 - Excel VBA

Question

简短且（希望如此）简单的问题，我已经搜索了一个工作表范围以找到一个特定的参考号，然后想在该行中的一个范围内搜索左侧的第一个空白单元格，使用下面的代码 sn-p (我从这个问题开发的：mrExcel help site)

Set projectSearchRange = Sheets("Milestones").Range("A:A").Find(projectref, , xlValues, xlWhole)

current_row = projectSearchRange.Row

Set searchrange = Sheets("Milestones").Range(Sheets("Milestones").Cells(current_row, 2), _
Sheets("Milestones").Cells(current_row, 23)).SpecialCells(xlCellTypeBlanks).Cells(1).Activate

milestoneduedate = ActiveCell.Offset(, 1).Value

但是，Set Searchrange 行抛出了一个

运行时 424 - 需要对象错误

但据我了解，我已经正确地写了这行。

任何关于我做错了什么的见解将不胜感激。

Answer 1

这应该适合你：

Function MilestoneDueDate() As Variant

Dim projectSearchRange As Range
Dim Current_Row As Long
Dim SearchRange As Range

With Sheets("Milestones")
    Set projectSearchRange = .Range("A:A").Find(projectref, , xlValues, xlWhole)
    Current_Row = projectSearchRange.Row
    Set SearchRange = .Range(Cells(Current_Row, 2), Cells(Current_Row, 23)) _
       .SpecialCells(xlCellTypeBlanks).Cells(1)
End With

MilestoneDueDate = SearchRange.Offset(0, 1).Value

End Function