×

插行 空行 表格 vba add

使用VBA在Word表格里插入空行

鹭岛小千 鹭岛小千 发表于2021-04-01 22:29:24 浏览128 评论0

抢沙发发表评论

【问题描述】使用VBA,如何在Word表格里插入空行?

【小千解析】使用Rows.Add方法,举例如下:

初始表格:

2-1.png


【1】在末行下方插行

Sub xqoffice1()
    ThisDocument.Tables(1).Rows.Add
End Sub

效果:

2-2.png


【2】在末行上方插行

Sub xqoffice2()
    With ThisDocument.Tables(1).Rows
        .Add .Last
    End With
End Sub

效果:

2-3.png


【3】在第2行上方插行

Sub xqoffice3()
    With ThisDocument.Tables(1).Rows
        .Add .Item(2)
    End With
End Sub

效果:

2-4.png


【4】在倒数第2行上方插行

Sub xqoffice4()
    With ThisDocument.Tables(1).Rows
        .Add .Item(.Count - 1)
    End With
End Sub

效果:

2-5.png



打赏码.png


【参考资料】

Rows.Add方法(Word)


群贤毕至

访客