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

ncow

grf1973 发表于 2023-7-7 10:50
发现只输入===是输入不进去的，自动修改为'===，这样可以放到数组里。

===放数组里是可以的，从数组里取出放在单元格就报错了。手动改为 '=== 也放不出来，英文的单引号改为用其他符号就可以

于箱长

ncow 发表于 2023-7-7 10:56
===放数组里是可以的，从数组里取出放在单元格就报错了。手动改为 '=== 也放不出来，英文的单引号改为用 ...

不是手动在单元格里加英文单引号，是在代码上加

fenghuaxue

改成这样试试：
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
Erase arr2
ActiveSheet.Range("j1").Resize(k, 4) = arr3       运行到这里还是会报错“内存溢出”
Erase arr3

ncow

于箱长 发表于 2023-7-7 11:02
不是手动在单元格里加英文单引号，是在代码上加

感谢，在代码上加可以了。

准提部林

加個判斷／／
if left(arr2(i, j),1)="=" then arr2(i, j)="'" & arr2(i, j)

perfect131

最后一列设置为文本
    With ActiveSheet.Range("a1")
        .Offset(0, 12).Resize(k).NumberFormat = "@"
        .Resize(k, 13) = arr2
    End With