[已解决]如何批量插入行

心灵有约

批量插入行.zip (6.8 KB, 下载次数: 10)

2015-9-2 16:24 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

七彩屋

2015-9-2 17:24

批量插入行0902.rar (12.81 KB, 下载次数: 16)

2015-9-2 17:24 上传

点击文件名下载附件

跳转到最佳答案楼层

七彩屋

就是在含计的行下插入一行吧

1. Sub 加一行本月合计()
   
2. Application.ScreenUpdating = False
   
3. Dim i%
   
4. For i = [a65536].End(xlUp).Row To 2 Step -1
   
5.   If InStr(UCase(Cells(i, 1).Value), "计") Then
   
6.     Rows(i + 1).Insert
   
7.       Cells(i + 1, 1) = "本月合计"
   
8.   End If
   
9. Next
   
10. Application.ScreenUpdating = True
    
11. End Sub

复制代码

上清宫主

关键词：find、union、inert 就可以了
可录制宏，略作修改即可完成

七彩屋

批量插入行0902.rar (12.81 KB, 下载次数: 16)

2015-9-2 17:24 上传

点击文件名下载附件