Verwijder snel Dubbele kolom uit een Word-tabel (3 methoden)

Bij het werken met tabellen in Microsoft Word merkt u soms dat bepaalde kolommen exact dezelfde gegevens bevatten. Deze dubbele kolommen maken uw tabel onnodig breder en lastiger te beheren. Aangezien Word geen ingebouwde functie biedt om dubbele kolommen automatisch te verwijderen, kost het handmatig identificeren en verwijderen ervan aanzienlijk veel tijd en moeite—vooral bij grote tabellen.

In deze handleiding leert u drie effectieve methoden om volledig identieke kolommen in Word-tabellen te verwijderen. We beginnen met de Excel-transpose-truc, gaan vervolgens in op het direct verwijderen van dubbele items in Word met Kutools en sluiten af met een VBA-macro voor geautomatiseerde opschoning. Kies de methode die het beste aansluit bij uw situatie.

• Methode 1: Verwijder Dubbele kolom met behulp van Excel
• Methode 2: Verwijder Dubbele kolom met Kutools voor Word
• Methode 3: Verwijder Dubbele kolom met behulp van VBA

Verwijder Dubbele kolom met Excel (transpose-truc)

Deze methode is een praktische optie voor gebruikers met toegang tot Excel. Met Excel kunt u dubbele rijen verwijderen via Gegevens > Dubbele items verwijderen. Omdat Excel dubbele items verwijdert per rij en niet per kolom, moet u de tabel eerst transponeren — zodat kolommen rijen worden — de duplicaten verwijderen en de gegevens daarna weer terugtransponeren naar de oorspronkelijke lay-out:

Office Tab

Tabbladnavigatie voor Word, Excel, PowerPoint en meer — net als in een webbrowser, met vloeiend schakelen tussen documenten in één venster.

Gratis downloadenMeer informatie

1. Beweeg uw muis over de tabel met duplicaten om de knop voor het verplaatsen van de tabel linksboven te tonen, en klik erop om de volledige tabel te selecteren.

   

2. Druk op Ctrl + C om de tabel te kopiëren.
3. Open Excel, klik op een lege cel en druk op Ctrl + V om de tabel te plakken.
4. Selecteer de geplakte tabel in Excel en druk opnieuw op Ctrl + Com deze opnieuw te kopiëren.
   • Kopieer de tabel opnieuw, want Excel moet deze eerst herkennen als een systeemeigen werkbladbereik voordat de Transponeren-optie beschikbaar wordt.
5. Klik met de rechtermuisknop op een andere lege cel, kies Plakken speciaal>Transponeren(U vindt de optie)Transponerenop twee plaatsen, zoals hieronder wordt weergegeven).

   

   • Hierdoor worden de oorspronkelijke kolommen omgezet in rijen, zodat Excel dubbele waarden correct kan detecteren.
6. Selecteer de getransponeerde gegevens en ga naar Gegevens>Dubbele items verwijderen.

   

7. Schakel in het dialoogvenster Titels opnemenuit en klik op OKom Dubbele rij uit de getransponeerde gegevens te verwijderen.

   

8. Kopieer de opgeschoonde gegevens (bereik H1:L4 in de onderstaande afbeelding), klik met de rechtermuisknop op een lege cel en gebruik opnieuw Plakken speciaal>Transponerenom de oorspronkelijke oriëntatie te herstellen.

   

9. Kopieer het eindresultaat en plak het terug in Word.

   

Verwijder Dubbele kolom met Kutools voor Word

Als u Kutools voor Word hebt geïnstalleerd, is dit de meest efficiënte en handige manier om dubbele kolommen te verwijderen. Met Kutools verwijdert u direct dubbele kolommen in Word — of u nu de huidige tabel, geselecteerde tabellen of alle tabellen in het actieve document wilt verwerken. U hoeft de tabel niet naar Excel te kopiëren of workarounds toe te passen, waardoor dit de snelste en meest praktische oplossing is.

1. Selecteer de specifieke tabel(len) waaruit u dubbele kolommen wilt verwijderen. Sla deze stap over als u alle tabellen in het actieve document wilt verwerken.
2. Klik op KUTOOLS PLUS>Tabel>Verwijder lege rijen/kolommen.

   

3. In het dialoogvenster:
   1. Stel Zoeken inin op een van de volgende opties:
      • Geselecteerde tabel(len), als u alleen de geselecteerde tabellen wilt verwerken.
      • Alle tabellen in actief document, als u elke tabel in het document wilt verwerken.
   2. Selecteer Kolom.
   3. Selecteer Dubbele kolom.
   4. Klik op OKom Dubbele kolom te verwijderen.

      

Alle volledig identieke kolommen zijn verwijderd uit de geselecteerde tabel(len) of uit alle tabellen in het actieve document, afhankelijk van uw keuze.

Verwijder Dubbele kolom met VBA

Als u regelmatig met grote tabellen werkt en vaker dan eens dubbele kolommen hoeft te verwijderen, bespaart een VBA-macro u tijd. Met een macro worden kolommen automatisch vergeleken en volledig identieke kolommen direct verwijderd—zonder handmatige controle.

1. Klik in de tabel in Word die u wilt verwerken.
2. Druk op Alt + F11 om de VBA-editor te openen.
3. Klik op Invoegen>Module.

   

4. Plak de volgende code in de 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. Druk op F5 om de macro uit te voeren.
6. Er verschijnt een bevestigingsdialoog met de melding Gereed. Dubbele kolom verwijderd. Klik op OK om het bericht te sluiten.

   

Alle volledig identieke kolommen in de geselecteerde tabel zijn automatisch verwijderd, zodat uw Word-tabel uitsluitend unieke kolommen bevat.

Welke methode werkt het beste voor u?