Hoppa till huvudinnehåll

Hur delar jag en arbetsbok för att separera Excel-filer i Excel?

Du kan behöva dela upp en stor arbetsbok för att separera Excel-filer genom att spara varje arbetsblad i arbetsboken som en enskild Excel-fil. Du kan till exempel dela upp en arbetsbok i flera enskilda Excel-filer och sedan leverera varje fil till olika personer för att hantera den. Genom att göra det kan du få vissa personer att hantera specifika data och hålla dina data säkra. Den här artikeln presenterar sätt att dela en stor arbetsbok för att separera Excel-filer baserat på varje kalkylblad.

  1. Dela en arbetsbok för att separera Excel-filer med kopiering och klistra in
  2. Dela upp en arbetsbok för att separera Excel-filer med funktionen Flytta eller Kopiera
  3. Dela en arbetsbok för att separera Excel-filer med VBA-kod
  4. Dela upp en arbetsbok för att enkelt separera Excel / PDF / CSV / TXT-filer med Kutools för Excel

Dela en arbetsbok för att separera Excel-filer med kopiering och klistra in

Som vanligt använder Kopiera kommando och Klistra in kommandot kan spara en arbetsbok som en separat Excel-fil manuellt. Välj först hela kalkylbladet som du vill spara som en separat fil, skapa en ny arbetsbok och klistra sedan in den i den nya arbetsboken, i slutet sparar den.

Detta är ett lättanvänt sätt om du bara behöver dela några kalkylblad som separata filer. Det måste dock vara tidskrävande och tråkigt att dela upp många kalkylblad med kopiering och klistra in manuellt.


Dela upp en arbetsbok för att separera Excel-filer med funktionen Flytta eller Kopiera

Denna metod introducerar funktionen Flytta eller kopiera för att flytta eller kopiera de valda arken till en ny arbetsbok och spara som en separat arbetsbok. Gör så här:

1. Markera arken i fliken Ark, högerklicka och välj Flytta eller Kopiera från snabbmenyn. Se skärmdump:

Anmärkningar: Håller ctrl nyckel, du kan välja flera icke-angränsande ark genom att klicka på dem en efter en i fliken Ark; innehav shift kan du välja flera intilliggande ark genom att klicka på det första och det sista i flikfältet Ark.

2. Välj i dialogrutan Flytta eller kopiera (ny bok) från Att boka rullgardinsmenyn, kontrollera Skapa en kopia alternativet och klicka på OK knapp. Se skärmdump:

3. Nu kopieras alla valda ark till en ny arbetsbok. Klick Fil > Save för att spara den nya arbetsboken.

Dela snabbt en arbetsbok för att separera Excel / PDF / TXT / CSV-filer i Excel

Normalt kan vi dela en arbetsbok till enskilda Excel-filer med Flytta eller Kopiera funktion i Excel. Men Kutools för Excel Dela arbetsbok verktyget kan hjälpa dig att enkelt dela upp en arbetsbok och spara varje kalkylblad som en separat PDF / TEXT / CSV-fil eller arbetsbok i Excel.


ad split arbetsbok excel

Kutools för Excel - Superladda Excel med över 300 viktiga verktyg. Njut av en fullfjädrad 30-dagars GRATIS provperiod utan behov av kreditkort! Hämta den nu

Dela en arbetsbok för att separera Excel-filer med VBA-kod

Följande VBA-kod kan hjälpa dig att snabbt dela upp flera kalkylblad med aktuell arbetsbok för att separera Excel-filer, gör så här:

1. Skapa en ny mapp för arbetsboken som du vill dela, eftersom de delade Excel-filerna kommer att finnas kvar i samma mapp som den här huvudarbetsboken.

2. Håll ner ALT + F11 nycklar i Excel, och det öppnar Microsoft Visual Basic för applikationer fönster.

3. Klicka Insert > Modulernaoch klistra in följande kod i modulfönstret.

VBA: Dela upp en arbetsbok i flera arbetsböcker och spara i samma mapp

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. tryck på F5 nyckel för att köra den här koden. Och arbetsboken delas upp för att separera Excel-filer i samma mapp med den ursprungliga arbetsboken. Se skärmdump:

Anmärkningar: Om ett av arken har samma namn med arbetsboken kan inte denna VBA fungera.

Dela upp en arbetsbok för att enkelt separera Excel / PDF / CSV / TXT-filer med Kutools för Excel

Om du har Kutools för Excel installerat, dess Dela arbetsbok verktyget kan dela upp flera kalkylblad som separata Excel-filer bekvämt och snabbt med bara några få klick.

Kutools för Excel - Superladda Excel med över 300 viktiga verktyg. Njut av en fullfjädrad 30-dagars GRATIS provperiod utan behov av kreditkort! Hämta den nu

