Note: The other languages of the website are Google-translated. Back to English

Cum se împarte un registru de lucru pentru a separa fișierele Excel în Excel?

Poate fi necesar să împărțiți un registru de lucru mare pentru a separa fișierele Excel salvând fiecare foaie de lucru a registrului de lucru ca fișier Excel individual. De exemplu, puteți împărți un registru de lucru în mai multe fișiere Excel individuale și apoi livrați fiecare fișier unei persoane diferite pentru a-l gestiona. Procedând astfel, puteți determina anumite persoane să gestioneze date specifice și să vă păstreze datele în siguranță. Acest articol va introduce modalități de a împărți un registru de lucru mare pentru a separa fișierele Excel pe baza fiecărei foi de lucru.

  1. Împărțiți un registru de lucru pentru a separa fișierele Excel cu copierea și lipirea
  2. Împărțiți un registru de lucru pentru a separa fișierele Excel cu funcția Mutare sau Copiere
  3. Împarte un registru de lucru pentru a separa fișierele Excel cu codul VBA
  4. Împarte un registru de lucru pentru a separa cu ușurință fișierele Excel / PDF / CSV / TXT cu Kutools pentru Excel

Împărțiți un registru de lucru pentru a separa fișierele Excel cu copierea și lipirea

În mod obișnuit, folosind Copiați comandă și Pastă comanda poate salva manual un registru de lucru ca fișier Excel separat. În primul rând, selectați întreaga foaie de lucru pe care doriți să o salvați ca fișier separat, creați un nou registru de lucru, apoi lipiți-l în noul registru de lucru, la final îl salvează.

Acesta este un mod ușor de utilizat dacă trebuie să împărțiți doar câteva foi de lucru ca fișiere separate. Cu toate acestea, trebuie să fie consumatoare de timp și obositor să împărțiți multe foi de lucru cu copierea și lipirea manuală.


Împărțiți un registru de lucru pentru a separa fișierele Excel cu funcția Mutare sau Copiere

Această metodă va introduce funcția Mutare sau Copiere pentru a muta sau copia foile selectate într-un nou registru de lucru și pentru a le salva ca registru de lucru separat. Vă rugăm să faceți următoarele:

1. Selectați foile din bara de file Foaie, faceți clic dreapta și selectați Mutați sau copiați din meniul contextual. Vedeți captura de ecran:

notițe: Deținere Ctrl tasta, puteți selecta mai multe foi nonadiacente făcând clic pe ele una câte una în bara de file Foaie; deținere Schimba , puteți selecta mai multe foi adiacente făcând clic pe prima și pe ultima din bara de file Foaie.

2. În dialogul Mutare sau Copiere, selectați (carte noua) de la A rezerva lista derulantă, verificați Creați o copie și faceți clic pe OK buton. Vedeți captura de ecran:

3. Acum, toate foile selectate sunt copiate într-un nou registru de lucru. Clic Fișier > Economisiți pentru a salva noul registru de lucru.

Împarte rapid un registru de lucru pentru a separa fișierele Excel / PDF / TXT / CSV în Excel

În mod normal, putem împărți un registru de lucru în fișiere Excel individuale cu Mutați sau copiați caracteristică în Excel. Dar Kutools pentru Excel Carnet de lucru divizat utilitarul vă poate ajuta să împărțiți cu ușurință un registru de lucru și să salvați fiecare foaie de lucru ca un fișier PDF / TEXT / CSV separat sau un registru de lucru în Excel.


registru de lucru divizat excel

Kutools pentru Excel - Include peste 300 de instrumente utile pentru Excel. Probă gratuită cu funcții complete 30-zi, nu este nevoie de card de credit! Ia-L Acum

Împarte un registru de lucru pentru a separa fișierele Excel cu codul VBA

Următorul cod VBA vă poate ajuta să împărțiți rapid mai multe foi de lucru din registrul de lucru curent pentru a separa fișierele Excel, procedați după cum urmează:

1. Creați un folder nou pentru registrul de lucru pe care doriți să îl împărțiți, deoarece fișierele Excel împărțite vor rămâne în același folder cu acest registru de lucru principal.

2. Țineți apăsat butonul ALT + F11 tastele în Excel și deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.

3. Clic Insera > Moduleși lipiți următorul cod în fereastra modulului.

