vba代码优化，提速！

2163kjh

样例中式一个n行*52列的数据，d列为数量列，根据d列数量，将行扩充，里面代码已经写好，可以自己操作查看下效果。
如果数据量不大的情况下，运行速度还行，但是如果数据量太大的话，速度就有些慢了，一个是循环占用，另一个是另存为的命令占用
有没有更好的办法，提升下效率。

yjh_27

1. For i = 1 To UBound(arr, 1)
   
2.                 brr(m, 1) = m
   
3.                 m = m + 1
   
4.                 For j = 2 To UBound(arr, 2)
   
5.                     brr(m, j) = arr(i, j)
   
6.                 Next
   
7.                     brr(m, 4) = 1
   
8.             For k = 2 To arr(i, 4)
   
9.                 brr(m, 1) = m
   
10.                 m = m + 1
    
11.                 For j = 2 To UBound(arr, 2)
    
12.                     brr(m, j) = arr(i, j)
    
13.                 Next
    
14.             Next
    
15.         Next

复制代码

yjh_27

相对读写，提速可忽略

2163kjh

看不太懂啊，老师，不过测试了下速度没有提升，基本一致！另存为命令依然是占用时间比较久

2163kjh

.Range("a2").Resize(UBound(brr, 1), UBound(brr, 2)) = brr    数组brr太大的时候这里写入单元格速度太慢。。。这个占用时间比较久！

2163kjh

如果吧saveas改成新建一个表格，然后吧数据直接存入表格是不是数据能快点，或者直接连接一个数据库那样子是不是能快点

zpy2

2163kjh 发表于 2021-11-14 20:29
如果吧saveas改成新建一个表格，然后吧数据直接存入表格是不是数据能快点，或者直接连接一个数据库那样子是 ...

另存为命令依然是占用时间比较久

一定要另存吗？

2163kjh

这个是生成的数据要设备用的，所以无论是数据库还是别的一定要另存为一个.csv的文档的，没办法

zpy2

2163kjh 发表于 2021-11-14 21:36
这个是生成的数据要设备用的，所以无论是数据库还是别的一定要另存为一个.csv的文档的，没办法

你可以试一下，个人感觉csv会比excel快，读写都是。另外，exe比VBa解释性语言要快。
速度要求高，可能还是多方位的考虑一下。

2163kjh

没有啥好办法了，读写单元格数据超过20w个格子好像保存起来都不快