公式中的动态单元格范围

Question

我无法创建输入中单元格范围的公式。

Function CellBefore(CellRange As String)

CellBefore = ActiveSheet.WorksheetFunction.Offset(CellRange, 0, 2).Value

End Function

Answer 1

显然.Offset不能作为宏中的工作表函数使用。您可以使用Range.Offset方法：

Function CellBefore(CellRange As String)
    CellBefore = Range(CellRange).Offset.Value
End Function

或

Function CellBefore(CellRange As Range)
    CellBefore = CellRange.Offset(0, 2).Value
End Function