Ugrás a tartalomra

Hogyan lehet felosztani egy munkafüzetet az Excel fájlok szétválasztására az Excelben?

Előfordulhat, hogy fel kell osztania egy nagy munkafüzetet az Excel fájlok elkülönítéséhez, a munkafüzet egyes munkalapjainak külön Excel fájlként történő mentésével. Például feloszthat egy munkafüzetet több különálló Excel fájlba, majd minden fájlt másnak kézbesít, hogy kezelje. Ezzel elérheti, hogy bizonyos személyek bizonyos adatokat kezeljenek, és biztonságban tarthassa adatait. Ez a cikk bemutatja, hogyan lehet egy nagy munkafüzetet felosztani az Excel-fájlok elválasztására az egyes munkalapok alapján.

  1. Feloszt egy munkafüzetet az Excel fájlok szétválasztására másolással és beillesztéssel
  2. Osztjon egy munkafüzetet az Excel fájlok elválasztásához az Áthelyezés vagy Másolás funkcióval
  3. Feloszt egy munkafüzetet az Excel fájlok VBA kóddal történő elválasztására
  4. Ossza fel a munkafüzetet az Excel / PDF / CSV / TXT fájlok egyszerű szétválasztásához a Kutools for Excel segítségével

Feloszt egy munkafüzetet az Excel fájlok szétválasztására másolással és beillesztéssel

A szokásos módon használva másolat parancsot, és Paszta paranccsal manuálisan mentheti el a munkafüzetet külön Excel fájlként. Először válassza ki az egész munkalapot, amelyet külön fájlként szeretne menteni, hozzon létre egy új munkafüzetet, majd illessze be az új munkafüzetbe, majd elmentse.

Ez egy egyszerűen használható módszer, ha csak néhány munkalapot kell külön fájlként szétválasztania. Ugyanakkor időigényesnek és unalmasnak kell lennie, ha sok munkalapot kézi másolással és beillesztéssel osztanak szét.


Osztjon egy munkafüzetet az Excel fájlok elválasztásához az Áthelyezés vagy Másolás funkcióval

Ez a módszer bevezeti az Áthelyezés vagy Másolás funkciót a kijelölt lapok új munkafüzetbe történő áthelyezéséhez vagy másolásához, és külön munkafüzetként történő mentéshez. Kérjük, tegye a következőket:

1. Jelölje ki a lapokat a Lap lapon, kattintson a jobb gombbal, és válassza a lehetőséget Áthelyezés vagy Másolás a helyi menüből. Lásd a képernyőképet:

Megjegyzések: Tartás Ctrl gombot, kiválaszthat több nem szomszédos lapot úgy, hogy egyesével rákattint a Lap lapra; holding műszak gombot, kiválaszthat több szomszédos lapot, ha az elsőre és az utolsóra kattint a Lap lapon.

2. Az Áthelyezés vagy Másolás párbeszédpanelen válassza a lehetőséget (új könyv) tól Foglalni legördülő listában ellenőrizze a Hozzon létre egy példányt opciót, és kattintson a OK gomb. Lásd a képernyőképet:

3. Most az összes kijelölt lapot átmásolja egy új munkafüzetbe. Kattintson a gombra filé > Megtakarítás hogy mentse az új munkafüzetet.

Gyorsan ossza fel a munkafüzetet az Excel / PDF / TXT / CSV fájlok szétválasztására az Excelben

Normál esetben egy munkafüzetet külön Excel fájlokra oszthatunk fel a Áthelyezés vagy Másolás funkciót az Excelben. De Kutools for Excel Felosztott munkafüzet segédprogram segítségével könnyedén feloszthatja a munkafüzetet, és az egyes munkalapokat külön PDF / TEXT / CSV fájlként vagy munkafüzetként mentheti az Excel programba.


hirdetés megosztott munkafüzet excel

