运行VBA后，得出的数据超过EXCEL最大行数1048576行

suancai1989

这是一个列出组合的代码，得出的组合数太多了，只用了ABCDE这五列，但是行数不够用，请问怎么修改为少用行，多用列。感谢。



Sub Click()
Dim a, b, c, d, e
i = 1
For a = 1 To 50
For b = a + 1 To 50
For c = b + 1 To 50
For d = c + 1 To 50
For e = d + 1 To 50
Cells(i, 1) = a
Cells(i, 2) = b
Cells(i, 3) = c
Cells(i, 4) = d
Cells(i, 5) = e
i = i + 1
Next e
Next d
Next c
Next b
Next a
End Sub

vs2010

1. Sub Click()
   
2. Dim a, b, c, d, e
   
3. i = 1
   
4. j = -1
   
5.     For a = 1 To 50
   
6.         j = j + 1

复制代码

vs2010

1. Sub Click()
   
2. Dim a, b, c, d, e
   
3. Dim arr(1 To 220000, 1 To 300)
   
4. i = 1
   
5. j = -1
   
6.     For a = 1 To 50
   
7.         j = j + 1
   
8.         i = 1
   
9.         For b = a + 1 To 50
   
10.             For c = b + 1 To 50
    
11.                 For d = c + 1 To 50
    
12.                     For e = d + 1 To 50
    
13.                     arr(i, 1 + j * 5) = a
    
14.                     arr(i, 2 + j * 5) = b
    
15.                     arr(i, 3 + j * 5) = c
    
16.                     arr(i, 4 + j * 5) = d
    
17.                     arr(i, 5 + j * 5) = e
    
18.                     i = i + 1
    
19.                     Next e
    
20.                 Next d
    
21.             Next c
    
22.         Next b
    
23. Next a
    
24. Range("A1").Resize(UBound(arr, 1), UBound(arr, 2)) = arr
    
25. End Sub
    

复制代码

少卡一会

suancai1989

vs2010 发表于 2015-8-9 14:44
少卡一会

{:soso_e163:}

ypfw

把值存入数组在输出确实快不少