[已解决]插入（删除）空行

642070295

麻烦老师帮看看，插入（删除）空行的代码怎么写？具体要求在附件中sheet1里。谢谢！ 工作簿29.rar (11.77 KB, 下载次数: 3)

2013-11-18 11:09 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

youfang

2013-11-18 11:26

Sub 插入()
Dim i%
For i = Range("a65536").End(3).Row To 2 Step -1
Rows(i).Insert Shift:=xlDown
Next
End Sub
Sub 删除()
Dim k%
For k = Range("a65536").End(3).Row To 2 Step -1
If Cells(k, 1) = "" Then
Rows(k).Delete
End If
Next
End Sub

跳转到最佳答案楼层

youfang

Sub 插入()
Dim i%
For i = Range("a65536").End(3).Row To 2 Step -1
Rows(i).Insert Shift:=xlDown
Next
End Sub
Sub 删除()
Dim k%
For k = Range("a65536").End(3).Row To 2 Step -1
If Cells(k, 1) = "" Then
Rows(k).Delete
End If
Next
End Sub

642070295

youfang 发表于 2013-11-18 11:26
Sub 插入()
Dim i%
For i = Range("a65536").End(3).Row To 2 Step -1

谢谢youfang老师！

youfang

642070295 发表于 2013-11-18 13:10
谢谢youfang老师！

学于论坛，用于论坛