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ů.