使用宏在每个人后面添加一个空行

摇晃着脑袋

求助各神，附件已经上传，想要在一个人后面插入空行，自己进行汇总。

貌似用宏比较方便，但是不会，还求帮助啊，，，，谢了

sunya_0529

宏代码如下——

1. Sub 插入汇总行()
   
2. Dim i%
   
3. i = 4
   
4. Application.ScreenUpdating = False '禁用屏幕刷新
   
5. With ActiveSheet
   
6.   Do
   
7.     If .Cells(i, 1) <> .Cells(i - 1, 1) Then '逐行扫描，人名不同时插入一个空行
   
8.       .Cells(i, 1).EntireRow.Insert
   
9.       i = i + 1 '计数器累加1（因为插入空行）
   
10.     End If
    
11.     i = i + 1 '计数器累加
    
12.   Loop While Len(.Cells(i, 1)) > 0 '循环到无数据时终止
    
13. End With
    
14. Application.ScreenUpdating = True '打开屏幕刷新
    
15. End Sub

复制代码

大道缺一

sunya_0529 发表于 2014-9-23 13:43
宏代码如下——

请问楼上大神，为什么要关闭屏幕刷新？

sunya_0529

大道缺一 发表于 2014-10-5 16:25
请问楼上大神，为什么要关闭屏幕刷新？

因为不关闭的话，插入行的每一步操作都会显示出来，看上去就像屏幕在闪动一样，既没有良好的界面体验，也影响程序的执行效率并占用资源。