Hoe voorkomt u automatische nummering bij de dubbele kolomkoptekst in een Excel-tabel?

In Excel wordt automatisch een nummer toegevoegd aan dubbele kolomkopteksten in een tabel – zoals name, name1, name2 – en dit nummer kan niet worden verwijderd, zoals in de onderstaande afbeelding te zien is. Om automatische nummering bij dubbele kolomkopteksten te voorkomen, plaatst u eenvoudigweg een spatie achteraan de koptekst. Hieronder vindt u een VBA-code waarmee u de koptekst kunt herhalen en automatisch extra spaties kunt toevoegen, zodat ze technisch gezien verschillend zijn maar er visueel identiek uitzien.

Voeg automatisch Volgende spaties toe aan koptekst

Opmerking: De methoden in deze handleiding zijn getest in Excel 2021; er kunnen verschillen optreden tussen versies van Excel.

1. Typ de kopteksten die u wilt herhalen in een kolom en druk op Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.

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

VBA: Herhaal en voeg Volgende spaties toe

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 op de knop Uitvoeren in het lint of druk op F5 om de code uit te voeren. Selecteer in het eerste dialoogvenster de kopteksten die u wilt herhalen en klik op OK.

4. Typ in het tweede dialoogvenster de herhalingstijd die u wilt gebruiken en klik op OK.

5. Selecteer een cel waar u de herhaalde kopteksten wilt plaatsen en klik op OK.

De kopteksten worden nu herhaald en voorzien van volgende spaties.

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

U ziet nu dat de tabel dubbele kolomkopteksten heeft, zonder nummering.

Ontgrendel de magie van Excel met KUTOOLS AI

• Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
• aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
• VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
• Formule-uitleg: Begrijp complexe formules moeiteloos.
• Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.

Breid uw Excel-mogelijkheden uit met AI-gestuurde tools.Download nuen ervaar efficiëntie zoals nooit tevoren!

---

De beste kantoorproductiviteitstools

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); Leeslay-out (lees en bewerk gemakkelijk grote aantallen cellen); Plakken naar Filterbereik...
• Samengevoegde cellen/rijen/kolommen en bijbehorende gegevens behouden; inhoud van cellen splitsen; Dubbele rijen combineren en som/gemiddelde berekenen... Voorkom dubbele invoer in cellen; Bereiken vergelijken...
• Selecteer dubbele of unieke rijen; selecteer lege rijen (alle cellen zijn leeg); superzoeken en fuzzy zoeken in meerdere werkmappen; willekeurig selecteren...
• Exacte kopie van meerdere cellen zonder dat u de formuleverwijzing hoeft te wijzigen; automatisch verwijzingen maken naar meerdere werkbladen; opsommingstekens invoegen, selectievakjes en meer...
• Favoriete formules, berekeningen, grafieken en afbeeldingen snel invoegen;Cellen met wachtwoord versleutelen;Mailinglijst maken en e-mails verzenden...
• Tekst extraheren, tekst toevoegen, tekens verwijderen op een bepaalde positie, spaties verwijderen; gegevensbladstatistieken maken en afdrukken; converteren tussen celinhoud en opmerkingen...
• Superfilter (sla filterinstellingen op en pas ze toe op andere werkbladen); Geavanceerd sorteren per maand, week, dag, frequentie en meer; Speciaal filter op vet, cursief...
• Combineer werkmappen en werkbladen; voeg tabellen samen op basis van een sleutelkolom; splits gegevens op in meerdere werkbladen; batchconverteer xls-, xlsx- en PDF-bestanden...
• Groepeer draaitabel op weeknummer, dag van de week en meer...Toon niet-vergrendelde en vergrendelde selecties met verschillende kleuren;Markeer cellen met formules of namen...

Meer lezen...Volledige functionaliteit – 30 dagen gratis proefversie...Aanschaffen... 

---

Office Tab – brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger

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

Meer lezen...Volledige functionaliteit – 30 dagen gratis proefversie...Aanschaffen...