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

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.

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:

Pozor: 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.

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.

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 .

Pozor: 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!

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:

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

Zkombinujte více sešitů do jednoho sešitu

Uložit výběr jako samostatný soubor