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

Jak rozdělit sešit na samostatné soubory aplikace Excel v aplikaci Excel?

Možná budete muset rozdělit velký sešit a oddělit soubory aplikace Excel uložením každého listu sešitu jako samostatného souboru aplikace Excel. Například můžete sešit rozdělit na několik samostatných souborů aplikace Excel a poté každý soubor doručit jiné osobě, aby jej zvládla. Tímto způsobem můžete zajistit, aby určité osoby zpracovávaly konkrétní údaje, a vaše data budou v bezpečí. Tento článek představí způsoby, jak rozdělit velký sešit na samostatné soubory aplikace Excel na základě každého listu.

  1. Rozdělte sešit a oddělte soubory aplikace Excel kopírováním a vkládáním
  2. Rozdělte sešit a oddělte soubory aplikace Excel pomocí funkce Přesunout nebo Kopírovat
  3. Rozdělte sešit a oddělte soubory aplikace Excel kódem VBA
  4. Rozdělte sešit a snadno oddělte soubory Excel / PDF / CSV / TXT pomocí Kutools pro Excel

Rozdělte sešit a oddělte soubory aplikace Excel kopírováním a vkládáním

Obvykle pomocí Zkopírujte příkaz a Pasta Příkaz může ručně uložit sešit jako samostatný soubor aplikace Excel. Nejprve vyberte celý list, který chcete uložit jako samostatný soubor, vytvořte nový sešit a poté jej vložte do nového sešitu, na konci jej uložíte.

Jedná se o snadno použitelný způsob, pokud potřebujete rozdělit pouze několik listů jako samostatné soubory. Musí však být časově náročné a zdlouhavé rozdělit mnoho listů ručním kopírováním a vkládáním.


Rozdělte sešit a oddělte soubory aplikace Excel pomocí funkce Přesunout nebo Kopírovat

Tato metoda zavede funkci Přesunout nebo Kopírovat k přesunutí nebo zkopírování vybraných listů do nového sešitu a uložení jako samostatného sešitu. Postupujte prosím následovně:

1. Vyberte listy na panelu karet List, klikněte pravým tlačítkem a vyberte Přesunout nebo Kopírovat z kontextové nabídky. Viz snímek obrazovky:

Poznámka: Držení Ctrl klíč, můžete vybrat více nesousedících listů kliknutím na jeden po druhém na panelu karet List; podíl směna můžete vybrat více sousedních listů kliknutím na první a poslední na panelu karet List.

2. V dialogovém okně Přesunout nebo Kopírovat vyberte (nová kniha) z Zarezervovat rozevírací seznam, zkontrolujte Vytvořte kopii a klepněte na tlačítko OK knoflík. Viz screenshot:

3. Nyní jsou všechny vybrané listy zkopírovány do nového sešitu. Klepněte na Soubor > Uložit uložit nový sešit.

Rychle rozdělte sešit a oddělte soubory Excel / PDF / TXT / CSV v aplikaci Excel

Normálně můžeme rozdělit sešit na jednotlivé soubory aplikace Excel pomocí Přesunout nebo Kopírovat funkce v aplikaci Excel. Ale Kutools pro Excel Rozdělit sešit Nástroj vám pomůže snadno rozdělit sešit a uložit každý list jako samostatný soubor PDF / TEXT / CSV nebo sešit v aplikaci Excel.


sešit ad split vyniká

Kutools pro Excel - Obsahuje více než 300 užitečných nástrojů pro Excel. Plná zkušební verze zdarma 30-den, není potřeba kreditní karta! Get It Now

Rozdělte sešit a oddělte soubory aplikace Excel kódem VBA

Následující kód VBA vám pomůže rychle rozdělit více listů aktuálního sešitu do samostatných souborů aplikace Excel, postupujte takto:

1. Vytvořte novou složku pro sešit, který chcete rozdělit, protože rozdělené soubory aplikace Excel zůstanou ve stejné složce jako tento hlavní sešit.

2. Podržte ALT + F11 klíče v aplikaci Excel a otevře Microsoft Visual Basic pro aplikace okno.

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

VBA: Rozdělte sešit do více sešitů a uložte do stejné složky

Sub Splitbook()
'Updateby20140612
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
    xWs.Copy
    Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx"
    Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

4. zmáčkni F5 klíč ke spuštění tohoto kódu. A sešit je rozdělen na samostatné soubory aplikace Excel ve stejné složce s původním sešitem. Viz screenshot:

Poznámka: Pokud má jeden ze listů se sešitem stejný název, tento VBA nemůže fungovat.