Kutools az Excel számára - Töltse fel az Excelt több mint 300 alapvető eszközzel. Élvezze a teljes funkcionalitású 30 napos INGYENES próbaverziót hitelkártya nélkül! Szerezd meg most

Feloszt egy munkafüzetet az Excel fájlok VBA kóddal történő elválasztására

A következő VBA-kód segítségével gyorsan feloszthatja az aktuális munkafüzet több munkalapját az Excel-fájlok szétválasztására. Kérjük, tegye a következőket:

1. Hozzon létre egy új mappát a felosztani kívánt munkafüzethez, mert az osztott Excel fájlok ugyanazon a mappán maradnak, mint ez a fő munkafüzet.

2. Tartsa lenyomva a ALT + F11 kulcsokat az Excelben, és megnyitja a Microsoft Visual Basic for Applications ablak.

3. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablakba.

VBA: A munkafüzetet ossza fel több munkafüzetre, és mentse el ugyanabba a mappába

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. megnyomni a F5 gombot a kód futtatásához. A munkafüzet pedig fel van osztva az Excel-fájlok elválasztására az eredeti munkafüzettel azonos mappában. Lásd a képernyőképet:

Megjegyzések: Ha az egyik lap neve megegyezik a munkafüzettel, akkor ez a VBA nem működik.

Ossza fel a munkafüzetet az Excel / PDF / CSV / TXT fájlok egyszerű szétválasztásához a Kutools for Excel segítségével

Ha van Kutools az Excel számára telepítve, annak Felosztott munkafüzet eszköz több munkalapot külön Excel fájlként oszthat fel kényelmesen és gyorsan, csak néhány kattintással.

Kutools az Excel számára - Töltse fel az Excelt több mint 300 alapvető eszközzel. Élvezze a teljes funkcionalitású 30 napos INGYENES próbaverziót hitelkártya nélkül! Szerezd meg most

1. Telepítés után Kutools az Excel számárakettyenés Kutools Plus > Felosztott munkafüzet , lásd a képernyőképet:

2. Az Felosztott munkafüzet párbeszédpanelen hajtsa végre a következő műveleteket:
(1) Alapértelmezés szerint az összes munkalap neve ellenőrizve van. Ha nem akarja megosztani a munkalapok egy részét, akkor törölheti a jelölést;
(2) Ellenőrizze a Típus mentése választási lehetőség;
(3) A Mentés típus legördülő menüből válassza ki a felosztani és menteni kívánt fájltípust.
(4) Ezután kattintson Hasított gombot.

Megjegyzések: Ha el akarja kerülni a rejtett vagy üres munkalapok felosztását, ellenőrizheti a A rejtett munkalapok kihagyása or Üres munkalapok kihagyása doboz.

3. A Tallózás a mappában párbeszédpanelen adja meg a célmappát az elkülönített fájlok mentéséhez, majd kattintson a gombra OK gombot.

Most az ellenőrzött munkalapokat új, külön munkafüzetekként menti. Minden új munkafüzet megnevezése az eredeti munkalap nevével történik. Lásd a képernyőképet:

Kutools az Excel számára's Felosztott munkafüzet eszköz megkönnyíti az aktív munkafüzet felosztását egyedi Excel fájlokba (az egyik fájl egy munkalapot tartalmaz), CSV fájlokba, TXT fájlokba vagy PDF fájlokba, amire szüksége van. Beállíthatja, hogy az összes üres és rejtett munkalapot kihagyja. Ingyenes próbaverziót!


Bemutató: Szétválaszthatja vagy elmentheti egy munkafüzet egyes munkalapjait különálló excel / txt / csv / pdf fájlokként


Kutools az Excel számára: Több mint 300 praktikus eszköz a keze ügyében! Kezdje el a 30 napos ingyenes próbaidőszakot funkciók korlátozása nélkül. Töltse le most!

Kapcsolódó cikkek:

A legjobb irodai hatékonyságnövelő eszközök

🤖 Kutools AI Aide: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  A Kutools funkciók meghívása...
Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

Leírás


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
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