两个数组合并的问题，求解答，先谢了

283996309

是这样 的有两个数组 arr1（1  to  n，1  to  56），arr2（1  to  n，1  to  56）  两个数组的表头都一样，内容不一样，我要把每一条符合条件的arr2的数据，合并到arr1，在合并具体一条数据时，具体类容【1 to 56 的内容】我用循环，一个一个的加，有没有办法不用循环，一次性把1 to 56 的内容添加过去，望高手解答，谢谢

chxw68

数组有表头吗？怎么合并没看懂。

jiminyanyan

描述一堆，不如上个附件．．

wolfmare

循环是最直观的做法，而且我想了下，印象中并没有二维数组加法的快捷做法。
如果你觉得速度慢的话，把循环变量设定为long试试有没有改善。

zopey

Sub 按钮1_Click()
Dim arr, brr, k0, k2
k0 = [g1].End(4).Row
k2 = 3
arr = [g1].Resize(k0, k2)
brr = [l1].Resize(k0, k2)

Dim ar2, br2, crr()
ReDim crr(1 To k0)

For i = 1 To k0
ar2 = Application.Index(arr, i, 0)
br2 = Application.Index(brr, i, 0)
crr(i) = Evaluate("{" & Join(ar2, ",") & "}+{" & Join(br2, ",") & "}")
[q1].Offset(i - 1, 0).Resize(1, 3) = crr(i)
Next
End Sub

数组合并.zip (209.21 KB, 下载次数: 2)

2018-7-13 10:11 上传

点击文件名下载附件

zopey

工作表 -- 二维数组arr、brr -- 按行 一维数组 ar2、br2 -- 合并得到 一维数组 crr(i)

现在没解决的问题是：
一维数组 crr(i)  能否不通过循环语句，只用一句代码，整体返回 给 二维数组 arr的 第 i 行 。

香川群子

为什么要找到不用循环的方法？

不谈论有没有这种不用循环的方法，
本质上VBA使用数组时，遍历循环是最快捷、最高效的利用方法。

如果想要借用某个技巧来达到不用循环的目的，速度往往会慢很多倍。

…………
我理解楼主的想法，觉得循环需要多写好几行代码，有点烦。
解决办法是，如果是经常需要写这样的代码或在代码中反复做这样的操作，那么写成自定义函数过程就可以了。

1. Function arrSum(ar, br)
   
2.     m = UBound(ar): n = UBound(ar, 2)
   
3.     For i = 1 To m
   
4.         For j = 1 To n
   
5.             ar(i, j) = ar(i, j) + br(i, j)
   
6.         Next
   
7.     Next
   
8.     arrSum = ar
   
9. End Function

复制代码