Jak zabránit automatickému číslování v duplicitním záhlaví sloupce v tabulce Excel?

Když v Excelu napíšete duplicitní záhlaví sloupce do tabulky, bude automaticky přidáno číslo stejně jako jméno, jméno1, jméno2 a číslo nelze odstranit, jak ukazuje níže uvedený snímek obrazovky. Chcete-li zabránit automatickému číslování v duplicitním záhlaví sloupce v tabulce, můžete do duplicitního záhlaví přidat koncovou mezeru. Zde je kód VBA, který vám může pomoci zopakovat záhlaví a automaticky přidat koncové mezery, aby byly odlišné, ale vypadaly stejně.

Automatické přidávání koncových mezer do záhlaví

Poznámka: Metody uvedené v tomto kurzu jsou testovány v Excelu 2021, v různých verzích Excelu se mohou lišit.

1. Zadejte záhlaví, která chcete ve sloupci opakovat, a stiskněte Další + F11 klíče k povolení Microsoft Visual Basic pro aplikace okno.

2. cvaknutí Vložit > Modul vytvořit nový modul v Microsoft Visual Basic pro aplikace okno, poté do něj zkopírujte a vložte níže uvedený kód.

VBA: Opakujte a přidejte koncové mezery

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. cvaknutí Běh  tlačítko na pásu karet nebo stiskněte F5 aktivujte kód, v prvním vyskakovacím dialogu vyberte záhlaví, která chcete opakovat. Klikněte OK.

4. V druhém vyskakovacím dialogu zadejte požadovaný počet opakování. Klikněte OK.

5. Vyberte buňku, ze které chcete vytisknout opakovaná záhlaví. Klikněte OK.

Nyní byla záhlaví opakována a doplněna o koncové mezery.

6. Vyberte záhlaví a zkopírujte je stisknutím Ctrl + Ca stisknutím tlačítka je vložte zpět na požadovaný stůl Ctrl + V.

Nyní můžete vidět, že tabulka má duplicitní záhlaví sloupců bez číslování.

---

Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

• Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
• Sloučit buňky / řádky / sloupce a uchovávání údajů; Rozdělit obsah buněk; Zkombinujte duplicitní řádky a součet / průměr... Zabraňte duplicitním buňkám; Porovnat rozsahy...
• Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
• Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
• Oblíbené a rychlé vkládání vzorců„Rozsahy, grafy a obrázky; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
• Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
• Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
• Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
• Seskupování kontingenčních tabulek podle číslo týdne, den v týdnu a další ... Zobrazit odemčené, zamčené buňky různými barvami; Zvýrazněte buňky, které mají vzorec / název...

Čtěte více... Plné funkce 30denní bezplatná zkušební verze ... Nákup... 

---

Karta Office - přináší do Office rozhraní s kartami a usnadňuje vám práci

• Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
• Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
• Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!

Čtěte více... Plné funkce 30denní bezplatná zkušební verze ... Nákup...