我写的这个function 怎么只能在vba 用,不能在excel 用?

Function Yb_Concat(rRange As Range, sConcat As String)

Dim n As Byte, i As Byte

n = rRange.Count - 1

Dim arr()
ReDim arr(0 To n)

i = 0

For Each sStr In rRange

arr(i) = sStr
i = i + 1

Next

Yb_Concat = Join(arr, sConcat)

End Function

MsgBox Yb_Concat(Range("a1:a14"), "*") 这样没问题,

但是在excel 直接写 = Yb_Concat(a1:a14, "*") 就出错..