数组赋值，报内存溢出，怎么解决

ncow

各位好，这样的通过程序对数组arr2进行了赋值，现arr2里大概有15万行，13列的数据，现在想把数组的数据赋值到工作表上，但提示内存溢出，请问可以怎么处理？


代码大概如下：
dim arr2
ReDim arr2(1 To mmm, 1 To 13)
……通过循环对arr2进行了赋值，大概有15万行（k是行数），13列的数据
然后就是要把arr2的值放在工作表上
ActiveSheet.Range("a1").Resize(k, 13) = arr2          运行到这里报错“内存溢出”


我尝试过改成 ActiveSheet.Range("a1").Resize(k, 12) = arr2  少一列数据就可以运行成功，
又尝试了分两个数组，一个数组9列，一个4列
dim arr2，arr3
ReDim arr2(1 To mmm, 1 To 9)
ReDim arr3(1 To mmm, 1 To 4)
ActiveSheet.Range("a1").Resize(k, 9) = arr2
ActiveSheet.Range("j1").Resize(k, 4) = arr3       运行到这里还是会报错“内存溢出”



请问怎么解决。

512008404

测试了一下生成15万行13列的数据，EXCEL可以的！

Public Sub 数组()
    Dim arr()
    ReDim arr(1 To 150000, 1 To 13)
    For i = 1 To UBound(arr)
        For j = 1 To UBound(arr, 2)
            arr(i, j) = i & "-" & j
        Next j
    Next i
    [a1].Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub

Jerry谭悦

15万行13列运行多久？

tanglf188

变量mmm没赋值

x-xx-xx

百万行应该还不至于溢出吧

fzxba

ncow

谢谢各位回复。
后面测试了一下，发现是最后一列的数据的问题，前面试过12列的数据可以赋值，后面再尝试单独只赋值最后一列，也出现内存溢出的报错，然后再尝试用循环的方式一条一条赋值最后一列，运行到一定数量后，报错了，报“应用程序定义或对象定义错误”，然后看报错的时的数据，发现该数据有符号“===========”，可能是因为有“=”，工作表认为是公式，然后该公式是错误的，最终导致赋值不成功。

再测试了一下，如果数据只含有一个“=”，是可以赋值的，但如果有两个或以上“=”时，就报错了。
那问题就改变了，如果数组的数值中含有“==”号，怎样可以赋值成功呢？

HLAI

ActiveSheet.Range("a1:h1").Resize(k) = arr2

ncow

fzxba 发表于 2023-7-7 08:22

谢谢，你发现的问题是对的，就是第13列数据有问题，有数据开头有“========”。

按你的方法，dim arr2() 加上 as string后
运行到redim arr2(1 to mmm,1 to 13)时，报错“缺少数组”，未能解决

grf1973

发现只输入===是输入不进去的，自动修改为'===，这样可以放到数组里。