Hogyan lehet gyorsan létrehozni több, azonos formátumú lapot az Excel programban?

Például létrehozott egy lapot egy meghatározott formázással, és most szeretne több lapot létrehozni ugyanolyan formátumban, mint ez a lap. Hogyan tudná gyorsan megoldani ezt a feladatot az Excel programban? Ez az oktatóanyag több lap azonos formátumú létrehozásának módszereiről szól.

Hozzon létre azonos formátumú lapokat az Áthelyezés vagy Másolás paranccsal

Hozzon létre azonos formátumú lapokat a VBA által

Hozzon létre azonos formátumú lapokat a Kutools több munkalapjának másolásával az Excelhez

Hozzon létre azonos formátumú lapokat az Áthelyezés vagy Másolás paranccsal

Az Excel programban az Áthelyezés vagy Másolás paranccsal létrehozhat egy lapot, amelynek formátuma megegyezik a kiválasztott lapéval.

1. Kattintson a kívánt formátumú lapra a Lap tabsáv, és kattintson a jobb gombbal a kiválasztáshoz Áthelyezés vagy Másolás a helyi menüből. Lásd a képernyőképet:

2. Ezután a felbukkanó párbeszédpanelen ellenőrizze Hozzon létre egy példányt választási lehetőség. Lásd a képernyőképet:

3. kettyenés OK. Új lap jön létre ugyanabban a formátumban a kiválasztott lap elején. Lásd a képernyőképet:

Megjegyzések:

(1) Akkor is kattinthat Otthon > kialakított > Lap áthelyezése vagy másolása hogy engedélyezze a Áthelyezés vagy Másolás párbeszéd.

(2) Ezzel a módszerrel időigényes lesz, ha több száz azonos formátumú lapot kell létrehoznia.

Hozzon létre azonos formátumú lapokat a VBA által

Van egy VBA-kód, amely segít egyszerre több azonos formátumú lap létrehozásában.

1. nyomja meg Alt + F11 gombokat a megnyitáshoz Microsoft Visual Basic for Applications ablakot, majd kattintson a gombra betétlap > Modulok, másolja és illessze be a kód alatt a Modulok ablak.

VBA: Hozzon létre azonos formátumú lapokat.

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. nyomja meg F5 gombot a VBA-kód futtatásához, majd megjelenik egy párbeszédablak, ahol beírhatja a munkalap nevét, amelyre szüksége van a formátumának másolásához.

3. kettyenés OK, és adja meg a szükséges másolatok számát egy másik felbukkanó párbeszédpanelen. Lásd a képernyőképet:

4. kettyenés OK. Ezután hat másolat készül az azonos formátumú munkalapokról.

Hozzon létre azonos formátumú lapokat a Kutools több munkalapjának másolásával az Excelhez

Ha nem szereted használni a VBA-t, itt bemutatok egy praktikus eszközt - Kutools az Excel számára, használhatja azt Munkalapok másolása segédprogram segítségével gyorsan és egyszerűen hozhat létre azonos formátumú lapokat.

Után ingyenes telepítés Kutools for Excel, kérjük, tegye a következőket:

1. kettyenés Kutools Plus > Munkalap > Munkalapok másolása. Lásd a képernyőképet:

2. Ban,-ben Több munkalap másolása párbeszédpanelt tegye az alábbiak szerint:

(1) Jelölje be a munkalap nevét, amelynek formátumát át szeretné másolni a listamezőből Másolja a kijelölt munkalapokat;

(2) Adja meg a példányok számát;

(3) Adja meg a másolatok helyét.

3. kettyenés Ok, megjelenik egy párbeszédpanel, amely emlékezteti a másolatok sikeres létrehozására. Kattintson a gombra OK bezárni.

Most láthatja, hogy a megadott számú lap elkészült ugyanabban a formátumban.

Kattintson ide, ha többet szeretne megtudni a Több munkalap másolásáról