1. Efter installationen Kutools för Excel, Klicka Kutools Plus > Dela arbetsbok , se skärmdump:

2. I Dela arbetsbok dialogrutan, gör följande:
(1) Alla kalkylbladsnamn är markerade som standard. Om du inte vill dela några av kalkylbladen kan du avmarkera dem;
(2) Kontrollera Spara en typ alternativ;
(3) Från Spara som rullgardinsmeny, välj en filtyp du vill dela och spara.
(4) Klicka sedan på Split knapp.

Anmärkningar: Om du vill undvika att dela dolda eller tomma kalkylblad kan du markera Hoppa över dolda kalkylblad or Hoppa över tomma kalkylblad låda.

3. I dialogrutan Sök efter mapp, ange en målmapp för att spara de separata delade filerna och klicka på OK knapp.

Nu sparas de markerade kalkylbladet som nya separata arbetsböcker. Varje ny arbetsbok har fått namnet på det ursprungliga kalkylbladet. Se skärmdump:

Kutools för Excel's Dela arbetsbok verktyget gör det enkelt att dela aktiv arbetsbok i enskilda Excel-filer (en fil innehåller ett kalkylblad), CSV-filer, TXT-filer eller PDF-filer efter behov. Du kan ställa in att hoppa över alla tomma och dolda kalkylblad. Ha en gratis testversion!


Demo: Dela eller spara varje kalkylblad i en arbetsbok som separata excel / txt / csv / pdf-filer


Kutools för Excel: Över 300 praktiska verktyg till hands! Börja din 30-dagars gratis provperiod utan funktionsbegränsningar idag. Ladda ner nu!

Relaterade artiklar:

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 (113)
Rated 2.5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Hello.
Both options work fine. But ..not satisfying my needs.
In each sheet i have 2 extra columns at and which contain vlookup formulas. And they all get exported to new files..
I cant have that.I also cant go and delete all formulas from all sheets then export , too much work.
Any solution to export but to ignore those columns with formulas?
Rated 2.5 out of 5
This comment was minimized by the moderator on the site
I tried this in Office 365 and it copies 8 sheets to separate files then gives me "run-time error '1004': Copy Method of Worksheet Class failed"
This comment was minimized by the moderator on the site
Hi there, did you use the vba code or Kutools?
This comment was minimized by the moderator on the site
I was able to use this macro once and it was great but now it will not work and I only get one file labeled as "Sheet 1" and it is blank, can anyone help?
This comment was minimized by the moderator on the site
Hello, how can we split the sheets tow by tow ==< what i mean is that i have an amount of sheets in one folder and I want tow split each tow successive sheets in one folder, i have tried to put changes on the basic code but i didn't succeed, I'm a beginner in this field if you can be held that is going to be a huge help
This comment was minimized by the moderator on the site
xWs.Copy
showing error in this area
This comment was minimized by the moderator on the site
Hello, I just tried the split data function based on the first column (about 90 partners). Half of the worksheets are named correctly while the other just have number of the sheet eventhough there is name of the partner in the column. Any help, please?
This comment was minimized by the moderator on the site
i have a data of 5 worksheets. Every worksheet has a common column (Branch). Can i convert the data into different excel files based on respective branches
This comment was minimized by the moderator on the site
Hi Sudarshan,
Kutools for Excel has an amazing feature – Split Data, which can quickly split data from a range or a sheet to multiple sheets based on values in the specified column. And these sheets are saved in a new workbook.

You can apply the Split Data feature to split each sheet based on the specified common column.
After splitting, you can apply the Combine Worksheets feature, also provided by Kutools for Excel, and combine all same name worksheets into one workbook.
This comment was minimized by the moderator on the site
excel which i want to split is having 3 spread sheet my requirement is to split the excel as per the sheet 1 and remaning to sheet to be contant when file split
This comment was minimized by the moderator on the site
Hi prateeksha,
In the fourth method on this webpage, the Split Workbook feature of Kutools for Excel is recommended, which will split every specified worksheet to individual PDF/CSV/TEXT/Workbooks.
This comment was minimized by the moderator on the site
Hey there,
I was wondering if we can use this macro to split the workbook into csv files
I've changed the VBA as below, replacing "xlsx" with "csv", but it doesn't work:
Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".csv"
Thanks for your help!
This comment was minimized by the moderator on the site
Hi Kevin,
It recommends trying the fourth method to solve your problem. Kutools for Excel can be freely trial for 30 days. And the Split Workbook feature of Kutools for Excel can solve the problem easily.
This comment was minimized by the moderator on the site
Very helpful code. Just had one question. How can I make these excel files read-only. I tried the below but it did not work.

Application.ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations