Hoe automatische nummering bij dubbele kolomkop in Excel-tabel voorkomen?

Wanneer u in Excel de dubbele kolomkop in de tabel typt, wordt automatisch een nummer toegevoegd, net als naam, naam1, naam2 en het nummer kan niet worden verwijderd, zoals de onderstaande schermafbeelding laat zien. Om de automatische nummering bij dubbele kolomkop in tabel te voorkomen, kunt u volgspatie toevoegen aan de dubbele koptekst. Hier is een VBA-code die u kan helpen de koptekst te herhalen en volgspaties automatisch toe te voegen om ze anders te laten zijn, maar er hetzelfde uitziet.

Voeg automatisch volgspaties toe aan koptekst

Opmerking: de methoden in deze tutorial zijn getest in Excel 2021, er kunnen verschillen zijn in verschillende Excel-versies.

1. Typ de koppen die u in een kolom wilt herhalen en druk vervolgens op anders + F11 toetsen om in te schakelen Microsoft Visual Basic voor toepassingen venster.

2. klikken Invoegen > Module om een ​​nieuwe module te maken in de Microsoft Visual Basic voor toepassingen venster, kopieer en plak vervolgens de onderstaande code erin.

VBA: herhalen en volgspaties toevoegen

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. klikken lopen  knop in het lint of druk op F5 toets om de code te activeren, selecteer in het eerste popping-dialoogvenster de koppen die u wilt herhalen. Klik OK.

4. Typ in het tweede popping-dialoogvenster de gewenste herhalingstijden. Klik OK.

5. Selecteer een cel waarvan u de herhaalde kopteksten wilt uitvoeren. Klik OK.

Nu zijn de koppen herhaald en toegevoegd met volgspaties.

6. Selecteer de koppen en kopieer ze door op te drukken Ctrl + Cen plak ze terug naar de gewenste tabel door op te drukken Ctrl + V.

Nu kunt u zien dat de tabel dubbele kolomkoppen heeft zonder nummering.

---

De beste tools voor kantoorproductiviteit

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

• Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
• Voeg cellen / rijen / kolommen samen en het bewaren van gegevens; Gespleten cellen inhoud; Combineer dubbele rijen en som / gemiddelde... Voorkom dubbele cellen; Vergelijk Ranges...
• Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
• Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
• Favoriete formules en snel invoegen, Bereiken, grafieken en afbeeldingen; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
• Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
• Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
• Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
• Draaitabel groeperen op weeknummer, dag van de week en meer ... Toon ontgrendelde, vergrendelde cellen door verschillende kleuren; Markeer cellen met formule / naam...

Lees verder... Alle functies Gratis proefversie van 30 dagen... Aankoop... 

---

Office-tabblad - brengt interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

• Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
• 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 verder... Alle functies Gratis proefversie van 30 dagen... Aankoop...