VBA: Împărțiți un registru de lucru în mai multe registre de lucru și salvați în același folder

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. apasă pe F5 tasta pentru a rula acest cod. Și registrul de lucru este împărțit pentru a separa fișierele Excel din același folder cu registrul de lucru original. Vedeți captura de ecran:

notițe: Dacă una dintre foi are același nume cu registrul de lucru, acest VBA nu poate funcționa.

Împarte un registru de lucru pentru a separa cu ușurință fișierele Excel / PDF / CSV / TXT cu Kutools pentru Excel

Dacă aveţi Kutools pentru Excel instalat, este Carnet de lucru divizat instrumentul poate împărți mai multe foi de lucru ca fișiere Excel separate în mod convenabil și rapid, cu doar câteva clicuri.

Kutools pentru Excel - Include peste 300 de instrumente utile pentru Excel. Probă gratuită cu funcții complete 30-zi, nu este nevoie de card de credit! Ia-L Acum

1. După instalare Kutools pentru Excel, Faceți clic pe Kutools Plus > Carnet de lucru divizat , vezi captura de ecran:

2. În Carnet de lucru divizat caseta de dialog, efectuați următoarele operații:
(1) Toate numele foilor de lucru sunt verificate în mod implicit. Dacă nu doriți să împărțiți unele dintre foile de lucru, le puteți debifa;
(2) Verificați Salvați un tip opțiune;
(3) Din Salvați ca tip derulați, alegeți un tip de fișier pe care doriți să îl împărțiți și salvați.
(4) Apoi faceți clic pe Despică butonul.

notițe: Dacă doriți să evitați divizarea foilor de lucru ascunse sau goale, puteți verifica Omiteți foile de lucru ascunse or Omiteți foile de lucru goale cutie.

3. În dialogul Căutare dosar, specificați un folder de destinație pentru a salva fișierele separate și faceți clic pe OK butonul.

Acum foile de lucru verificate sunt salvate ca registre de lucru separate noi. Fiecare registru de lucru nou este denumit cu numele original al foii de lucru. Vedeți captura de ecran:

Kutools pentru Excel's Carnet de lucru divizat instrumentul facilitează împărțirea registrului de lucru activ în fișiere Excel individuale (un fișier conține o foaie de lucru), fișiere CSV, fișiere TXT sau fișiere PDF, după cum aveți nevoie. Puteți seta să omiteți toate foile de lucru goale și ascunse. Aveți o încercare gratuită!


Demo: Împărțiți sau salvați fiecare foaie de lucru dintr-un registru de lucru ca fișiere separate excel / txt / csv / pdf


Kutools pentru Excel include mai mult de 300 de instrumente la îndemână pentru Excel, gratuite pentru a încerca fără limitări în 30 de zile. Descărcați și încercați gratuit acum!

