如果上面的行不为空,则在excel中插入空行

时间:2015-07-29 15:32:01

标签: excel vba

如果A1不为空(包含实际数据),是否可以使用if-then,以便我可以在A1下插入一个空行。这应该适用于任何单元格/行,因为我有一个大约65000行的电子表格,并且他们希望有空格来分隔包含不同标识符的行。我在这里看到了,就在我注册之前,我看到了一些关于空单元格或根据其他单元格使单元格空的东西,但这似乎不是我正在寻找的东西。谷歌也没有太多帮助。

感谢。

1 个答案:

答案 0 :(得分:1)

这是你想要的吗?

  Sub helping()
        Dim count As Long
        For count = ActiveSheet.UsedRange.Rows.count To 1 Step -1
            If Information.IsEmpty(Cells(count, 1)) = False Then Rows(count + 1).Insert
        Next count
    End Sub