Jak rychle vytvořit více listů se stejným formátem v aplikaci Excel?
Pokud jste vytvořili list v Excelu se specifickým formátem a potřebujete tento formát replikovat na více listů, možná vás zajímá, jak to udělat rychle. Tento tutoriál vás provede několika metodami, jak efektivně vytvořit více listů se stejným formátováním.
Vytvářejte listy se stejným formátem pomocí funkce Přesunout nebo Kopírovat
Vytvářejte listy ve stejném formátu pomocí VBA
Vytvořte pracovní listy se stejným formátem pomocí Kutools for Excel
Vytvářejte listy se stejným formátem pomocí funkce Přesunout nebo Kopírovat
V aplikaci Excel můžete pomocí příkazu Přesunout nebo Kopírovat vytvořit list se stejným formátem jako vybraný list.
1. Klikněte na list, který má požadovaný formát, na "Panel karet List" a kliknutím pravým tlačítkem vyberte "Přesunout nebo Kopírovat" z kontextové nabídky. Viz snímek obrazovky:
2. Poté v dialogovém okně zaškrtněte možnost „Vytvořit kopii“. Viz snímek obrazovky:
3. Klikněte na "OK". V přední části vybraného listu se vytvoří nový list se stejným formátem. Viz snímek obrazovky:
Poznámka:
(1) Můžete také kliknout na „Domů“ > „Formát“ > „Přesunout nebo zkopírovat list“ a aktivovat dialogové okno „Přesunout nebo zkopírovat“.
(2) Tato metoda bude časově náročná, pokud potřebujete vytvořit stovky listů ve stejném formátu.
Vytvářejte listy ve stejném formátu pomocí VBA
Existuje kód VBA, který vám pomůže rychle vytvořit více listů se stejným formátem najednou.
1. Stisknutím kláves „Alt“ + „F11“ otevřete okno „Microsoft Visual Basic for Applications“, poté klikněte na „Vložit“ > „Modul“, zkopírujte a vložte níže uvedený kód do okna „Modul“.
VBA: Vytvářejte listy se stejným formátem.
Sub CopyWorkSheets()
'Updateby20150526
Dim xNumber As Integer
Dim xWsName As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
xWsName = Application.InputBox("Copy worksheet name", xTitleId, , Type:=2)
xNumber = Application.InputBox("Copy number", xTitleId, , Type:=1)
For i = 1 To xNumber
Application.ActiveWorkbook.Sheets(xWsName).Copy _
After:=Application.ActiveWorkbook.Sheets(xWsName)
Next
End Sub
2. Stisknutím klávesy "F5" spustíte kód VBA, poté se objeví dialogové okno, ve kterém můžete zadat název listu, který potřebujete ke zkopírování jeho formátu.
3. Klikněte na "OK" a zadejte počet kopií, které potřebujete, do dalšího dialogového okna. Viz snímek obrazovky:
4. Klikněte na "OK". Poté je vytvořeno šest kopií pracovních listů se stejným formátem.
Vytvořte pracovní listy se stejným formátem pomocí Kutools for Excel
Pokud neradi používáte VBA, představuji vám šikovný nástroj – "Kutools for Excel„, můžete použít nástroj „Kopírovat pracovní listy“ k rychlému a snadnému vytváření listů se stejným formátem.
1. Klikněte na „Kutools Plus" > "Pracovní list" > "Kopírovat pracovní listy". Viz snímek obrazovky:
2. V dialogovém okně "Kopírovat více listů" postupujte takto:
(1) V seznamu "Kopírovat vybrané listy" zaškrtněte název listu, jehož formát chcete zkopírovat;
(2) Uveďte počet kopií;
(3) Určete místo, kam chcete kopie vložit.
3. Klikněte na "OK", objeví se dialogové okno, které vám připomene, že kopie byly úspěšně vytvořeny. Klepnutím na tlačítko "OK" jej zavřete.
Nyní můžete vidět, že zadaný počet listů byl vytvořen ve stejném formátu.
Kliknutím sem získáte další podrobnosti o kopírování více listů.
Kutools for Excel - Supercharge Excel s více než 300 základními nástroji. Užijte si trvale bezplatné funkce AI! Get It Now
Nejlepší nástroje pro produktivitu v kanceláři
Vylepšete si své excelové dovednosti s Kutools for Excela 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...
Office Tab Přináší do Office rozhraní s kartami a výrazně vám usnadňuje 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!