你这个要求不能实现啊，我用了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))