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.

---