excel 间隔插入空白行的vba代码

excel 教程 - 八月 30, 2012 - 来源:单点日志 - No Comments -

代码如下,从网上找基本的,修改了,如果上下行已经存在空白行就不处理了,考虑的正常情况是首列第一都是有数据的,没有数据就为空白行,当然更多应用需要衍生。代码如下

另外http://yyb.excelhome.net/features/的易用宝大家可以放心下载使用,集成了不少功能哦。


Sub 按钮1_Click()
Dim i, b
tt = InputBox(“处理行数”, “行数”)
    If tt = flase Then
    MsgBox (“未键入”)
GoTo 99
    Else
        For i = 1 To tt
        If Cells(i + 1, 1) <> “” And Cells(i, 1) <> “” Then
                Rows(i + 1).Select

                Selection.Insert Shift:=xlDown
                i = i + 1
        Else
       
        End If
        Next i
     End If
99
End Sub



无觅相关文章插件,快速提升流量

《excel 间隔插入空白行的vba代码》由单点日志原创提供!
转载请注明:http://spoint.babyshoot.cn/archives/2012/08/excel-vba.html

No Comments│赶紧发话! »

发表评论

您必须登录后才能发表评论。
8