Zum Hauptinhalt springen

Wie entferne ich doppelte Zeilen aus einer Tabelle in einem Word-Dokument?

Author: Sun Last Modified: 2025-05-28

In einem Word-Dokument gibt es möglicherweise einige Tabellen mit doppelten Zeilen, die Sie entfernen möchten, wobei Sie manchmal nur das erste Auftreten beibehalten möchten. In diesem Fall können Sie die doppelten Zeilen einzeln manuell entfernen oder den VBA-Code verwenden.

Doppelte Zeilen aus einer Tabelle in Word entfernen


Doppelte Zeilen aus einer Tabelle in Word entfernen

1. Platzieren Sie den Cursor in der Tabelle, aus der Sie die doppelten Zeilen entfernen möchten, und drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul um ein neues Modul zu erstellen.
Insert > Module options in the VBA window

3. Kopieren Sie den folgenden Code und fügen Sie ihn in das Skript des neuen Moduls ein.

VBA: Doppelte Zeilen aus einer Tabelle in Word entfernen

Public Sub DeleteDuplicateRows2()
'UpdatebyExtendoffice20181011
    Dim xTable As Table
    Dim xRow As Range
    Dim xStr As String
    Dim xDic As Object
    Dim I, J, KK, xNum As Long
    If ActiveDocument.Tables.Count = 0 Then
        MsgBox "This document does not have table(s).", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    Application.ScreenUpdating = False
    Set xDic = CreateObject("Scripting.Dictionary")
    If Selection.Information(wdWithInTable) Then
        Set xTable = Selection.Tables(1)
        For I = xTable.Rows.Count To 1 Step -1
            Set xRow = xTable.Rows(I).Range
            xStr = xRow.Text
            xNum = -1
            If xDic.Exists(xStr) Then
'                xTable.Rows(I).Delete
                For J = xTable.Rows.Count To 1 Step -1
                    If (xStr = xTable.Rows(J).Range.Text) And (J <> I) Then
                        xNum = xNum + 1
                        xTable.Rows(J).Delete
                    End If
                Next
                I = I - xNum
            Else
                xDic.Add xStr, I
            End If
        Next
    Else
        For I = 1 To ActiveDocument.Tables.Count
            Set xTable = ActiveDocument.Tables(I)
            xNum = -1
            xDic.RemoveAll
            For J = xTable.Rows.Count To 1 Step -1
                Set xRow = xTable.Rows(J).Range
                xStr = xRow.Text
                xNum = -1
                If xDic.Exists(xStr) Then
    '                xTable.Rows(I).Delete
                    For KK = xTable.Rows.Count To 1 Step -1
                        If (xStr = xTable.Rows(KK).Range.Text) And (KK <> J) Then
                            xNum = xNum + 1
                            xTable.Rows(KK).Delete
                        End If
                    Next
                    J = J - xNum
                Else
                    xDic.Add xStr, J
                End If
            Next
        Next
    End If
    Application.ScreenUpdating = True
End Sub

VBA pasted into the Module window

4. Drücken Sie die F5 Taste, um den Code auszuführen, dann werden alle doppelten Zeilen entfernt.
All duplicate rows are removed from the table

Hinweis: Der obige Code berücksichtigt die Groß-/Kleinschreibung. Wenn Sie doppelte Zeilen unabhängig von der Groß-/Kleinschreibung entfernen möchten, können Sie den folgenden Code verwenden:

Public Sub DeleteDuplicateRows2()
'UpdatebyExtendoffice20181011
    Dim xTable As Table
    Dim xRow As Range
    Dim xStr As String
    Dim xDic As Object
    Dim I, J, KK, xNum As Long
    If ActiveDocument.Tables.Count = 0 Then
        MsgBox "This document does not have table(s).", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    Application.ScreenUpdating = False
    Set xDic = CreateObject("Scripting.Dictionary")
    If Selection.Information(wdWithInTable) Then
        Set xTable = Selection.Tables(1)
        For I = xTable.Rows.Count To 1 Step -1
            Set xRow = xTable.Rows(I).Range
            xStr = UCase(xRow.Text)
            xNum = -1
            If xDic.Exists(xStr) Then
'                xTable.Rows(I).Delete
                For J = xTable.Rows.Count To 1 Step -1
                    If (xStr = xTable.Rows(J).Range.Text) And (J <> I) Then
                        xNum = xNum + 1
                        xTable.Rows(J).Delete
                    End If
                Next
                I = I - xNum
            Else
                xDic.Add xStr, I
            End If
        Next
    Else
        For I = 1 To ActiveDocument.Tables.Count
            Set xTable = ActiveDocument.Tables(I)
            xNum = -1
            xDic.RemoveAll
            For J = xTable.Rows.Count To 1 Step -1
                Set xRow = xTable.Rows(J).Range
                xStr = UCase(xRow.Text)
                xNum = -1
                If xDic.Exists(xStr) Then
    '                xTable.Rows(I).Delete
                    For KK = xTable.Rows.Count To 1 Step -1
                        If (xStr = xTable.Rows(KK).Range.Text) And (KK <> J) Then
                            xNum = xNum + 1
                            xTable.Rows(KK).Delete
                        End If
                    Next
                    J = J - xNum
                Else
                    xDic.Add xStr, J
                End If
            Next
        Next
    End If
    Application.ScreenUpdating = True
