如何用vba给一个word表格的最后插入一行
1个回答
2017-02-10 · 诚信经营，以人为本，客户致上！
广州速推信息科技有限公司
文芳阁传媒是一个专业在网络上承接企业，个人软文代写以及软文推广的平台。以低价格把新闻发布在新浪、网易、新华、凤凰、腾讯、央视等3000家门户及地方网站媒体，以塑造公司品牌的知名度和公信力.
向TA提问
关注
![]()
展开全部
用ActiveDocument.Tables(1).Rows.Add好像也行，不知两者的效果有没有区别。
ActiveDocument.Tables(1).Rows.Add方法总是在指定行的前面插入行。
如：
Sub Example2()
Dim myTable As Table, myLastRow As Row
Set myTable = Me.Tables(1)
Set myLastRow = myTable.Rows.Last
myTable.Rows.Add myLastRow
End Sub
而Selection对象可以在所选行的上方或者下方插入等量的行。
注意，Add方法也可以插入指定数量的行。
Sub Example3()
Dim myTable As Table, myRows As Rows
Set myTable = Me.Tables(1)
Set myRows = Me.Range(myTable.Rows(1).Range.Start, myTable.Rows(3).Range.End).Rows
myTable.Rows.Add myRows
End Sub
ActiveDocument.Tables(1).Rows.Add方法总是在指定行的前面插入行。
如：
Sub Example2()
Dim myTable As Table, myLastRow As Row
Set myTable = Me.Tables(1)
Set myLastRow = myTable.Rows.Last
myTable.Rows.Add myLastRow
End Sub
而Selection对象可以在所选行的上方或者下方插入等量的行。
注意，Add方法也可以插入指定数量的行。
Sub Example3()
Dim myTable As Table, myRows As Rows
Set myTable = Me.Tables(1)
Set myRows = Me.Range(myTable.Rows(1).Range.Start, myTable.Rows(3).Range.End).Rows
myTable.Rows.Add myRows
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
