Question

Excel VBA自定义函数的编写，自定义数组

比如编好之后最终使用的是=shuzu((K5:L5,M7,N9),(M13,L15,K13,M17))
要求：先将公式中所选择的单元格数据按照选择的顺序存到数组里边，编写function函数时，自定义两个数组参数a()与b()，按照单元格的选择顺序将(K5:L5,M7,N9)储存到a(0)到a(3)中，(M13,L15,K13,M17)储存到b(0)到b(3)中，代码的最后要求求∑a*b，注意a与b数组一定要编写，因为有了这两个数组，我还能解决别的问题，比如将所有字符按照一定的顺序连接起来

请各位Excel VBA高手替业余的小弟解决这个麻烦，谢谢！
顺便补充一句，这个问题不是几个字就能回答的，代码最重要，再次感谢有意替小弟解决问题的各位大虾！

#########################
问题已经解决，但在不是这里的朋友解决的，但还是感谢，辛苦了
#########################

Answer 1

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

Answer 2

最难解决的就是你这种问题，不是提问题，是指挥别人怎么做，自己说的也不是很明白

告诉你提问题只要把你现在的情况说明白，再说想要什么结果就行了，有图最佳。
至于过程不重要，结果才重要。

Answer 3

如:一维数组定义
dim a(99)

Answer 4

sdsadsads