[已解决][求助]vba自动插入空行

bfdlang

我想在工作表里面的a列有数据的单元格下面插入一个空行，怎么处理，请高手指点

最佳答案

月排行榜 / 总排行榜

uranus1997

2009-9-29 00:15

给另一个向下插入行思路：

Private Sub InsertRow()

    Dim IR As Integer
    Dim rng As Range

    IR = ActiveCell.Row
    Set rng = ActiveCell

    rng.EntireRow.Copy    '复制行
    rng.EntireRow.Insert Shift:=xlUp    '插入复制的行
    rng.EntireRow.ClearContents     '清除复制内容

    Application.CutCopyMode = False    '取消选择区域

End Sub

跳转到最佳答案楼层

函数小菜鸟

最好发附件过来

oobird

Sub yy()
i = 1
Do
If Cells(i, 1) <> "" Then Rows(i + 1).Insert: i = i + 1
i = i + 1
Loop Until i = Cells.Find("*", , , , 1, 2).Row
End Sub

搁浅2008

学习3楼的方法 要是提示变量未定义 就在sub yy() 下边加上一句dim i as long

zsd5237

学习[em02][em02]

ermofan5

看看

uranus1997

给另一个向下插入行思路：

Private Sub InsertRow()

    Dim IR As Integer
    Dim rng As Range

    IR = ActiveCell.Row
    Set rng = ActiveCell

    rng.EntireRow.Copy    '复制行
    rng.EntireRow.Insert Shift:=xlUp    '插入复制的行
    rng.EntireRow.ClearContents     '清除复制内容

    Application.CutCopyMode = False    '取消选择区域

End Sub

xdwy81129

学习了，厉害，高手呀