求助:二维数组拼接出现内存溢出错误

奕伟可航

我写了一个函数,作用是把数组a和数组b拼接成数组c,当然a和b列数都相同.

但是现在有个问题,当数据量在30万行左右会报错内存溢出.我不知道问题出在哪里?
我试过90多万行的sheet都能放进数组内,为什么我这个函数会报错呢?请高手不吝赐教,帮我分析下哪里出现了问题?

1. Function AddArr(arr1 As Variant, arr2 As Variant) As Variant
   
2.     Dim i As Long, j As Long
   
3.     Dim dim1 As Long, dim2 As Long
   
4.     Dim resultArray() As Variant
   
5.     dim1 = UBound(arr1, 2)
   
6.     dim2 = UBound(arr2, 2)
   
7.     If dim1 <> dim2 Then
   
8.         MsgBox "两个二维数组的维数不一致！"
   
9.         Exit Function
   
10.     End If
    
11.     ReDim resultArray(1 To UBound(arr1) + UBound(arr2), 1 To dim2)  '当行数达到30万左右这里报错内存溢出  ,当前列数为 30
    
12.     For i = 1 To UBound(arr1)
    
13.         For j = 1 To dim2
    
14.             resultArray(i, j) = arr1(i, j)
    
15.         Next j
    
16.     Next i
    
17.       For i = UBound(arr1) + 1 To UBound(resultArray)
    
18.         For j = 1 To dim2
    
19.             resultArray(i, j) = arr2(i - UBound(arr1), j)
    
20.         Next j
    
21.     Next i
    
22.     AddArr = resultArray
    
23. End Function
    

复制代码

LIUZHU

恐怕不单是行数的问题吧，列数有多少？元素太多的话，内存也撑不住了。

prome3

从没碰到过内存溢出错误，都不知道它长啥样
检查一下数据吧，有没有错误值什么的，字符串过长什么的
换句话说，检查一下元素的具体数值，尤其是在报错前的几条

奕伟可航

检查过了,不是代码的问题,有个sheet  63万行,30列 ,全部读取数组装不下,提示内存溢出.
然后依然63万行,只读5列,就不报错,说明确实跟内存有关.

prome3

内存溢出和一些因素有关，其中比较重要的是电脑实际的物理内存（内存条容量）、CPU和操作系统位数、Office软件位数。这三个一般来说是越高越好。32位的Office单个工作簿文件内存空间最高4GB，如果带数据模型的话最高2GB，而60万行30列的空数组占用空间约在300MB左右，加上工作表上的数据以及要拼接的两个数组，已经明显超过1GB了，这时候再进行输出，很容易就接近2GB阈值了。

在64位软件上是一点问题没有：

运行过程中的内存占用：

运行结果：71万行，34列


所以，你用的软件位数必定是32位的，这个才是内存溢出的原因。

最最重要的是，要拼接的两个数组元素的内容是什么。如果是纯数字，那60万行30列就算在32位软件上也是可以运行的。如果是包含字符串，尤其是长字符串，那单个数组的大小很容易就超过300MB了。