Legate de articole:


Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
fundul officetab
Comentarii (113)
Evaluat 2.5 din 5 · evaluări 1
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am date în 4 foi diferite. Sheet1 este numită „A”, Sheet2 este numită „B”, Sheet3 este numită „C” și Sheet4 este numită „D”. Trebuie să împărțiți datele în registre diferite și fiecare foaie trebuie să aibă doar 25 de rânduri. Numele fișierului ar trebui să fie numit Sheet1 A.xls, Sheet2 A.xls dacă datele sunt copiate din foaia A. Odată ce foaia A devine goală, trebuie să copieze datele din foaia B și trebuie să continue numărul foii de la ultimul de ex. Sheet3 B.xls.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Când „împart un registru de lucru pentru a separa fișierele Excel cu cod VBA”, funcționează de vis, dar nu continuă formatarea, cum ar fi celulele îmbinate și alinierea celulelor în noile foi de calcul. Pot adăuga ceva pentru ca formatarea să rămână la fel ca și originalul?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Codul a funcționat ca un farmec! Da, nu toate formatările au fost păstrate. Nicio problemă, totuși. Pentru mine, toate celulele îmbinate dintr-un tabel au devenit necombinate. A fost un lucru simplu să selectați tabelul original, să formați pictorul, să evidențiați tabelul copiat și voilà, ca nou. Mulțumiri!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Coloana A Adresă IP Coloana B Nume IP Coloana C Rata de ping IP Adevărat (Aceasta este starea de ping al comenzii) Coloana D Rata de ping IP Fals (Aceasta este starea ping de comandă) Această listă de nume IP și IP în format Excel și starea este același format ( care este adevărat sau fals Stare)
Acest comentariu a fost redus la minimum de moderatorul de pe site
Cod minunat - mi-a salvat ziua. Multumesc pentru postare.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am o problemă la adăugarea codului pentru a salva fișierele împărțite ca ReadOnly. De ce nu funcționează sau cum fac asta? Sub Splitbook() MyPath = ThisWorkbook.Path Pentru fiecare sht din ThisWorkbook.Sheets sht.Copy ActiveSheet.Cells.Copy ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues ​​ActiveSheet.Cells.PasteSpecial Paste:=xlPasteFormats File:SaveAorPasteFormats. & "\" & sht.Name & ".xls", Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, ActiveWorkbook.Close savechanges:=False Următorul sht End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
O facilitate cu adevarat superba... uimitoare... wow...
Acest comentariu a fost redus la minimum de moderatorul de pe site
Script minunat. Pentru mine a funcționat ca orice. Mulțumiri.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Script util, dar caut pași suplimentari, pentru a alege singur un criteriu dintr-un excel și a completa automat în mai multe fișiere
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc, metoda 1 a fost extrem de utilă
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc! M-a scutit de mult efort manual!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Instrucțiunile VBA au fost „la fața locului”! ... chiar și pentru un novice! A funcționat grozav!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Foarte util! Mulțumesc pentru distribuire
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mare ajutor!!! extrem de usor si util :-)
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am folosit asta și a funcționat. Exact ce aveam nevoie. Mulțumiri
Acest comentariu a fost redus la minimum de moderatorul de pe site
Funcționează grozav, mulțumesc. L-am creat ca supliment și l-am instalat. Cum îl rulez acum oricând vreau (fără a fi nevoie să copiez și să lipesc de fiecare dată)? Există un buton pe care îl apăs sau un nume de funcție pe care îl folosesc?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Eroarea de afișare în linia 8.... xws cpy este o eroare
Acest comentariu a fost redus la minimum de moderatorul de pe site
A funcționat pentru mine după ce am eliminat Opțiunea explicită, așa că variabila trebuia definită. Cu toate acestea, aș dori să știu cum ar trebui definită această variabilă, deoarece apreciez opțiunea Option Explicit :)
Acest comentariu a fost redus la minimum de moderatorul de pe site
Acest cod și KUtools ambele arată o eroare după conversia a 222 de fișiere și după ce 222 de fișiere nu mai funcționează.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Stimate domnule, Vă rog să-mi trimiteți detalii despre codificarea de împărțire a s
Acest comentariu a fost redus la minimum de moderatorul de pe site
Puteți urma codificarea de mai jos. Codare VBA pentru foi împărțite Alt+f11 Insert-module-f5 Sub Splitbook() 'Updateby20140612 Dim xPath As String xPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False Pentru fiecare xWs din ThisWorkbooks.SheWorkbooks. Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xls" Application.ActiveWorkbook.Close False Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Fișele de lucru au fost produsul raportului tabel pivot, fișierele noi create de cod păstrează în continuare conexiunea la sursa de date și pot fi modificate. se poate face cod pentru a întrerupe conexiunea tabelului pivot sau adăugați o copie a tuturor foaielor și trecutului ca valori pentru a elimina conexiunea?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Stimate domnule Sanjay, Am încercat cu codurile, funcționează doar pentru câteva coli, dar fișierul pe care încerc să-l împart are aproape 466 de coli. Pot să știu codurile pentru el? Mulțumesc.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Pot să vă salvez scriptul modulului în registrul de lucru PERSONAL Macro pentru utilizare ulterioară?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Vă rog să-mi spuneți cum pot trimite e-mailuri în masă cu atașament personalizat în Outlook? Regrads, Yasir
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună Yasir, Nu puteți trimite atașamente personalizate prin îmbinare prin corespondență cu Outlook. Da, există puține instrumente externe, dar acestea sunt foarte costisitoare și nu sunt de încredere. Puteți face acest lucru cu Mozilla Thunderbird. Trebuie doar să descărcați suplimentul de îmbinare prin corespondență și puteți face acest lucru.
Nu există comentarii postate aici încă
Încărcați mai
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL