你這個要求不能實現啊，我用了ParamArray 關鍵字，用來指定一個 任意元素個數 的陣列

共參考：

---------

Function shuzu(ParamArray x())

Application.Volatile

Dim i, n, m, tmp

n = UBound(x) - LBound(x) + 1

If n Mod 2 0 Then tmp = "#Err_x()": GoTo 1000

n = n / 2

m = LBound(x)

For i = 1 To n

tmp = tmp + x(m + i - 1) * x(m + i - 1 + n)

Next

1000:

shuzu = tmp

End Function

-----------

輸入公式的時候，需要 成對 的元素，套用你的公式如下：

=shuzu((K5,L5,M7,N9),(M13,L15,K13,M17))

可以輸入任意 成對的 元素，比如使用10個引數：

=shuzu((K5,L5,M7,N9,M10),(M13,L15,K13,M17,N20))