Entfernen Sie schnell Doppelte Spalte aus einer Word-Tabelle (3 Methoden)

Beim Arbeiten mit Tabellen in Microsoft Word stellen Sie möglicherweise fest, dass einige Spalten exakt dieselben Daten enthalten. Solche doppelten Spalten machen Ihre Tabelle unnötig breit und schwerer handhabbar. Da Word kein integriertes Werkzeug zum automatischen Entfernen doppelter Spalten bietet, kann das manuelle Identifizieren und Löschen dieser Spalten – besonders bei großen Tabellen – erheblichen Zeit- und Arbeitsaufwand verursachen.

In diesem Tutorial lernen Sie drei effektive Methoden kennen, um vollständig identische Spalten in Word-Tabellen zu entfernen: Beginnen Sie mit der Excel-Transponier-Umgehungslösung, erfahren Sie anschließend, wie Sie Duplikate direkt in Word mithilfe von Kutools entfernen, und entdecken Sie abschließend, wie Sie ein VBA-Makro für die automatisierte Bereinigung nutzen. Wählen Sie einfach die Methode, die am besten zu Ihrer Situation passt.

• Methode 1: Entfernen Sie Doppelte Spalte mithilfe von Excel
• Methode 2: Entfernen Sie Doppelte Spalte mit Kutools für Word
• Methode 3: Entfernen Sie Doppelte Spalte mithilfe von VBA

Entfernen Sie Doppelte Spalte mithilfe von Excel (Umgehungslösung mit Transponieren)

Diese Methode ist eine praktikable Option für Benutzer, die Zugriff auf Excel haben. Excel kann doppelte Zeilen mithilfe von Daten > Duplikate entfernen entfernen. Da Excel das Entfernen von Duplikaten zeilenweise – nicht spaltenweise – durchführt, müssen Sie die Tabelle zunächst transponieren, sodass die Spalten zu Zeilen werden, anschließend die Duplikate entfernen und die Daten danach wieder in ihr ursprüngliches Layout zurücktransponieren:

Office Tab

Tabbasierte Navigation für Word, Excel, PowerPoint und mehr – genau wie im Webbrowser, mit flüssigem Wechsel zwischen Dokumenten in einem einzigen Fenster.

Kostenloser DownloadWeitere Informationen

1. Bewegen Sie den Mauszeiger über die Tabelle mit Duplikaten, um den Tabellenverschiebe-Griff in der oberen linken Ecke einzublenden, und klicken Sie darauf, um die gesamte Tabelle auszuwählen.

   

2. Drücken Sie Strg + C, um die Tabelle zu kopieren.
3. Öffnen Sie Excel, klicken Sie auf eine leere Zelle und drücken Sie dann Strg + V, um die Tabelle einzufügen.
4. Wählen Sie die eingefügte Tabelle in Excel aus und drücken Sie erneut Strg + C, um sie zu kopieren.
   • Kopieren Sie die Tabelle erneut, da Excel sie als nativen Arbeitsblattbereich erkennen muss, bevor die Transponieren-Option verfügbar wird.
5. Klicken Sie mit der rechten Maustaste auf eine andere leere Zelle, wählen Sie Inhalte einfügen>Transponieren(Sie finden die Option)Transponierenan zwei Stellen, wie unten gezeigt).

   

   • Dadurch werden die ursprünglichen Spalten in Zeilen umgewandelt, sodass Excel doppelte Spalten korrekt erkennen kann.
6. Wählen Sie die transponierten Daten aus und wechseln Sie zu Daten>Duplikate entfernen.

   

7. Deaktivieren Sie im Dialogfeld Titel einschließen, und klicken Sie auf OK, um Doppelte Zeile aus den transponierten Daten zu entfernen.

   

8. Kopieren Sie die bereinigten Daten (Bereich H1:L4 in der folgenden Abbildung), klicken Sie dann mit der rechten Maustaste auf eine leere Zelle und verwenden Sie erneut Inhalte einfügen>Transponieren, um die ursprüngliche Ausrichtung wiederherzustellen.

   

9. Kopieren Sie das endgültige Ergebnis, und fügen Sie es wieder in Word ein.

   

Entfernen Sie Doppelte Spalte mit Kutools für Word

Wenn Kutools für Word installiert ist, ist dies die effizienteste und bequemste Methode, um doppelte Spalten zu entfernen. Mit Kutools können Sie doppelte Spalten direkt in Word löschen – egal, ob Sie nur die aktuelle Tabelle, ausgewählte Tabellen oder alle Tabellen im aktiven Dokument bearbeiten möchten. Es ist nicht nötig, die Tabelle nach Excel zu kopieren oder auf Umwege zurückzugreifen, was diese Methode zur schnellsten und praktikabelsten Lösung macht.

1. Wählen Sie die spezifische(n) Tabelle(n) aus, aus der bzw. denen Sie doppelte Spalten entfernen möchten. Überspringen Sie diesen Schritt, wenn Sie alle Tabellen im aktiven Dokument verarbeiten möchten.
2. Klicken Sie auf KUTOOLS PLUS>Tabelle>Leere Zeilen/Spalten löschen.

   

3. Im Dialogfeld:
   1. Stellen Sie Suchen inauf eine der folgenden Optionen ein:
      • Ausgewählte Tabelle(n), wenn Sie nur die ausgewählten Tabellen verarbeiten möchten.
      • Alle Tabellen im aktiven Dokument, wenn Sie jede Tabelle im Dokument verarbeiten möchten.
   2. Wählen Sie die Spalte aus.
   3. Wählen Sie die Doppelte Spalte aus.
   4. Klicken Sie auf OK, um Doppelte Spalte zu entfernen.

      

Alle vollständig identischen Spalten werden – je nach Ihrer Wahl – entweder aus der ausgewählten Tabelle oder aus allen Tabellen im aktiven Dokument entfernt.

Entfernen Sie Doppelte Spalte mithilfe von VBA

Wenn Sie regelmäßig mit großen Tabellen arbeiten und mehrfach doppelte Spalten entfernen müssen, spart Ihnen ein VBA-Makro wertvolle Zeit. Es vergleicht Spalten automatisch und löscht alle vollständig identischen – ganz ohne manuelle Prüfung.

1. Klicken Sie in Word innerhalb der Tabelle, die Sie verarbeiten möchten.
2. Drücken Sie Alt + F11, um den VBA-Editor zu öffnen.
3. Klicken Sie auf Einfügen>Modul.

   

4. Fügen Sie den folgenden Code in das Modul ein.

   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. Drücken Sie F5, um das Makro auszuführen.
6. Ein Bestätigungsdialog erscheint mit der Meldung Fertig. Doppelte Spalte entfernt. Klicken Sie auf OK, um die Meldung zu schließen.

   

Alle vollständig identischen Spalten in der ausgewählten Tabelle werden automatisch entfernt, sodass nur eindeutige Spalten in Ihrer Word-Tabelle verbleiben.

Welche Methode funktioniert für Sie am besten?