Přejít k hlavnímu obsahu

Jak vytvořit pracovní listy sekvence z řady buněk v aplikaci Excel?

Pokud máte v listu řadu dat a nyní chcete vytvořit posloupnost listů na základě dat buňky, viz následující snímek obrazovky. Samozřejmě můžete název listu upravovat jeden po druhém ručně, ale pokud je třeba upravit více názvů listů, bude to obtížné a časově náročné. Zde budu mluvit o několika rychlých tricích, které vám pomohou.

doc-create-sheets-from-list1

Vytvořte pracovní listy sekvence ze seznamu buněk pomocí kódu VBA

Vytvářejte pracovní listy sekvence ze seznamu buněk pomocí Kutools pro Excel


šipka modrá pravá bublina Vytvořte pracovní listy sekvence ze seznamu buněk pomocí kódu VBA

Následující kód VBA vám pomůže přidat některé listy, které jsou pojmenovány na základě obsahu buňky po existujících listech. Udělejte prosím toto:

1. Podržte ALT + F11 klávesy, pak se otevře Microsoft Visual Basic pro aplikace okno.

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

Kód VBA: přidejte pracovní listy sekvence na základě seznamu buněk

Sub CreateWorkSheetByRange()
'Update 20130829
Dim WorkRng As Range
Dim Ws As Worksheet
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
arr = WorkRng.Value
Application.ScreenUpdating = False
For i = 1 To UBound(arr, 1)
    For j = 1 To UBound(arr, 2)
        Set Ws = Worksheets.Add(after:=Application.ActiveSheet)
        Ws.Name = arr(i, j)
    Next
Next
Application.ScreenUpdating = True
End Sub

3. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a poté se zobrazí okno s výzvou k výběru rozsahu, který chcete použít. Viz snímek obrazovky:

doc-create-sheets-from-list2

4. A pak klikněte na tlačítko OK, byly listy, které jsou pojmenovány podle hodnot buněk, přidány za existující list. Viz snímek obrazovky:

doc-create-sheets-from-list3

Poznámky:

1. Nové listy se vloží za aktuální list.

2. Pokud vybraný rozsah obsahoval prázdné buňky, jsou pracovní listy pojmenovány podle výchozího nastavení. Zobrazit snímky obrazovky:

doc-create-sheets-from-list4
-1
doc-create-sheets-from-list5

šipka modrá pravá bublina Vytvářejte pracovní listy sekvence ze seznamu buněk pomocí Kutools pro Excel

Zde představuji praktický nástroj -Kutools pro Excel, S jeho Vytvořte pracovní listy sekvence, můžete rychle vytvářet pracovní listy s názvem měsíce, názvem dne, vlastním seznamem atd.

Kutools pro Excel obsahuje více než 300 užitečných nástrojů aplikace Excel. Zdarma to můžete vyzkoušet bez omezení do 30 dnů. Získat nyní.

Po instalaci Kutools pro Excel proveďte následující kroky:

1. Vyberte rozsah, na kterém chcete vytvořit pracovní listy.

2. klikněte Enterprise > Nástroje listu > Vytvořte pracovní listy sekvence, viz screenshot:

doc-create-sheets-from-list6

3. V Vytvořte pracovní listy sekvence V dialogovém okně vyberte typ listu, který chcete vytvořit nové listy sekvence, a poté zkontrolujte Data v rozsahu možnost, viz screenshot:

doc-create-sheets-from-list7

4. Pak klikněte na tlačítko OK zavřete dialogové okno a byl vytvořen nový sešit, který obsahuje listy, podle vybraných dat rozsahu. Viz snímek obrazovky:

doc-create-sheets-from-list8

Poznámky:

1. Pokud zvolíte List 1 nebo List 2, budou vytvořené nové listy mít stejné formátování jako List 1 nebo List 2.

2. Nové listy jsou vytvořeny v novém sešitu.

3. Pokud vybraný rozsah obsahoval prázdné buňky, jsou pracovní listy pojmenovány podle výchozího nastavení. Zobrazit snímky obrazovky:

doc-create-sheets-from-list9
-1
doc-create-sheets-from-list10

Klepnutím získáte další informace o této funkci Vytvořit pracovní listy sekvence.


Související článek:

Jak přidat nové listy s přizpůsobenými názvy v aplikaci Excel?

Nejlepší nástroje pro produktivitu v kanceláři

🤖 Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

Popis


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!
Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How to add bydefault table with row name and column name on sheets after creating sheets using command button. Please help.
This comment was minimized by the moderator on the site
How can the code be modified to copy a worksheet labeled "Template" and rename it to the values in the list selected in the range? I tried modifying the "worksheets.Add" code to "Worksheets("Template").Copy but it just makes copies with the worksheets labeled "Template(1)", "Template(2)", etc. Also, is there a way to put the tabs in numerical order as they are added?
This comment was minimized by the moderator on the site
Hi, Would it be possible to set-up a template for the new sheets created, instead of blank worksheets. Thanks Dave
This comment was minimized by the moderator on the site
Hi, I want to create invoices using excel and need to know whether is there a way to auto generate the second continuation page when the items on the first page exceed the A4 page layout that I have predefined? Any help is appreciated.
This comment was minimized by the moderator on the site
Could you modify the VBA code so that if the worksheet exists, it is skipped over? As it exists now, running the code a second time on the same range will create numbered worksheets. Thanks! Chris
This comment was minimized by the moderator on the site
Hello, Can I exclude blanks and automatically copy data with is behind the name? This data is generated from a pivot and I want to have all the names in different tabs with the data behind it in the layout. name1 data data data blank data data data blank Name 2 Thanks!
This comment was minimized by the moderator on the site
I need to duplicate one sheet when making all these new sheets from a list. Can you add the code for that? Thanks!
This comment was minimized by the moderator on the site
You can right click the tab and choose "move or copy" to duplicate it.
This comment was minimized by the moderator on the site
Very useful. thank you
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations