Quickly remove duplicate columns from a Word table (3 Methods)

When working with tables in Microsoft Word, you may notice that some columns contain exactly the same data. These duplicate columns can make your table wider than necessary and harder to manage. Since Word does not offer a built-in tool to remove duplicate columns automatically, identifying and deleting them manually can take considerable time and effort, especially in large tables.

In this tutorial, you will learn three effective methods to remove fully identical columns in Word tables. We’ll start with the Excel transpose workaround, then look at how to remove duplicates directly in Word using Kutools, and finally show how to use a VBA macro for automated cleanup. You can choose the method that works best for your situation.

• Method 1: Remove duplicate columns using Excel
• Method 2: Remove duplicate columns with Kutools for Word
• Method 3: Remove duplicate columns using VBA

Remove duplicate columns using Excel (transpose workaround)

This method is a practical option for users who have access to Excel. Excel can remove duplicate rows using Data > Remove Duplicates. Because Excel removes duplicates by rows rather than columns, you need to transpose the table first so the columns become rows, remove the duplicates, and then transpose the data back to its original layout:

Office Tab

Tabbed navigation for Word, Excel, PowerPoint, and more—just like a web browser, with smooth switching in one window.

Free DownloadLearn More

1. Move your mouse over the table containing duplicates to display the Table Move Handle at the top-left corner, then click it to select the entire table.

   

2. Press Ctrl + C to copy the table.
3. Open Excel, click a blank cell, then press Ctrl + V to paste the table.
4. Select the pasted table in Excel, then press Ctrl + C again to copy it.
   • Copy the table again because Excel must recognize it as a native worksheet range before the Transpose option becomes available.
5. Right-click another blank cell, choose Paste Special > Transpose (You can find the Transpose option in two places as shown below).

   

   • This converts the original columns into rows so Excel can detect duplicate columns correctly.
6. Select the transposed data, then go to Data > Remove Duplicates.

   

7. In the dialog box, uncheck My data has headers, then click OK to remove duplicate rows from the transposed data.

   

8. Copy the cleaned data (range H1:L4 in the screenshot below), then right-click on a blank cell and use Paste Special > Transpose again to restore the original orientation.

   

9. Copy the final result and paste it back into Word.

   

Remove duplicate columns with Kutools for Word

If you have Kutools for Word installed, this is the most efficient and convenient way to remove duplicate columns. Kutools lets you delete duplicate columns directly within Word, whether you want to process the current table, selected tables, or all tables in the active document. There is no need to copy the table to Excel or rely on workarounds, making it the fastest and most practical solution.

1. Select the specific table(s) you want to remove duplicate columns from. Skip this step if you plan to process all tables in the active document.
2. Click Kutools Plus > Table > Delete Blank Rows/Columns.

   

3. In the dialog box:
   1. Set Look in to one of the following:
      • Selected table(s) if you only want to process the selected tables.
      • All tables in active document if you want to process every table in the document.
   2. Select Column.
   3. Select Duplicate column.
   4. Click OK to remove duplicate columns.

      

All fully identical columns are removed from the selected table(s) or from all tables in the active document, depending on the option you choose.

Remove duplicate columns using VBA

If you regularly work with large tables and need to remove duplicate columns more than once, using a VBA macro can save time. A macro can automatically compare columns and delete those that are fully identical, eliminating the need for manual checks.

1. Click inside the table you want to process in Word.
2. Press Alt + F11 to open the VBA editor.
3. Click Insert > Module.

   

4. Paste the following code into the module.

   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. Press F5 to run the macro.
6. A confirmation dialog appears stating Done. Duplicate columns removed. Click OK to close the message.

   

All fully identical columns in the selected table are automatically removed, leaving only unique columns in your Word table.

Which method works best for you?