Note: The other languages of the website are Google-translated. Back to English

Jak vytvořit více pracovních listů ze seznamu hodnot buněk?

Existují nějaké rychlé nebo snadné metody pro vytvoření více pracovních listů na základě seznamu hodnot buněk v aplikaci Excel? V tomto článku budu hovořit o některých dobrých tricích k vyřešení této práce.

Vytvořte více pracovních listů ze seznamu hodnot buněk pomocí kódu VBA

Vytvořte více pracovních listů ze seznamu hodnot buněk pomocí Kutools pro Excel


šipka modrá pravá bublina Vytvořte více pracovních listů ze seznamu hodnot buněk pomocí kódu VBA

Chcete-li rychle vytvořit několik nových pracovních listů, které jsou pojmenovány se seznamem hodnot buněk, může vám pomoci následující kód VBA.

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující kód do Modul Okno.

Kód VBA: Vytvořte více pracovních listů ze seznamu buněk:

Sub AddSheets()
'Updateby Extendoffice
    Dim xRg As Excel.Range
    Dim wSh As Excel.Worksheet
    Dim wBk As Excel.Workbook
    Set wSh = ActiveSheet
    Set wBk = ActiveWorkbook
    Application.ScreenUpdating = False
    For Each xRg In wSh.Range("A1:A7")
        With wBk
            .Sheets.Add after:=.Sheets(.Sheets.Count)
            On Error Resume Next
            ActiveSheet.Name = xRg.Value
            If Err.Number = 1004 Then
              Debug.Print xRg.Value & " already used as a sheet name"
            End If
            On Error GoTo 0
        End With
    Next xRg
    Application.ScreenUpdating = True
End Sub

Poznámka: Ve výše uvedeném kódu, A1: A7 je oblast buněk, na které chcete vytvářet listy, změňte ji podle potřeby.

3. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a nové listy byly vytvořeny po všech listech v aktuálním sešitu, viz screenshot:

doc vytvořit více listů 1


šipka modrá pravá bublina Vytvořte více pracovních listů ze seznamu hodnot buněk pomocí Kutools pro Excel

Pokud nemáte zkušenosti s výše uvedeným kódem, je zde užitečný nástroj -Kutools pro Excel, S jeho Vytvořte pracovní listy sekvence funkce, budou pracovní listy vytvořeny na základě hodnot buněk v novém sešitu.

Kutools pro Excel : s více než 300 praktickými doplňky Excel, můžete si je vyzkoušet bez omezení do 30 dnů. 

Po instalaci Kutools pro Excel, udělejte prosím toto:

1, klikněte Kutools Plus > Pracovní list > Vytvořte pracovní listy sekvence, viz screenshot:

2. V Vytvořte pracovní listy sekvence dialogové okno:

(1.) Vyberte jeden list, ze kterého chcete vytvořit listy se sekvencemi na základě;

(2.) Poté vyberte Data v rozsahu možností od Názvy listů založené na seznamu a klikněte na doc vytvořit více listů 4 tlačítko pro výběr hodnot buněk, které chcete použít.

doc vytvořit více listů 3

3. A pak klikněte na tlačítko Ok Tlačítko, pracovní listy byly vytvořeny s názvy hodnot buněk v novém sešitu, viz screenshot:

doc vytvořit více listů 5

Klikněte na Stáhnout a vyzkoušejte zdarma Kutools pro Excel hned!


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%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • 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 bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... 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ší ...
  • 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...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab 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!
officetab dno
Komentáře (14)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Lepší verze. Toto smaže vytvořený list, pokud existuje jiný list se stejným názvem. A přidáno vstupní pole, aby se zabránilo ruční úpravě kódu na výběr rozsahu.


Dílčí AddSheetsFromCells()

Dim xRg jako rozsah, wBk jako sešit
Nastavte wBk = ActiveWorkbook

On Error GoTo Quit
Set dbRange = Application.InputBox("Range: ", "Select Range", _
Application.Selection.Address, Type:=8)

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Pro každý xRg v dbRange
S wBk
.Sheets.Add After:=.Sheets(.Sheets.Count)
On Error Resume Next
ActiveSheet.Name = xRg.Value
Pokud Err.Number = 1004 Pak
Debug.Print Chr(34) & xRg.Value & Chr(34) & "již použito jako název listu"
.ActiveSheet.Delete
End If
Při chybě GoTo 0
Konec s
Další xRg

Application.ScreenUpdating = True
Application.DisplayAlerts = True
Přestat:

End Sub
Tento komentář byl moderátorem webu minimalizován
Zdá se, že to funguje skvěle pro to, co se pokouším udělat, s jednou výjimkou... Vytváří se prázdné listy... Chci vytvořit kopii existujícího listu pro každý řádek v jiném listu. Dá se to vůbec udělat?
Tento komentář byl moderátorem webu minimalizován
Co kdybych chtěl, aby do každého nově vytvořeného listu byla vložena šablona z listu šablony? Šablona by měla pouze formátování a vzorce

Díky
Tento komentář byl moderátorem webu minimalizován
to taky potřebuji vědět. přišel jsi na to?
Tento komentář byl moderátorem webu minimalizován
Sub UpdateMAPs()
Dim LR As Long, i As Long
Application.ScreenUpdating = False
S tabulkami ("Seznam týmů")
LR = .Range("E" & Rows.Count).End(xlUp).Row
Pro i = 2 do LR
Sheets("Prázdná MAP"). Kopírovat před:=Sheets("Prázdná MAP")
ActiveSheet.Name = .Range("E" & i).Value
Příště já
Konec s
Application.ScreenUpdating = True
End Sub

tohle mi fungovalo od https://www.mrexcel.com/forum/excel-questions/553308-copy-worksheet-rename-cell-value.html
Tento komentář byl moderátorem webu minimalizován
To je úžasné! Děkuji mnohokrát!
Tento komentář byl moderátorem webu minimalizován
to je úžasné...... moc děkuji .je někde veřejné úložiště kódů vba?
Tento komentář byl moderátorem webu minimalizován
a vytváří spoustu listů, i když je seznam prázdný... co když chci vytvořit listy založené na buňkách, které mají hodnotu?
Tento komentář byl moderátorem webu minimalizován
První použití kódu VBA v Excelu. Fungovalo perfektně na první pokus. Děkuji za zveřejnění tohoto příspěvku.
Tento komentář byl moderátorem webu minimalizován
Funguje to skvěle, jak byste mohli začlenit šablonu do každé vytvořené karty? tj. zkopírujte a vložte ze šablony do každého nově vytvořeného listu
Tento komentář byl moderátorem webu minimalizován
To je velká pomoc. Mohl bych ušetřit tolik času. Děkujeme za váš čas a za to, že jste nám pomohli s vaším úžasným kódem.
Tento komentář byl moderátorem webu minimalizován
Zkoušel jsem použít kód VBA, vytváří „bezejmenné“ listy, takže list1 , 2 , 3 a tak dále, namísto použití hodnoty v buňce jako názvu listu. Pokusil jsem se opravit změnou typu dat v buňce na text, stejný problém…


nějaké nápady?
Tento komentář byl moderátorem webu minimalizován
Měl jsem tento problém. opravit: 1. pouze 31 znaků povolených pro názvy listů2. žádné speciální znaky + = ( ) [ ] \ / , : atd...najděte a nahraďte mezerou
Tento komentář byl moderátorem webu minimalizován
Děkujeme, že jste to zveřejnili. Postupoval jsem podle návodu a fungovalo to perfektně.
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL