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

I don t understand why you need a UDF to do this: why not just do it with Excel formulas? Anyway if you insist you can try this:

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

友情链接