excel VBA自定义函数怎么进行数组计算

function F(rng as range) as Stringif *.count 5 then F=Err:exit functiondim a(4) as double,b as integerdim cel as rangefor each cel in rng a(b)=val(*.value) b=b+1nextF = a(0) + a(1)*a(2) + a(3) + a(4)end function追答 : F =round( a(0) + a(1)*a(2) + a(3) + a(4),2)