Hvordan forhindrer man automatisk nummerering ved dubleret kolonneoverskrift i Excel-tabel?

I Excel, når du skriver den duplikerede kolonneoverskrift i tabellen, vil den automatisk blive tilføjet et nummer ligesom navn, navn1, navn2, og nummeret kan ikke fjernes, som skærmbilledet nedenfor viser. For at forhindre automatisk nummerering ved dublet kolonneoverskrift i tabel, kan du tilføje efterfølgende plads til dubletoverskriften. Her er en VBA-kode, der kan hjælpe dig med at gentage overskriften og automatisk tilføje efterfølgende mellemrum for at lade dem være anderledes, men ser ens ud.

Tilføj automatisk efterfølgende mellemrum til sidehoved

Bemærk: metoderne i denne vejledning er testet i Excel 2021, der kan være nogle forskellige i forskellige Excel-versioner.

1. Indtast de overskrifter, du vil gentage i en kolonne, og tryk derefter på andre + F11 taster for at aktivere Microsoft Visual Basic til applikationer vindue.

2. klik indsatte > Moduler at oprette et nyt modul i Microsoft Visual Basic til applikationer vinduet, kopier og indsæt derefter nedenstående kode til det.

VBA: Gentag og tilføj efterfølgende mellemrum

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 Kør  knap i båndet eller tryk på F5 for at aktivere koden, i den første pop-dialog skal du vælge de overskrifter, du vil gentage. Klik OK.

4. I den anden pop-dialog skal du indtaste de gentagelsestider, du ønsker. Klik OK.

5. Vælg en celle, som du vil udskrive de gentagne overskrifter. Klik OK.

Nu er overskrifterne blevet gentaget og tilføjet med efterfølgende mellemrum.

6. Vælg overskrifterne og kopier dem ved at trykke på Ctrl + C, og sæt dem tilbage til den tabel, du skal bruge, ved at trykke på Ctrl + V.

Nu kan du se, at tabellen har dublerede kolonneoverskrifter uden nummerering.

---

De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

• Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
• Flet celler / rækker / kolonner og opbevaring af data; Split celler indhold; Kombiner duplikatrækker og sum / gennemsnit... Forhindre duplikerede celler; Sammenlign områder...
• Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
• Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
• Foretrukne og hurtigt indsætte formler, Områder, diagrammer og billeder; Krypter celler med adgangskode Opret postliste og send e-mails ...
• Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
• Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
• Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
• Pivottabelgruppering efter ugenummer, ugedag og mere ... Vis ulåste, låste celler ved forskellige farver; Fremhæv celler, der har formel / navn...

Læs mere ... Alle funktioner 30-dages gratis prøveperiode... Køb... 

---

Office-fanen - bringer fanebladet til Office og gør dit arbejde meget lettere

• Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
• Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
• Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!

Læs mere ... Alle funktioner 30-dages gratis prøveperiode... Køb...