excel - excel的vba函数中的“需要对象”？

Question

Function RRel(colmn, Optional offst, Optional rng)
    If offst Is Nothing Then Set offst = -1
    If rng Is Nothing Then Set rng = Application.Caller
    RRel = Intersect(colmn, rng.offset(offst, 0).EntireRow)
End Function

当我尝试将其用作 excel 公式时，例如，=RRel(P:P)我得到一个错误：

Compile error:

object required

调试点在函数头上

Answer 1

我不明白您为什么需要 UDF 来执行此操作：为什么不直接使用 Excel 公式呢？无论如何，如果你坚持你可以试试这个：

Function RRel(colmn As Range, Optional offst As Variant, Optional rng As Variant) As Variant
    If IsMissing(offst) Then offst = -1
    If IsMissing(rng) Then Set rng = Application.Caller.Offset(offst, 0)
    RRel = Intersect(colmn.EntireColumn, rng.EntireRow).Value
End Function