使用VBA代码向表格添加多行当您需要向Word表格中添加比当前更多的行时，手动方法可能会很繁琐。本文将向您展示如何使用VBA代码高效快速地添加行。
步骤 1：选择要在其上方或下方插入新行的行
单击要添加多行的某一行中的任意单元格或整行。
步骤 2：打开VBA模块编辑器并复制代码
按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。 在打开的窗口中，点击 插入 > 模块 创建一个新的空白模块。 然后，将以下任一代码复制并粘贴到空白模块中。VBA代码：在选定行上方添加多行 Sub Addrowsabove()
'Updateby Extendoffice
Dim lngIndex As Long
Dim lngRowsToAdd As Long
Dim lngPosit As Long
Dim oTbl As Word.Table
If Selection.Information(wdWithInTable) Then
lngRowsToAdd = InputBox("How many rows?", "Kutools for Word", 1)
Set oTbl = Selection.Tables(1)
lngPosit = Selection.Rows(1).Range.Information(wdEndOfRangeRowNumber)
For lngIndex = 1 To lngRowsToAdd
oTbl.Rows.Add oTbl.Rows(lngPosit)
Next lngIndex
End If
End Sub VBA代码：在选定行下方添加多行 Sub Addrowsbelow()
'Updateby Extendoffice
Dim lngIndex As Long
Dim lngRowsToAdd As Long
Dim lngRowPosition As Long
Dim oTbl As Word.Table
If Selection.Information(wdWithInTable) Then
lngRowsToAdd = InputBox("How many rows?", "Kutools for Word", 1)
Set oTbl = Selection.Tables(1)
lngRowPosition = Selection.Rows(1).Index
For lngIndex = 1 To lngRowsToAdd
oTbl.Rows.Add oTbl.Rows(lngRowPosition + lngIndex)
Next lngIndex
End If
End Sub 步骤 3：执行代码
然后按 F5 键运行代码。在弹出的对话框中，请输入要插入的行号，并点击 确定 按钮。
结果：
该代码将一次性在指定位置（上方或下方）向您的表格添加指定数量的行。