011-优化“隔三行求和”-疑难千寻千解丛书（VBA）

小妖

ET疑难千寻千解丛书之EXCEL2010编程与实践

罗刚君 章兰新 黄朝阳 编著

疑难11  如何优化过程“隔三行求和”
某车间三人一个小组，生产表按图所示方式存放产量，利用VBA求和的代码如下。如何进行优化使其提速？

1. 
   
2. Sub 隔三行求和()
   
3.   Dim i As Integer
   
4.   For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row  '循环每一行
   
5.     '如果行号除以4等于1则产生求和公式，向前三行求和
   
6.     If i Mod 4 = 1 Then Cells(i, 3).Formula = "=sum(C" & i - 3 & ":C" & i
   
7.     - 1 & ")"
   
8.   Next
   
9. End Sub
   

复制代码

è解决方案

上面程序中For...Next循环对每个行号进行余数判断，虽然可以完成需求，但并非必要。可以通过For...Next循环的Step参数来优化代码，简化循环的次数。
í操作方法
步骤1        
对For...Next循环进行改进，优化后的代码如下：

1. 
   
2. Sub 隔三行求和2()
   
3.   Dim i As Integer
   
4.   For i = 5 To Cells(Rows.Count, 1).End(xlUp).Row Step 4  '每隔三行循环一次
   
5.     '对i行3列的单元格设置求和公式，向前三行求和
   
6.     Cells(i, 3).Formula = "=sum(C" & i - 3 & ":C" & i - 1 & ")"
   
7.   Next
   
8. End Sub
   

复制代码

步骤2        
执行过程“隔三行求和2”，可以发现两个过程的执行结果完全一致，但工作表中数据越多，两者的速度差异就越大。

=============================

以上摘自《EXCEL2010编程与实践》

小妖

妖言：

我来砸个场：这个用技巧法最快

yuhe0008

妖是不是寻思用分类汇总处理？

Dj_soo

应该是定位-空-ALT=吧?

raulerini

妖妖把你的技巧贴出来呵。。学习一下。{:101:}

mn860429

{:912:}{:912:}

xxeywy

来看技巧操作的

UNA123

{:011:}{:011:}{:011:}{:011:}

tianti

呵呵  高手如云啊      

fulljy

学习了，谢谢!