Hoe voorkom je automatische nummering bij dubbele kolomkoppen in een Excel-tabel?

In Excel, wanneer je een dubbele kolomkop in een tabel typt, wordt er automatisch een nummer toegevoegd zoals naam, naam1, naam2, en dit nummer kan niet worden verwijderd, zoals te zien is in de onderstaande schermafbeelding. Om de automatische nummering bij dubbele kolomkoppen in een tabel te voorkomen, kun je spaties toevoegen aan het einde van de kop. Hier is een VBA-code die je kan helpen om de kop te herhalen en automatisch spaties toe te voegen aan het einde, zodat ze anders zijn maar er hetzelfde uitzien.

Automatisch spaties toevoegen aan kop

Opmerking: de methoden in deze handleiding zijn getest in Excel 2021, er kunnen verschillen zijn in andere versies van Excel.

1. Typ de koppen die je wilt herhalen in een kolom, druk dan op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op Invoegen > Module om een nieuwe module te maken in het venster Microsoft Visual Basic for Applications, kopieer en plak vervolgens de onderstaande code erin.

VBA: Herhaal en voeg spaties toe aan het einde

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. Klik Uitvoeren  knop in de werkbalk of druk op F5 toets om de code te activeren, selecteer in het eerste pop-upvenster de koppen die je wilt herhalen. Klik OK.

4. Typ in het tweede pop-upvenster het aantal keren dat je wilt herhalen. Klik OK.

5. Selecteer een cel waar je de herhaalde koppen wilt uitvoeren. Klik OK.

Nu zijn de koppen herhaald en voorzien van spaties aan het einde.

6. Selecteer de koppen en kopieer ze door op Ctrl + C te drukken, en plak ze terug in de tabel door op Ctrl + V. te drukken.

Nu zie je dat de tabel dubbele kolomkoppen heeft zonder nummering.

Ontdek de Magie van Excel met Kutools AI

• Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
• Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
• VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
• Formule-uitleg: Begrijp complexe formules gemakkelijk.
• Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.

Verhoog uw Excel-mogelijkheden met AI-aangedreven tools. Download Nu en ervaar een ongekende efficiëntie!

---

De Beste Office Productiviteitstools

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

• Super Formulebalk (bewerk eenvoudig meerdere regels tekst en formules); Leeslayout (lees en bewerk eenvoudig grote aantallen cellen); Plakken in gefilterd bereik...
• Cellen/Rijen/Kolommen samenvoegen en gegevens behouden; Celinhoud splitsen; Dubbele rijen combineren en optellen/gemiddelde berekenen... Voorkom dubbele cellen; Bereiken vergelijken...
• Selecteer dubbele of unieke rijen; Selecteer lege rijen (alle cellen zijn leeg); Super Zoeken en Fuzzy Zoeken in veel werkboeken; Willekeurige selectie...
• Exacte kopie van meerdere cellen zonder formuleverwijzing te wijzigen; Automatisch verwijzingen naar meerdere werkbladen maken; Opsommingstekens, selectievakjes en meer invoegen...
• Favoriete en snel formules, bereiken, grafieken en afbeeldingen invoegen; Cellen versleutelen met wachtwoord; Mailinglijst maken en e-mails versturen...
• Tekst extraheren, Tekst toevoegen, Verwijder tekens op een specifieke positie, Spaties verwijderen; Maak en print statistieken per pagina; Converteer tussen celinhoud en opmerkingen...
• Superfilter (filter schema's opslaan en toepassen op andere werkbladen); Geavanceerd sorteren op maand/week/dag, frequentie en meer; Speciaal filteren op vet, cursief...
• Werkboeken en werkbladen combineren; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere werkbladen; Batchconversie xls, xlsx en PDF...
• Draaitabelgroepering op weeknummer, dag van de week en meer... Toon ontgrendelde, vergrendelde cellen met verschillende kleuren; Markeer cellen die een formule/naam bevatten...

Lees meer... Volledige functies 30-daagse gratis proefversie... Aanschaffen... 

---

Office Tab - brengt een tabbladinterface naar Office en maakt uw werk veel gemakkelijker

• Schakel tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project in.
• Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
• Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!

Lees meer... Volledige functies 30-daagse gratis proefversie... Aanschaffen...