Rozdělte sešit a snadno oddělte soubory Excel / PDF / CSV / TXT pomocí Kutools pro Excel

Pokud máte Kutools pro Excel nainstalován, jeho Rozdělit sešit Tento nástroj může pohodlně a rychle rozdělit více pracovních listů jako samostatné soubory aplikace Excel pouze několika kliknutími.

Kutools pro Excel - Obsahuje více než 300 užitečných nástrojů pro Excel. Plná zkušební verze zdarma 30-den, není potřeba kreditní karta! Get It Now

1. Po instalaci Kutools pro Excel, Klepněte na tlačítko Kutools Plus > Rozdělit sešit , viz screenshot:

2. V Rozdělit sešit dialogové okno, proveďte následující operace:
(1) Ve výchozím nastavení jsou zaškrtnuty všechny názvy listů. Pokud nechcete rozdělit některé listy, můžete je zrušit;
(2) Zkontrolujte Uložit typ volba;
(3) Z Uložit jako typ rozevírací seznam, vyberte jeden typ souboru, který chcete rozdělit a uložit.
(4) Poté klikněte Rozdělit .

Poznámka: Pokud se chcete vyhnout rozdělení skrytých nebo prázdných listů, můžete zkontrolovat Přeskočit skryté listy or Přeskočit prázdné listy box.

3. V dialogovém okně Procházet složku zadejte cílovou složku pro uložení oddělených samostatných souborů a klikněte na ikonu OK .

Nyní jsou zaškrtnuté listy uloženy jako nové oddělené sešity. Každý nový sešit má název s původním názvem listu. Viz screenshot:

Kutools pro Excel's Rozdělit sešit Tento nástroj usnadňuje rozdělení aktivního sešitu na jednotlivé soubory aplikace Excel (jeden soubor obsahuje jeden list), soubory CSV, soubory TXT nebo PDF, jak potřebujete. Můžete nastavit přeskočení všech prázdných a skrytých listů. Vyzkoušejte zdarma!


Demo: Rozdělte nebo uložte každý list jednoho sešitu jako samostatné soubory aplikace Excel / txt / csv / pdf


Kutools pro Excel obsahuje více než 300 šikovných nástrojů pro Excel, které si můžete zdarma vyzkoušet bez omezení za 30 dní. Stáhněte si a vyzkoušejte zdarma hned!

