[VBA]给VBA加速之合计处理

toolssoft

【开发语言】
        VBA
【功能简介】
        使用For等循环进行数据合计处理，当数据量很大时，就有可能花费相当长时间才能得到计算结果。
        这种情况下，我们就应该考虑使用Excel内置的工作表函数技巧，实现意想不到的处理速度。

【代码实例】

1. '慢的例子
   
2. Sub Sample1()
   
3. Dim i As Long
   
4. Dim j As Long
   
5. For i = 1 To 50
   
6. For j = 1 To 15
   
7. Cells(i, j) = Cells(i, j).Address(False, False)
   
8. Next
   
9. Next
   
10. End Sub
    
11. 
    
12. '快的例子
    
13. Sub Sample2()
    
14. Dim rngCell As Range
    
15. For Each rngCell In Range("A1:O50")
    
16. rngCell.Value = rngCell.Address(False, False)
    
17. Next
    
18. End Sub
    

复制代码

姐妹篇
[VBA]给VBA加速之连续区域处理技巧
[VBA]给VBA加速之使用对象技巧
[VBA]给VBA加速之单元格自动重新计算
[VBA]给VBA加速之拷贝粘贴处理
技术资料栏目下载