快速從 Word 表格中移除重複列（3 種方法）

在 Microsoft Word 處理表格時，您可能會發現某些欄位包含完全相同的資料。這些重複的列不僅讓表格比實際需要更寬，也增加管理難度。由於 Word 並未內建自動移除重複列的功能，手動辨識與刪除這些項目往往耗時費力，尤其在處理大型表格時更是如此。

本教學將介紹三種高效方法，協助您輕鬆移除 Word 表格中完全重複的欄位。我們將先說明以 Excel 轉置作為替代方案，接著示範如何使用 Kutools 直接在 Word 中刪除重複項目，最後再介紹如何透過 VBA 巨集自動完成清理作業。您可以根據自身需求，選擇最適合的方法。

• 方法 1：使用 Excel 移除重複列
• 方法 2：使用 Kutools for Word 移除重複列
• 方法 3：使用 VBA 移除重複列

使用 Excel 移除重複列（轉置替代方案）

若您會使用 Excel，這個方法非常實用！只需透過資料＞ 刪除重複 功能，即可輕鬆移除重複的列。由於 Excel 是以「列」為單位（而非欄位）來判斷重複項目，因此請先將表格轉置，讓欄位變為列；移除重複項目後，再將資料轉置回原始版面配置：

Office Tab

為 Word、Excel、PowerPoint 等應用程式提供分頁導覽功能——就像網頁瀏覽器一樣，讓您在單一視窗中流暢切換！

免費下載了解更多

1. 將滑鼠游標移至包含重複資料的表格上，左上角會出現「表格移動控制點」，點擊即可選取整個表格。

   

2. 按下 Ctrl + C，立即複製表格！
3. 開啟 Excel，點選空白儲存格，再按下 Ctrl + V 貼上表格。
4. 在 Excel 中選取已貼上的表格，再次按下 Ctrl + C 進行複製。
   • 請再次複製表格，因為 Excel 必須先將其識別為原生工作表範圍後，轉置選項才會可用。
5. 在另一個空白儲存格上按右鍵，選擇選擇性貼上＞ 轉置（如下圖所示，您可在兩個位置找到）「轉置」選項）。

   

   • 此操作會將原始欄位轉換為列，讓 Excel 能準確偵測重複的列。
6. 選取轉置後的資料，然後前往資料＞ 刪除重複。

   

7. 在對話方塊中，取消勾選包含標題，再點擊確定，即可從轉置後的資料中移除重複列。

   

8. 複製清理後的資料（如下圖所示範圍 H1:L4），在空白儲存格上按右鍵，選擇選擇性貼上＞ 轉置，即可還原原始方向。

   

9. 複製最終結果，並貼回 Word 中。

   

使用 Kutools for Word 移除重複列

若您已安裝 Kutools for Word，這將是移除重複列最高效又便捷的方式！Kutools 讓您直接在 Word 中一鍵清除重複列，無論是針對目前表格、所選表格，還是整份文件中的所有表格皆能輕鬆搞定。無需複製表格到 Excel，也無需仰賴其他替代方案，堪稱最快、最實用的解決之道！

1. 選取您要從中移除重複列的特定表格；若打算處理目前文件中的所有表格，可略過此步驟。
2. 點擊 KUTOOLS PLUS＞ 表格＞ 刪除表格行/列。

   

3. 在對話方塊中：
   1. 將搜尋範圍設為下列其中一項：
      • 選中的表格（們）如果您只想處理所選取的表格。
      • 作用中文件的所有表格如果您想處理文件中的每一個表格。
   2. 選取欄。
   3. 選取重複列。
   4. 點擊確定，立即移除重複列！

      

根據您選擇的選項，所有完全相同的欄位將從指定的選取表格（或多個表格）或目前文件中的所有表格中移除。

使用 VBA 移除重複列

若您經常處理大型表格，並需多次移除重複列，使用 VBA 巨集可大幅節省時間。巨集能自動比對欄位，並刪除完全重複的項目，免去手動逐一檢查的麻煩。

1. 在 Word 中，點擊您要處理的表格內部。
2. 按下 Alt + F11，立即開啟 VBA 編輯器！
3. 點擊插入＞ 模組。

   

4. 請將下列程式碼貼入模組中。

   Sub RemoveDuplicateColumnsInSelectedTable()
       Dim tbl As Table
       Dim c1 As Long, c2 As Long
       Dim r As Long
       Dim isDup As Boolean
   
       If Selection.Information(wdWithInTable) = False Then
           MsgBox "Place the cursor inside the table first."
           Exit Sub
       End If
   
       Set tbl = Selection.Tables(1)
   
       For c1 = tbl.Columns.Count To 2 Step -1
           For c2 = c1 - 1 To 1 Step -1
   
               isDup = True
   
               For r = 1 To tbl.Rows.Count
                   If CleanCellText(tbl.Cell(r, c1).Range.Text) <> CleanCellText(tbl.Cell(r, c2).Range.Text) Then
                       isDup = False
                       Exit For
                   End If
               Next r
   
               If isDup Then
                   tbl.Columns(c1).Delete
                   Exit For
               End If
           Next c2
       Next c1
   
       MsgBox "Done. Duplicate columns removed."
   End Sub
   
   Private Function CleanCellText(ByVal s As String) As String
       s = Replace(s, Chr(13), "")
       s = Replace(s, Chr(7), "")
       CleanCellText = Trim$(s)
   End Function

5. 按下 F5 即可執行巨集！
6. 將出現確認對話方塊，顯示完成。已移除重複列。點擊確定即可關閉訊息。

   

表格中所有重複的欄位將自動移除，僅保留 Word 表格中的唯一欄位。

哪種方法最適合您？