Související články:


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 (113)
Hodnocení 2.5 z 5 · 1 hodnocení:
Tento komentář byl moderátorem webu minimalizován
Mám data ve 4 různých listech. List1 je pojmenován jako "A", List2 je pojmenován jako "B", List3 je pojmenován jako "C" a List4 je pojmenován jako "D". Je třeba rozdělit data do různých sešitů a každý list musí mít pouze 25 řádků. Název souboru by měl být pojmenován jako List1 A.xls, List2 A.xls, pokud jsou data zkopírována z Listu A. Jakmile je List A prázdný, musí zkopírovat data z Listu B a musí pokračovat číslem listu od posledního např. List3 B.xls.
Tento komentář byl moderátorem webu minimalizován
Když "Rozdělím sešit pro oddělení souborů aplikace Excel pomocí kódu VBA", funguje to jako sen, ale nezachovává formátování, jako jsou sloučené buňky a zarovnání buněk v nových tabulkách. Mohu něco přidat, aby formátování zůstalo stejné jako u originálů?
Tento komentář byl moderátorem webu minimalizován
Kód fungoval jako kouzlo! Ano, nebylo zachováno veškeré formátování. Ale žádný problém. Pro mě se všechny sloučené buňky v tabulce nesloučily. Byla to jednoduchá věc vybrat původní tabulku, formátovací malíř, zvýraznit zkopírovanou tabulku a voilá, jako nové. Dík!
Tento komentář byl moderátorem webu minimalizován
Sloupec A IP adresa Sloupec B Název IP Sloupec C Rychlost pingování IP True (To je stav pingování příkazu) Sloupec D Rychlost pingování IP False (To je stav pingování příkazu) Tento seznam názvů IP a IP pro formát Excel a stav je stejný formát Excel ( to je pravda nebo nepravda Stav)
Tento komentář byl moderátorem webu minimalizován
Úžasný kód - zachránil mi den. děkuji za zveřejnění.
Tento komentář byl moderátorem webu minimalizován
Mám problém s přidáním kódu pro uložení rozdělených souborů jako ReadOnly. Proč to nefunguje nebo jak to mám udělat? Sub Splitbook() MyPath = ThisWorkbook.Cesta pro každý sht v ThisWorkbook.Sheets sht.Copy ActiveSheet.Cells.Copy ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues ​​ActiveSheet.Cells.PasteSpecial Paste:=matsFile_name:MyPasteA & "\" & sht.Name & ".xls", Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, ActiveWorkbook.Close savechanges:=False Next sht End Sub
Tento komentář byl moderátorem webu minimalizován
Opravdu skvělé zařízení.., úžasné...wow..
Tento komentář byl moderátorem webu minimalizován
Úžasný scénář. Fungoval na mě jako cokoliv jiného. Dík.
Tento komentář byl moderátorem webu minimalizován
Užitečný skript, ale hledám další kroky k vlastnímu výběru kritérií z excelu a automatickému naplnění do více souborů
Tento komentář byl moderátorem webu minimalizován
Děkuji, metoda 1 byla velmi užitečná
Tento komentář byl moderátorem webu minimalizován
Děkuji! Ušetřil mi spoustu ruční práce!
Tento komentář byl moderátorem webu minimalizován
Pokyny VBA byly "na místě"! ... i pro nováčka! Fungovalo skvěle!
Tento komentář byl moderátorem webu minimalizován
Velmi užitečné! Děkuji za sdílení
Tento komentář byl moderátorem webu minimalizován
Skvělá pomoc!!! velmi snadné a užitečné :-)
Tento komentář byl moderátorem webu minimalizován
Použil toto a fungovalo to. Přesně to, co jsem potřeboval. dík
Tento komentář byl moderátorem webu minimalizován
Funguje skvěle, díky. Vytvořil jsem to jako doplněk a nainstaloval. Jak jej nyní spustím, kdykoli budu chtít (aniž bych musel pokaždé kopírovat a vkládat)? Existuje tlačítko, které stisknu, nebo název funkce, který používám?
Tento komentář byl moderátorem webu minimalizován
Jeho Zobrazení chyby na řádku 8.... xws cpy je chyba
Tento komentář byl moderátorem webu minimalizován
Fungovalo to pro mě poté, co jsem odstranil Option Explicit, takže bylo potřeba definovat proměnnou. Zajímalo by mě však, jak by měla být tato proměnná definována, protože oceňuji možnost Option Explicit :)
Tento komentář byl moderátorem webu minimalizován
Tento kód i KUtools ukazují chybu po převodu 222 souborů a poté, co 222 souborů přestane fungovat.
Tento komentář byl moderátorem webu minimalizován
Vážený pane, můžete mi prosím poslat podrobnosti o tom, jak kódování rozdělit s
Tento komentář byl moderátorem webu minimalizován
Můžete postupovat podle níže uvedeného kódování. Kódování VBA pro rozdělené listy Alt+f11 Insert-module-f5 Sub Splitbook() 'Updateby20140612 Dim xPath As String xPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False pro každý xWs In ThisWorkbook.CopySheets xWs Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xls" Application.ActiveWorkbook.Close False Další Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
Tento komentář byl moderátorem webu minimalizován
Pracovní listy byly produktem sestavy kontingenční tabulky, nové soubory vytvořené kódem si stále zachovávají připojení ke zdroji dat a lze je měnit. lze provést kód pro přerušení připojení kontingenční tabulky nebo přidat kopii všech listů a minulosti jako hodnoty, aby se spojení zbavilo?
Tento komentář byl moderátorem webu minimalizován
Vážený pane Sanjayi, zkusil jsem s kódy, že to funguje jen na pár listů, ale soubor, který se snažím rozdělit, má téměř 466 listů. Mohu k tomu znát kódy? Děkuji.
Tento komentář byl moderátorem webu minimalizován
Mohu uložit skript vašeho modulu do OSOBNÍHO sešitu maker pro budoucí použití?
Tento komentář byl moderátorem webu minimalizován
Můžete mi prosím říct, jak mohu posílat hromadné e-maily na adresu s personalizovanou přílohou v aplikaci Outlook.. Regrads, Yasir
Tento komentář byl moderátorem webu minimalizován
Ahoj Yasire, s aplikací outlook nelze odeslat přizpůsobenou přílohu v hromadné korespondenci. Ano, existuje několik externích nástrojů, ale ty jsou velmi nákladné a také nespolehlivé. Můžete to udělat pomocí Mozilla Thunderbird. Stačí si stáhnout doplněk hromadné korespondence a můžete to udělat.
Zatím zde nejsou žádné komentáře
Načíst další
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