017-优化“隔行插入”-疑难千寻千解丛书（VBA）

小妖

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

罗刚君 章兰新 黄朝阳 编著

疑难17
如何优化过程“隔一行插入一行”

对图所示的数据每隔一行插入一行，其代码如下。如何进行优化？

1. 
   
2. Sub 隔一行插入行()
   
3.     Application.ScreenUpdating = False '关闭屏幕刷新
   
4.     Dim i As Integer
   
5.     For i = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1  '遍历每个已用行
   
6.         Rows(i).Insert  '插入新行
   
7.     Next
   
8.     Application.ScreenUpdating = True '恢复屏幕更新
   
9. End Sub
   

复制代码

è解决方案

图中的C列有计算公式，那么将自动计算修改为手动计算再插入行可以大大提速。

í操作方法

步骤1
在执行插入行的代码前设置手动计算，完成插入行后恢复自动计算，完整代码如下：

1. 
   
2. Sub 隔一行插入行2()
   
3.     Application.ScreenUpdating = False '关闭屏幕刷新
   
4.     Application.Calculation = xlManual  '手动计算
   
5.     Dim i As Integer
   
6.     For i = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
   
7.         Rows(i).Insert
   
8.     Next
   
9.     Application.Calculation = xlAutomatic          '自动计算
   
10.     Application.ScreenUpdating = True           '恢复屏幕更新
    
11. End Sub
    

复制代码

步骤2
分别执行两段代码，其结果一致，第二行开始每隔一行插入空行，如图。

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

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

小妖

妖言：

还好还好，只是个排序公式，如果是一堆数组，那运行速度变化，可就明显了。
不过这样的代码，一定要执行完啊，要是执行到一半挂了，整个表都是手动计算了。

hhzjxss

哈哈，记得好象可以用UNOIN,一次性插入会更快吧！

UNA123

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