Hoppa till huvudinnehåll

Hur skapar jag snabbt flera ark med samma format i Excel?

Till exempel har du skapat ett ark med en specifik formatering, och nu vill du skapa flera ark med samma format som det här arket, hur kan du snabbt lösa den här uppgiften i Excel? Denna handledning talar om metoder för att skapa flera ark med samma format.

Skapa ark med samma format genom att flytta eller kopiera

Skapa ark med samma format av VBA

Skapa ark med samma format genom att kopiera flera arbetsblad av Kutools för Excel bra idé3


Skapa ark med samma format genom att flytta eller kopiera

I Excel kan du använda kommandot Flytta eller Kopiera för att skapa ett ark med samma format som det ark du väljer.

1. Klicka på arket med det format du behöver på Tabellfältoch högerklicka för att välja Flytta eller Kopiera från snabbmenyn. Se skärmdump:

dokumentark med samma format 1

2. Kontrollera sedan i poppdialogen Skapa en kopia alternativ. Se skärmdump:

dokumentark med samma format 2

3. klick OK. Ett nytt ark skapas med samma format framför det valda arket. Se skärmdump:

dokumentark med samma format 3

Anmärkningar:

(1) Du kan också klicka Hem > bildad > Flytta eller kopiera blad för att aktivera Flytta eller Kopiera dialog.

(2) Med den här metoden kommer det att vara tidskrävande när du behöver skapa hundratals ark med samma format.


Skapa ark med samma format av VBA

Det finns en VBA-kod som kan hjälpa dig att snabbt skapa flera ark med samma format samtidigt.

1. Tryck Alt + F11 nycklar för att öppna Microsoft Visual Basic för applikationer och klicka sedan på Insert > Modulerna, kopiera och klistra in koden nedan till Modulerna fönster.

VBA: Skapa ark med samma format.

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. Tryck F5 -knappen för att köra VBA-koden, då dyker en dialog upp för att du ska skriva in kalkylbladets namn du behöver för att kopiera dess format.

dokumentark med samma format 4

3. klick OKoch ange antalet kopior du behöver i en annan poppdialog. Se skärmdump:

dokumentark med samma format 5

4. klick OK. Sedan finns det sex kopior av kalkylblad med samma format som skapats.


Skapa ark med samma format genom att kopiera flera arbetsblad av Kutools för Excel

Om du inte gillar att använda VBA, här presenterar jag dig ett praktiskt verktyg - Kutools för Excel, du kan använda dess Kopiera kalkylblad verktyg för att snabbt och enkelt skapa ark med samma format.

Kutools för Excel, med mer än 300 praktiska funktioner, gör dina jobb enklare. 

Efter gratis installation Kutools för Excel, gör så här:

1. klick Kutools Plus > Arbetsblad > Kopiera kalkylblad. Se skärmdump:

doc kopiera flera kalkylblad 1

2. I Kopiera flera kalkylblad dialogruta, gör som nedan:

(1) Kontrollera kalkylbladets namn som du vill kopiera dess format från listrutan Kopiera valda kalkylblad;

(2) Ange antalet kopior;

(3) Ange platsen där du vill lägga kopiorna.

dokumentark med samma format 7

3. klick Ok, en dialogruta dyker upp för att påminna dig om att kopiorna har skapats. Klick OK att stänga den.

dokumentark med samma format 8

Nu kan du se det angivna antalet ark har skapats med samma format.
doc kutools kopiera kalkylblad 4

Klicka här om du vill veta mer om Kopiera flera kalkylblad

Bästa kontorsproduktivitetsverktyg

Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50 + Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

kte-flik 201905


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
Comments (12)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Are you able to add in code to the VBA by automatically changing the sheet name? instead of doing that manually?
This comment was minimized by the moderator on the site
Thank you SO MUCH! I've always created multiple sheets, then copy/paste the data, but that doesn't copy over the "print gridlines" formatting, which I often forget to select. The actual copy/ paste bit doesn't save me that much in actual min:sec, but it saves me so much in aggravation. I love this! I've copied your instructions and will use them every month from now on. Thank you, again!
This comment was minimized by the moderator on the site
I created a file that contains 12 sheets, one for each month. Each month should have the same page format. I finished decorating my page but when I look at each sheet, I realize that only January, March, July, and September were modified. Why did this happen? How do I fix it?
This comment was minimized by the moderator on the site
Which method you use? Both of above methods, you need to format a sheet first, then apply the methods.
This comment was minimized by the moderator on the site
I need multiple copies of the entire WORKBOOK with multiple sheets in each book.
This comment was minimized by the moderator on the site
Directly copy the workbooks and paste them in several copies with different names?
This comment was minimized by the moderator on the site
I NEED TO CREATE TIMESHEETS FOR 25 WORKERS EVERY MONTH USING 1 TIMESHEET FORMAT, HOW DO I CHANGE THE NAMES ONCE SO THAT IT PRINTS ALL 25 TIMSHEETS WITH EACH WORKERS NAME
This comment was minimized by the moderator on the site
You can use Kutools for Excel's Create Sequence Worksheet utility to solve your problem. For more details, you can refer to this site:https://www.extendoffice.com/product/kutools-for-excel/create-sequence-worksheets.html
This comment was minimized by the moderator on the site
I was hoping to do something similar, but wayyy more complicated. Do you have tips?

----
I have to create 79 tabs in excel using a standard template [see below], but that references sequential values in a separate worksheet. We will call the template worksheet "Template" and the worksheet that contains the reference values "Reference". I need help creating a macro to do the following:

1) Copy the template 79 times.


2) Name each new worksheet according to the sequential rows in column F of "Reference" (so the first copy of "Template" would have a name defined in F3 in the "Reference" sheet. the second copy of "Template" would have a name defined by F4, etc. etc. etc).


3) Set the values of cells in the new worksheets (i.e. the copies of "Template") equal to sequential rows in Column A, B, C, D, E of the worksheet "Reference", such that copy 1 of the "Template" references cells A3, B3, C3, D3 and E3; copy 2 of the "Template" references cells A4, B4, C4, D4, E4; etc.
This comment was minimized by the moderator on the site
Firstly, you can use the Split Data utility function of Kutools to split each row or the range to a separate sheet in a new workbook, then copy the column or "reference" which use to name the sheet to one of the sheet in the new workbook, and apply Rename Multiple Worksheet and check From specific range to select the cells you have copied to rename the sheets. Then remove the reference cells.
This comment was minimized by the moderator on the site
I do not why one file is missing after reply~here are the complicated screenshots, 1,3,4,5,6.
This comment was minimized by the moderator on the site
THANK YOU!! I needed 15 copies of a worksheet and it would've taken me ages to do without this. Thanks a million.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations