自定義函數返回了一個數組，如何傳遞給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環境中，都運行的好好的。