[已解决]数组ReDim arr值最大支持多少

love586

1. Sub 竖C() '--竖向输出1
   
2. 
   
3.     '
   
4. 
   
5.     Dim data, arr(), I As Integer, J As Integer, k As Single
   
6. 
   
7.     '指定Sheets("C")页面
   
8. 
   
9.     data = Sheets("C").Range("B2:CKU2475").Value '--指定区域
   
10. 
    
11.     ReDim arr(1 To 16370)
    
12. 
    
13.     For I = 1 To UBound(data)
    
14. 
    
15.         For J = 1 To UBound(data, 2)
    
16. 
    
17.             If data(I, J) <> "" Then
    
18. 
    
19.                 k = k + 1
    
20. 
    
21.                 arr(k) = data(I, J)
    
22. 
    
23.             End If
    
24. 
    
25.         Next
    
26. 
    
27.     Next
    
28. 
    
29.     Range("A2").Resize(k, 1) = Application.Transpose(arr) '--竖向输出
    
30. 
    
31. End Sub

复制代码

上面代码：是数据转竖向输出
ReDim arr(1 To 16370) 中16370改大于10万就出错误13
有时内存溢出
运行内存是32GB
求大佬帮忙改下，想要数组最大支持值，能达到行值100万个数据

最佳答案

月排行榜 / 总排行榜

金樽空对月

2022-3-18 21:14

love586 发表于 2022-3-18 15:27
可我不会vb啊，都是乱改，能帮忙弄一下吗，谢谢

代码更改如下：

1. Sub 竖C() '--竖向输出1
   
2.     Dim data, arr(), I As Long, J As Long, k As Long
   
3.     '指定Sheets("C")页面
   
4.     data = Sheets("C").Range("B2:CKU2475").Value '--指定区域
   
5.     ReDim arr(1 To 200000, 1 To 1)
   
6.     For I = 1 To UBound(data)
   
7.         For J = 1 To UBound(data, 2)
   
8.             If data(I, J) <> "" Then
   
9.                 k = k + 1
   
10.                 arr(k, 1) = data(I, J)
    
11.             End If
    
12.         Next
    
13.     Next
    
14.     Range("A2").Resize(k, 1) = arr
    
15. End Sub

复制代码

跳转到最佳答案楼层

砂海

重点应该是 "Transpose"吧 ,
这个范围应该不太大

love586

砂海 发表于 2022-3-18 13:39
重点应该是 "Transpose"吧 ,
这个范围应该不太大

怎么改的，转置数据大于30万，这里Transpose就出错

砂海

Dim  arr()
...
ReDim arr(1 To 16370)
...
Range("A2").Resize(k, 1) = Application.Transpose(arr) '--竖向输出
=============================================
在提前不知道数组 大小的情况下 才 dim arr() , 再 Redim

本题中
直接
dim arr(1 to 16370 , 1 to 1) 就可以,
...
结果也不用 , .Transpose

love586

砂海 发表于 2022-3-18 14:19
Dim  arr()
...
ReDim arr(1 To 16370)

1. Sub 竖C() '--竖向输出1
   
2.     '
   
3.     Dim data, arr(1 To 16370, 1 To 1), I As Integer, J As Integer, k As Single
   
4.     '指定Sheets("C")页面
   
5.     data = Sheets("C").Range("B2:CKU2475").Value '--指定区域
   
6.     For I = 1 To UBound(data)
   
7.         For J = 1 To UBound(data, 2)
   
8.             If data(I, J) <> "" Then
   
9.                 k = k + 1
   
10.                 arr(k) = data(I, J)
    
11.             End If
    
12.         Next
    
13.     Next
    
14.     Range("A2").Resize(k, 1) = Application(arr) '--竖向输出
    
15. End Sub

复制代码

改后arr(k) = data(I, J)维数错误

roserice

love586 发表于 2022-3-18 14:51
改后arr(k) = data(I, J)维数错误

arr(k)不对,你定义 的是arr(,)

love586

roserice 发表于 2022-3-18 15:24
arr(k)不对,你定义 的是arr(,)

可我不会vb啊，都是乱改，能帮忙弄一下吗，谢谢

金樽空对月

love586 发表于 2022-3-18 15:27
可我不会vb啊，都是乱改，能帮忙弄一下吗，谢谢

代码更改如下：

1. Sub 竖C() '--竖向输出1
   
2.     Dim data, arr(), I As Long, J As Long, k As Long
   
3.     '指定Sheets("C")页面
   
4.     data = Sheets("C").Range("B2:CKU2475").Value '--指定区域
   
5.     ReDim arr(1 To 200000, 1 To 1)
   
6.     For I = 1 To UBound(data)
   
7.         For J = 1 To UBound(data, 2)
   
8.             If data(I, J) <> "" Then
   
9.                 k = k + 1
   
10.                 arr(k, 1) = data(I, J)
    
11.             End If
    
12.         Next
    
13.     Next
    
14.     Range("A2").Resize(k, 1) = arr
    
15. End Sub

复制代码

金樽空对月

love586 发表于 2022-3-18 15:27
可我不会vb啊，都是乱改，能帮忙弄一下吗，谢谢

transpose是EXCEL的内置函数，它的最大转置行数为65536行，超出就会出错。另外如果不确定数组最终要多大容量，就在开始声明变量时直接把它声明的大些，然后用多少就取多少即可。例如：声明一个二十万行且一列的二维数组 ——  dim arr(1 to 200000,1 to 1)

love586

金樽空对月 发表于 2022-3-18 21:24
transpose是EXCEL的内置函数，它的最大转置行数为65536行，超出就会出错。另外如果不确定数组最终要多大 ...

谢谢，非常详细