Wie kann man die automatische Nummerierung bei doppelten Spaltenüberschriften in einer Excel-Tabelle verhindern?

In Excel wird beim Eingeben einer doppelten Spaltenüberschrift in der Tabelle automatisch eine Zahl hinzugefügt, wie z.B. Name, Name1, Name2, und diese Zahl kann nicht entfernt werden, wie der folgende Screenshot zeigt. Um die automatische Nummerierung bei doppelten Spaltenüberschriften in der Tabelle zu verhindern, können Sie Leerzeichen am Ende zur doppelten Überschrift hinzufügen. Hier ist ein VBA-Code, der Ihnen helfen kann, die Überschrift zu wiederholen und automatisch Leerzeichen am Ende hinzuzufügen, sodass sie unterschiedlich sind, aber gleich aussehen.

Automatisches Hinzufügen von Leerzeichen am Ende zur Überschrift

Hinweis: Die in diesem Tutorial bereitgestellten Methoden wurden in Excel 2021 getestet; es kann Unterschiede in verschiedenen Excel-Versionen geben.

1. Geben Sie die zu wiederholenden Überschriften in einer Spalte ein, dann 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 im Fenster Microsoft Visual Basic for Applications zu erstellen, und kopieren Sie den folgenden Code hinein.

VBA: Wiederholen und Leerzeichen am Ende hinzufügen

Sub repeat()
'UpdatebyExtendoffice20220927
    Dim xRg As Range
    Dim saveRg As Range
    Dim xIndex As Integer
    Dim xCount As Integer
    Dim k As Integer
    Dim xStr As String
    Set xRg = Application.InputBox("Select the cells that you want to repeat", "kte", , , , , , 8)
    xIndex = Application.InputBox("Enter the repeat times", "kte")
    Set saveRg = Application.InputBox("Select a cell to output", "kte", , , , , , 8)
    xStr = ""
    xCount = xRg.Cells.Count * xIndex
    Set saveRg = saveRg.Range("a1").Resize(1, xCount)
    k = 0
    For i = 1 To xIndex
        For j = 1 To xRg.Cells.Count
            k = k + 1
            saveRg.Cells(k).Value = xRg.Cells(j).Value + xStr
        Next
        xStr = xStr + " "
    Next
End Sub

3. Klicken Sie auf Ausführen  Schaltfläche im Menüband oder drücken Sie F5 Taste, um den Code zu aktivieren. Im ersten erscheinenden Dialogfeld wählen Sie die zu wiederholenden Überschriften aus. Klicken Sie auf OK.

4. Im zweiten erscheinenden Dialogfeld geben Sie die Anzahl der Wiederholungen ein. Klicken Sie auf OK.

5. Wählen Sie eine Zelle aus, in der Sie die wiederholten Überschriften ausgeben möchten. Klicken Sie auf OK.

Jetzt wurden die Überschriften wiederholt und mit Leerzeichen am Ende versehen.

6. Wählen Sie die Überschriften aus und kopieren Sie sie, indem Sie Strg + C drücken, und fügen Sie sie durch Drücken von Strg + V. zurück in die gewünschte Tabelle ein.

Jetzt sehen Sie, dass die Tabelle doppelte Spaltenüberschriften ohne Nummerierung hat.

Entfesseln Sie die Magie von Excel mit Kutools AI

• Intelligente Ausführung: Führen Sie Zellenoperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles angetrieben durch einfache Befehle.
• Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe zu optimieren.
• VBA-Codierung: Schreiben und implementieren Sie VBA-Code mühelos.
• Formelinterpretation: Verstehen Sie komplexe Formeln mit Leichtigkeit.
• Textübersetzung: Überwinden Sie Sprachbarrieren in Ihren Tabellen.

Erweitern Sie Ihre Excel-Fähigkeiten mit KI-gestützten Tools. Laden Sie jetzt herunter und erleben Sie eine Effizienz wie nie zuvor!

---

Die besten Tools zur Büroproduktivität

Kutools für Excel löst die meisten Ihrer Probleme und steigert Ihre Produktivität um 80 %

• Super Formel-Leiste (F) (mehrere Zeilen Text und Formeln einfach bearbeiten); Lese-Layout (einfaches Lesen und Bearbeiten einer großen Anzahl von Zellen); Einfügen in gefilterte Bereiche...
• Zellen/Zeilen/Spalten zusammenführen und Daten behalten; Zellinhalt aufteilen; Doppelte Zeilen zusammenführen und Summe/Durchschnitt berechnen... Doppelte Zellen verhindern; Bereiche vergleichen...
• Doppelte oder eindeutige Zeilen auswählen; Leere Zeilen auswählen (alle Zellen sind leer); Super Suchen und unscharfes Suchen in vielen Arbeitsmappen; Zufällige Auswahl...
• Exakte Kopie mehrerer Zellen ohne Änderung der Formelreferenz; Automatisches Erstellen von Referenzen zu mehreren Blättern; Aufzählungszeichen, Kontrollkästchen und mehr einfügen...
• Formeln, Bereiche, Diagramme und Bilder favorisieren und schnell einfügen; Zellen mit Passwort verschlüsseln; Mailingliste erstellen und E-Mails senden...
• Text extrahieren, Text hinzufügen, Zeichen an einer bestimmten Position entfernen, Leerzeichen entfernen; Druckstatistik erstellen und drucken; Zwischen Zelleninhalt und Kommentaren konvertieren...
• Super Filter (Filter-Schemata speichern und auf andere Blätter anwenden); Erweiterte Sortierung nach Monat/Woche/Tag, Häufigkeit und mehr; Spezialfilter nach Fett, Kursiv...
• Arbeitsmappen und Arbeitsblätter konsolidieren; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten auf mehrere Blätter aufteilen; Stapelkonvertierung von xls, xlsx und PDF...
• Gruppierung von PivotTables nach Kalenderwoche, Wochentag und mehr... Entsperre und gesperrte Zellen durch unterschiedliche Farben anzeigen; Zellen mit Formel/Name hervorheben...

Weiterlesen... Vollständige Funktionen 30-Tage-Testversion... Kaufen... 

---

Office Tab - bringt das Register-Interface ins Office und macht Ihre Arbeit viel einfacher

• Aktivieren Sie die Registerkarten-Bearbeitung und den Lese-Modus in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
• Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs desselben Fensters, anstatt in neuen Fenstern.
• Steigert Ihre Produktivität um 50 % und reduziert Hunderte von Mausklicks täglich!

Weiterlesen... Vollständige Funktionen 30-Tage-Testversion... Kaufen...