在 Word 文件中快速向表格新增多列列或欄

作者Xiaoyang修改日期2024-08-30

處理 Word 文件時，向表格中新增列與欄是常見的任務，有助於更有效地組織與呈現資訊。本指南提供詳細步驟，說明如何在 Word 中快速且高效地一次新增多列或多欄。

向表格中選取範圍的上方／下方新增多列

向表格中選取範圍的左側或右側新增多欄

使用 VBA 程式碼向表格新增多列

刪除行列或欄

向表格中選取範圍的上方／下方新增多列

若要在選取的列上方或下方新增多列以容納更多資料，本節將引導您透過兩種簡易方法為表格快速加入多列：使用「版面配置」索引標籤，或透過滑鼠右鍵快捷選單。兩種方式同樣高效便捷，可依個人習慣選擇最直覺的操作方式。

步驟 1：選取您要在其上方或下方插入新列的列

按一下您想新增列的儲存格所在列中的任意儲存格，或直接點選整行。
若要插入多個新列，請先選取與您打算新增列數相同的現有列數。例如，若您想插入三列新資料，請先在表格中選取三列。

步驟 2：套用「在上方插入」／「在下方插入」功能

方法 1：選取列後，前往版面配置索引標籤，在「列與欄」群組中選擇「在上方插入」或「在下方插入」。請參閱螢幕截圖：
方法 2：在選取範圍上按一下滑鼠右鍵，然後選擇插入＞ 插入行上方／插入行下方，請參閱螢幕截圖：

結果：

系統將在您選取範圍的上方或下方，插入與所選列數相同的空白列。請參閱螢幕截圖：

插入行於選取範圍上方
插入行於選取範圍後方

📝提示：

格式設定規則：
當您在選取範圍上方新增列時，格式將與選取範圍的第一列一致；若在下方新增列，格式則會與選取範圍的最後一列相同。
用於新增列的快速鍵：
想快速在表格底部新增一列？只要在最後一行的最後一個儲存格按下 Tab 鍵，系統就會自動為您建立新列！

向表格中選取範圍的左側或右側新增多欄

本節詳細說明如何在 Word 表格中向現有選取範圍的左側或右側新增多欄。我們將介紹兩種主要方法：使用「版面配置」索引標籤與使用滑鼠右鍵快捷選單。

步驟 1：選取您要在其左側或右側插入新欄的欄

按一下您想新增欄的儲存格所在欄中的任意儲存格，或直接點選整列。
若要插入多個新欄，請先選取與您打算新增欄數相同的欄位。例如，若您想插入兩欄新資料，請先在表格中選取兩欄。

步驟 2：套用「向左插入」／「向右插入」功能

方法 1：選取欄位後，前往版面配置索引標籤，在「列與欄」群組中選擇「向左插入」或「向右插入」。請參閱下方螢幕截圖：
方法 2：在選取範圍上按一下滑鼠右鍵，然後選擇插入＞ 插入列左側／插入列右側，請參閱螢幕截圖：

結果：

系統將在您選取範圍的左側或右側插入與所選欄數相同的欄數。請參閱螢幕截圖：

插入列至選取範圍的左側
插入列至選取範圍的右側

使用 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 鍵以執行程式碼。在彈出的對話方塊中，輸入您要插入設定的行數，然後點選確定按鈕。

結果：

此程式碼將一次在指定位置（上方或下方）向表格新增指定數量的列。

刪除行列或欄

想從 Word 文件的表格中刪除列、欄或整行嗎？以下為您介紹幾種簡單實用的技巧！

步驟 1：選取表格中的整行或欄

將游標移至表格中該列第一個儲存格外側的左側，即可選取您要刪除的整行。此時游標會變為向右的箭頭，出現後點擊一下，即可選取整行。
若要選取欄，請將滑鼠指標移至目標欄第一個儲存格上方，待指標變為向下的箭頭後，按一下即可選取整欄。

步驟 2：按下 Backspace 鍵

按下 Backspace 鍵，即可立即刪除所選的列或欄。

強化您的 Word 表格：使用 Kutools for Word 輕鬆整理！

表格中充斥著空白或重複的列與欄，不僅讓資料顯得雜亂無章，更會打斷您的工作流程。Kutools for Word 提供高效解決方案！只需點擊幾下，即可輕鬆移除所有不必要的空白或重複列與欄，讓表格整齊清爽、資訊一目了然。立即升級您的 Word 體驗，使用 Kutools，享受更流暢、更有條理的文件編輯過程！

注意：Kutools for Word 提供超過 100 項功能，專為簡化 Word 文件中的複雜與批次作業而設計。其全新強大功能——KUTOOLS AI 助手功能，能透過 AI 驅動的洞察力提升您的寫作體驗：打造吸睛內容、優化文風與文法，並輕鬆摘要重點。立即下載，今天就開始免費試用！