此UBOUND有什么问题？

Question

假设A1，A2和A3的值为1，2和3。我写了以下代码。

function uboundout(reference)
uboundout=ubound(reference)
end function

然后我将=uboundout(A1:A3)放在B1中，期望3，但是Excel显示#VALUE!。当我尝试使用worksheetfunction.count而不是ubound时没有问题。怎么了感谢您的阅读。

Answer 1

将reference声明为Range，并使用.value：

Function uboundout(reference As Range)
If reference.CountLarge = 1 Then
    uboundout = 1
    Exit Function
End If
uboundout = UBound(reference.Value)
End Function