使用行的variables设置范围 – excel vba

简短的（希望）简单的问题，我已经search了一个工作表范围来查找一个特定的参考号码，然后想要从左边的第一个空白单元格中search该行的范围，使用下面的代码片段（我从这个问题： mrExcel帮助网站 ）

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 

然而，“设置search范围”行是抛出一个运行时424 – 对象所需的错误，但据我所知，我已经正确地写了行。

任何有关我做错了什么洞察将不胜感激。

Answer 1

这应该适合你。

函数MilestoneDueDate（）作为变体

 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 

结束function