自定义函数返回了一个数组，如何传递给PEL公式？　[金字塔]

怎么总是空值？

  function zsg()

dim tmpdata()
    data=jd(Formula,jb,sdate)
    u=ubound(data,1)
    redim tmpdata(u)
    for ii=1 to u
      tmpdata(ii)=data(ii,4)
    next
    ZSG=tmpdata(u)

end function

然后在公式变,让xx:zgs***,在excel的vba环境中，都运行的好好的。