End Sub

Wenn Sie doppelte Zeilen aus allen Tabellen im Dokument entfernen möchten, platzieren Sie den Cursor an einer beliebigen Stelle außerhalb der Tabelle im Dokument und wenden Sie einen der obigen Codes an.


Office Tab: Führt tabbed Interfaces in Word, Excel, PowerPoint... ein
Navigate through documents using Office Tab
Verbessern Sie jetzt Ihren Arbeitsablauf.Mehr über Office Tab erfahren Kostenlos herunterladen

Erledigen Sie mehr in weniger Zeit mit KI-optimierten Kutools für Word

Kutools für Word ist nicht nur eine Sammlung von Werkzeugen – es ist eine intelligente Lösung, die entwickelt wurde, um Ihre Produktivität zu steigern. Mit KI-gestützten Funktionen und den wichtigsten Features hilft Ihnen Kutools, mehr in weniger Zeit zu erreichen:

  • Fassen Sie Inhalte zusammen, schreiben Sie sie um, verfassen Sie neue Texte und übersetzen Sie sie sofort.
  • Texte in Echtzeit korrekturlesen mit Vorschlägen zur Grammatik, Interpunktion und zum Stil, während Sie schreiben.
  • Inhalte umformulieren und übersetzen, ohne das Layout, den Stil oder die Struktur zu verändern.
  • Übersetzen Sie Ihre Inhalte mühelos in über 40 Sprachen und erweitern Sie so Ihren globalen Einfluss.
  • Erhalten Sie sofortige Hilfe und intelligente Einblicke basierend auf dem Inhalt Ihres aktuellen Dokuments.
  • Fragen Sie, wie Sie eine Aufgabe ausführen – wie das Entfernen von Abschnittsumbrüchen – und die KI wird Sie anleiten oder es für Sie erledigen.
  • Schwärzen Sie sensible oder vertrauliche Informationen innerhalb von Sekunden, um absolute Privatsphäre zu gewährleisten.
  • Alle Werkzeuge arbeiten nahtlos innerhalb von Word und sind immer griffbereit.
  • Dokumente mühelos erstellen, verfeinern, übersetzen, zusammenfassen und schützen.
  • Grammatik, Klarheit und Tonfall in Echtzeit verbessern, während Sie schreiben.
  • Inhalte umformulieren und übersetzen, ohne Änderungen am Layout oder der Formatierung vorzunehmen.
  • Fragen Sie, wie Sie eine Aufgabe ausführen – wie das Entfernen von Abschnittsumbrüchen – und die KI wird Sie anleiten oder es für Sie erledigen.
  • Alle Werkzeuge arbeiten nahtlos innerhalb von Word und sind immer griffbereit.
Erfahren Sie mehr über Kutools für Word Jetzt herunterladen
Kutools for Word features

Beste Büroproduktivitätswerkzeuge

Kutools für Word - Verbessern Sie Ihr Word-Erlebnis mit über 100 bemerkenswerten Funktionen!

🤖 Kutools AI-Funktionen: KI-Assistent / Echtzeit-Assistent / Super Polieren (Format beibehalten) / Super Übersetzen (Format beibehalten) / KI-Redaktion / KI Korrekturlesen...

📘 Dokumentenbeherrschung: Seiten teilen / Dokumente zusammenführen / Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML...) / Stapelweise in PDF konvertieren...

Inhaltsbearbeitung: Stapelweise Suchen und Ersetzen in mehreren Dateien / Alle Bilder skalieren / Zeilen und Spalten der Tabelle transponieren / Tabelle in Text umwandeln...

🧹 Müheloses Reinigen: Zusätzliche Leerzeichen entfernen / Abschnittsumbrüche / Textfelder / Hyperlinks / Für weitere Entfernungstools gehen Sie zur Entfernen-Gruppe...

Kreative Einfügungen: Tausendertrennzeichen einfügen / Kontrollkästchen / Optionsfelder / QR-Code / Barcode / Mehrere Bilder / Entdecken Sie mehr in der Einfügen-Gruppe...

🔍 Präzise Auswahlen: Bestimmte Seiten / Tabellen / Formen / Überschriftenabsätze / Verbessern Sie die Navigation mit mehr Auswahlfunktionen ...

Sterneverbesserungen: Zu jedem Standort navigieren / Automatisches Einfügen von wiederholtem Text / Wechsel zwischen Dokumentfenstern /11 Konvertierungswerkzeuge...

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Möchten Sie diese Funktionen ausprobieren? Laden Sie Kutools für Word jetzt herunter! 🚀