Skip to main content

如何從 Word 文件的表格中刪除空行和空列?

Author: Amanda Li Last Modified: 2025-05-12

表格中的空行和空列可能會讓您的 Word 文件看起來雜亂無章。本教程將向您展示幾種有效的方法,以刪除 Word 文件中表格的所有空行和空列。

無論您是喜歡手動操作、使用 VBA 程式碼,還是採用一鍵解決方案,這些方法都可以幫助您清理表格並提升文件的整體外觀。


手動刪除表格中的所有空行和空列

Microsoft Word 沒有快速選項來刪除空行和空列,因此您必須手動選擇並逐一刪除它們。

  1. 選擇要刪除的空行或空列。

    An empty row and an empty column are selected

  2. 在 [表格工具] 下,點擊 [佈局] 選項卡。

    The Layout tab on the ribbon

  3. 在 [行與列] 群組中,點擊 [刪除行] 或 [刪除列]。

    Delete Rows or Delete Columns option


一鍵刪除表格中的所有空行和空列

Kutools for Word 提供了一個高效的解決方案,可以刪除文件中表格的所有空行和空列。只需單擊一下,Kutools for Word[刪除行/列] 功能即可快速刪除文件中所有或選定表格中的所有空行或空列,節省時間和精力。

Kutools for Word內建人工智慧 ?,提供超過 100 種實用功能,簡化您的工作流程。

安裝 Kutools for Word 後,請按照以下步驟操作:

  1. 點擊 Kutools Plus > 表格 > 刪除空白行/列

    Delete Blank Rows/Columns option on the Kutools Plus tab on the ribbon

  2. 將會出現 刪除表格中的空白或重複行/列 對話框。在 尋找範圍 部分,選擇要刪除空白行或列的範圍,可以是 選中的表格活動文件中的所有表格。然後:
    • 勾選 [行][空白行] 選項以刪除空行。
    • 或者,勾選 [列][空白列] 選項以刪除空列。
    Delete Blanks or Duplicate Rows/Columns in Table dialog box with the Row option selected Delete Blanks or Duplicate Rows/Columns in Table dialog box with the Column option selected
    提示:如果您想同時刪除空白行和列,請重複操作兩次。
  3. 將彈出一個確認對話框,顯示已處理的表格數量。點擊 [確定] 關閉它。現在表格中的空白行和列已經被刪除了。

    Confirmation dialog

Kutools for Word 是終極的 Word 增益工具,能夠簡化您的工作並提升文檔處理技能。立即獲取!

使用 VBA 程式碼刪除表格中的所有空行和空列

Word 中的宏功能提供了一種更便捷的方法來刪除文件中表格的所有空行和空列。請按照以下步驟高效地刪除它們:

  1. 按下 Alt + F11 打開 Microsoft Visual Basic for Applications 視窗。
  2. 點擊 模組插入 選項卡下,並將以下 VBA 程式碼複製並粘貼到模組視窗中。
    Sub DeleteEmptyTablerowsandcolumns()
    Application.ScreenUpdating = False
    Dim Tbl As Table, cel As Cell, i As Long, n As Long, fEmpty As Boolean
    With ActiveDocument
    For Each Tbl In .Tables
    n = Tbl.Columns.Count
    For i = n To 1 Step -1
    fEmpty = True
    For Each cel In Tbl.Columns(i).Cells
    If Len(cel.Range.Text) > 2 Then
    fEmpty = False
    Exit For
    End If
    Next cel
    If fEmpty = True Then Tbl.Columns(i).Delete
    Next i
    Next Tbl
    End With
    With ActiveDocument
    For Each Tbl In .Tables
    n = Tbl.Rows.Count
    For i = n To 1 Step -1
    fEmpty = True
    For Each cel In Tbl.Rows(i).Cells
    If Len(cel.Range.Text) > 2 Then
    fEmpty = False
    Exit For
    End If
    Next cel
    If fEmpty = True Then Tbl.Rows(i).Delete
    Next i
    Next Tbl
    End With
    Set cel = Nothing: Set Tbl = Nothing
    Application.ScreenUpdating = True
    End Sub
  3. 點擊 執行 按鈕 Run button 或按下 F5 以執行 VBA 程式碼並應用它。

演示:從 Word 文件的表格中刪除空白行和列

在這段來自 Kutools for Word 的影片中探索 Kutools / Kutools Plus 標籤。享受 100+ 項功能以及永久免費的 AI 工具。立即下載!

提示: 如果您想從 Excel 工作表中刪除空白行,Kutools for Excel[刪除空白行] 功能可以幫助您。

最佳辦公效率工具

Kutools for Word - 透過超過 100 項卓越功能提升您的 Word 體驗!

🤖 Kutools AI 功能AI助手 / 即時助手 / 超級潤色(保留格式)/ 超級翻譯(保留格式)/ AI遮擋 / AI校正...

📘 文件精通拆分頁面 / 合併文檔 / 以多種格式導出選擇內容(PDF/TXT/DOC/HTML...)/ 批量轉換為 PDF...

內容編輯跨多個文件進行批量查找和替換 / 調整所有圖片大小 / 翻轉表格的行與列 / 表格轉文本...

🧹 輕鬆清理:清除多餘空格 / 分節符 / 文本框 / 超鏈接 / 更多清除工具,請前往“清除”組...

創意插入:插入千位分隔符 / 複選框 / 選項按鈕 / 二維碼 / 條形碼 / 多張圖片 / 在“插入”組中發現更多...

🔍 精確選擇:精準定位特定頁面 / 表格 / 形狀 / 標題段落 / 使用更多選擇 ”功能增強導航...

星級增強功能跳轉至任意位置 / 自動插入重複文本 / 在文檔窗口之間切換 / 11 轉換工具...

Kutools and Kutools Plus tabs on the Word Ribbon
👉 想要試用這些功能嗎?立即下載 Kutools for Word!🚀
 

最佳辦公效率工具

Kutools for Word - 100+ Word 工具