* * *參考:
-
函數shuzu(ParamArray x())
申請。不穩定的
Dim i,n,m,tmp
n =欠載(x) -欠載(x) + 1
如果n Mod 2 & lt& gt0 Then tmp = " # Err _ x()":GoTo 1000
n = n / 2
m = LBound(x)
對於i = 1到n
tmp = tmp+x(m+I-1)* x(m+I-1+n)
然後
1000:
shuzu = tmp
結束功能
-
輸入公式時,需要成對的元素。如下應用您的公式:
=shuzu((K5,L5,M7,N9),(M13,L15,K13,M17))
您可以輸入任何元素對,例如10參數:
=shuzu((K5,L5,M7,N9,M10),(M13,L15,K13,M17,N20))