使用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鍵運行代碼。在彈出的對話框中，請輸入您要插入的行數，然後點擊「確定」按鈕。
結果：
該代碼將一次性在指定位置（上方或下方）添加指定數量的行到您的表格中。