如何合并两个二维数组

xjygjd

需要将两个二维数组头尾合并，两个数组动态数组，结构相同，分别是从两个Sheet上读取的，因为后续需要对合并后的数组进行运算，希望合并后的数组不要改变结构！，谢谢！

dajiahaoxinku12

方法很多，请上传附件，新手求助要上传附件的，没有附件不知道你的是什么数据。

yjh_27

可用循环合并

香川群子

对于经常写代码的人来说，这种问题毫无疑问用VBA数组循环赋值即可，不会怕麻烦。


但对于新手来说，非常希望用几句简单的代码就完成功能……写代码不会、不熟悉，所以怕写代码。
那么，提供一个另类一些的思路：

1. 把【二维数组1】输出到新建工作表A1单元格（或某处指定单元格），形成区域1
2. 把【二维数组2】输出到新建工作表区域1以下的第一个单元格，自然形成合并数据
3. 读取合并数据成为【你想要得到的合并二维数组】

4. 最后删除新建工作表或删除临时使用区域的数据即可。

香川群子

示例代码如下：

1. Sub ArrJoin()
   
2.     arr1 = [a1:c3] '二维数组1
   
3.     arr2 = [e1:g7] '二维数组2
   
4. 
   
5.     '下面开始合并：
   
6.     With Worksheets.Add '新建工作表
   
7.         .[a1].Resize(UBound(arr1), UBound(arr1, 2)) = arr1 '[a1]写入数组arr1内容
   
8.         .[a1].Offset(UBound(arr1)).Resize(UBound(arr2), UBound(arr2, 2)) = arr2 '下面接着写数组arr2内容
   
9.         arr3 = .[a1].CurrentRegion '得到合并内容的数组arr3
   
10.         Application.DisplayAlerts = False '关闭删除提醒功能
    
11.         .Delete '删除新建工作表
    
12.     End With
    
13. 
    
14.     '到这里目的已经实现
    
15.     Stop '停下来观察数组arr3结果
    
16. End Sub
    

复制代码

香川群子

下面是直接循环赋值的代码，其实并不算复杂，但速度效率是最高的。

两个相同结构的数组（列数相同的二维数组）合并，我把它写成了VBA函数。

1. Sub JoinTest()
   
2.     arr1 = [a1].CurrentRegion
   
3.     arr2 = [e1].CurrentRegion
   
4.     arr3 = JoinArr(arr1, arr2)
   
5.     Stop
   
6. End Sub
   
7. 
   
8. Function JoinArr(arr1, arr2)
   
9.     ReDim arr3(1 To UBound(arr1) + UBound(arr2), 1 To UBound(arr1, 2))
   
10.     For i = 1 To UBound(arr1)
    
11.         k = k + 1
    
12.         For j = 1 To UBound(arr1, 2)
    
13.             arr3(k, j) = arr1(i, j)
    
14.         Next
    
15.     Next
    
16.     For i = 1 To UBound(arr2)
    
17.         k = k + 1
    
18.         For j = 1 To UBound(arr2, 2)
    
19.             arr3(k, j) = arr2(i, j)
    
20.         Next
    
21.     Next
    
22.     JoinArr = arr3
    
23. End Function

复制代码

香川群子

循环变量需要定义为长整型变量，否则速度受影响。

但如果你是初学者就不必放在心上，我也不给你定义变量了。

xjygjd

非常感谢！受教了！看了两个方法，我还数选择后面的循环方法来做，因为存入数组这些数据是通过读取后台打开的Excel文件来获取的，同时因为数据来源文件相当重要，不能随意更改而且该文件的主要使用者根本不懂vba怕出问题。

小花鹿

香川群子 发表于 2013-10-25 23:32
对于经常写代码的人来说，这种问题毫无疑问用VBA数组循环赋值即可，不会怕麻烦。

不知他后续想干什么，也许根本不需要合并。

aman1516

香川群子 发表于 2013-10-25 23:50
下面是直接循环赋值的代码，其实并不算复杂，但速度效率是最高的。

两个相同结构的数组（列数相同的二维 ...

如果只有一个动态二维数组arr，数据根据条件不断更新，如何新旧数组不断合并(像滚雪球一样)？
相当于，一开始：brr=arr，然后arr动态更新重新赋值（行数不同，列数一样），"brr=brr+arr”，如此arr不断更新并与原数组合并，循环到条件结束。
将arr复制到工作表的方法不想用，请教下如何改代码？