Skip to main content

Kutools for Office — 一套工具,五種功能。完成更多工作。

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

Author Amanda Li Last modified

表格中的空行和空列可能會讓您的 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內建 AI 🤖,提供超過 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 FeaturesAI AssistantReal-Time AssistantSuper Polish(保留格式)Super Translate(保留格式)AI RedactionAI Proofread...

📘 文件掌握分割頁面文檔合併區域導出成各種格式(PDF/TXT/DOC/HTML...)批量轉換為 PDF...

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

🧹 輕鬆清理:快速清除多餘空格分節符文字框超連結/更多清除工具請前往刪除工具組...

創意插入:插入千位分隔符複選框選項按鈕二維碼條形碼批量插入圖片/還有更多精彩功能在插入工具組...

🔍 精確選擇:精確定位特定頁面表格形狀標題段落/使用更多 選擇 功能提升導航效率...

亮點增強導航至任何區域自動插入重複文字切換文檔窗口11 轉換工具...

🌍 支援40+種語言:可用 Kutools於您偏好語言環境——支援英語、西班牙語、德語、法語、中文以及超過40種語言!

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

✨ Kutools for Office——一次安裝,五大強力工具!

包含 Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint

📦 五大工具一次全擁有 | 🔗 與 Microsoft Office 無縫整合 | ⚡ 即刻省時提高工作效率

最佳辦公效率工具

Kutools for Word - 100+ 款 Word 工具