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

Kako razdeliti delovni zvezek za ločevanje Excelovih datotek v Excelu?

Morda boste morali razdeliti velik delovni zvezek, da boste ločili Excelove datoteke, pri čemer boste vsak delovni list delovnega zvezka shranili kot posamezno Excelovo datoteko. Delovni zvezek lahko na primer razdelite na več posameznih Excelovih datotek in nato vsako datoteko dostavite različni osebi, ki jo bo obdelala. S tem lahko dosežete, da določene osebe obdelujejo določene podatke in jih varujejo. Ta članek bo predstavil načine za razdelitev velikega delovnega zvezka za ločevanje Excelovih datotek na podlagi vsakega delovnega lista.

  1. Razdelite delovni zvezek, da ločite Excelove datoteke s kopiranjem in lepljenjem
  2. Razdelite delovni zvezek, da ločite Excelove datoteke s funkcijo Premikanje ali Kopiranje
  3. Razdelite delovni zvezek, da ločite Excelove datoteke s kodo VBA
  4. Z Kutools za Excel preprosto razdelite delovni zvezek za ločevanje datotek Excel / PDF / CSV / TXT

Razdelite delovni zvezek, da ločite Excelove datoteke s kopiranjem in lepljenjem

Običajno, z uporabo Kopiraj ukaz in testenine ukaz lahko ročno shrani delovni zvezek kot ločeno datoteko Excel. Najprej izberite celoten delovni list, ki ga želite shraniti kot ločeno datoteko, ustvarite nov delovni zvezek in ga nato prilepite v nov delovni zvezek, na koncu pa ga shranite.

To je enostaven način uporabe, če morate le nekaj delovnih listov razdeliti kot ločene datoteke. Vendar pa mora biti zamudno in dolgočasno razdeljevanje številnih delovnih listov z ročnim kopiranjem in lepljenjem.


Razdelite delovni zvezek, da ločite Excelove datoteke s funkcijo Premikanje ali Kopiranje

Ta metoda bo uvedla funkcijo Premakni ali Kopiraj, če želite izbrane liste premakniti ali kopirati v nov delovni zvezek in shraniti kot ločen delovni zvezek. Naredite naslednje:

1. V vrstici z zavihki List izberite liste, z desno miškino tipko kliknite in izberite Premakni ali Kopiraj iz kontekstnega menija. Oglejte si posnetek zaslona:

Opombe: Držati Ctrl tipko, lahko izberete več sosednjih listov, tako da jih kliknete enega za drugim v vrstici zavihkov List; držati Shift tipko, lahko izberete več sosednjih listov s klikom na prvega in zadnjega v vrstici z zavihki List.

2. V pogovornem oknu Premakni ali Kopiraj izberite (nova knjiga) Iz Rezervirati spustni seznam, preverite Ustvari kopijo in kliknite na OK . Oglejte si posnetek zaslona:

3. Zdaj se vsi izbrani listi kopirajo v nov delovni zvezek. Kliknite file > Shrani shranite nov delovni zvezek.

Hitro razdelite delovni zvezek, da v Excelu ločite datoteke Excel / PDF / TXT / CSV

Običajno lahko delovni zvezek razdelimo na posamezne Excelove datoteke z Premakni ali Kopiraj funkcija v Excelu. Toda Kutools za Excel Razdeljeni delovni zvezek pripomoček vam lahko pomaga enostavno razdeliti delovni zvezek in shraniti vsak delovni list kot ločeno datoteko PDF / TEXT / CSV ali delovni zvezek v Excelu. Popolnoma brezplačna preizkusna različica 30-dnevna!
ad split delovni zvezek

Kutools za Excel - Vključuje več kot 300 priročnih orodij za Excel. 30-dnevna brezplačna preizkusna različica brez kreditne kartice! Get It Now

Razdelite delovni zvezek, da ločite Excelove datoteke s kodo VBA

Naslednja koda VBA vam lahko pomaga hitro razdeliti več delovnih listov trenutne delovne knjige v ločene Excelove datoteke, naredite naslednje:

1. Ustvarite novo mapo za delovni zvezek, ki ga želite razdeliti, ker bodo razdeljene Excelove datoteke ostale v isti mapi kot ta glavni delovni zvezek.

2. Držite tipko ALT + F11 tipke v Excelu in odpre Microsoft Visual Basic za aplikacije okno.

3. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v okno modula.

VBA: delovni zvezek razdelite na več delovnih zvezkov in shranite v isto mapo

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. Pritisnite F5 tipko za zagon te kode. Delovni zvezek je razdeljen na ločene Excelove datoteke v isti mapi z izvirnim delovnim zvezkom. Oglejte si posnetek zaslona:

Opombe: Če ima eden od listov isto ime kot delovni zvezek, ta VBA ne more delovati.

Z Kutools za Excel preprosto razdelite delovni zvezek za ločevanje datotek Excel / PDF / CSV / TXT

Če imate Kutools za Excel nameščen, njegov Razdeljeni delovni zvezek orodje lahko razdeli več delovnih listov kot ločene Excelove datoteke z le nekaj kliki.

Kutools za Excel - Vključuje več kot 300 priročnih orodij za Excel. 30-dnevna brezplačna preizkusna različica brez kreditne kartice! Get It Now

1. Po namestitvi Kutools za Excel, Kliknite Kutools Plus > Razdeljeni delovni zvezek , glej posnetek zaslona:

2. v Razdeljeni delovni zvezek v pogovornem oknu izvedite naslednje postopke:
(1) Vsa imena delovnih listov so privzeto označena. Če ne želite razdeliti nekaterih delovnih listov, jih lahko počistite;
(2) Preverite Shranite vrsto možnost;
(3) Od Shrani kot vrsto v spustnem meniju izberite eno vrsto datoteke, ki jo želite razdeliti in shraniti.
(4) Nato kliknite Split gumb.

Opombe: Če se želite izogniti razdelitvi skritih ali praznih delovnih listov, lahko preverite Preskočite skrite delovne liste or Preskočite prazne delovne liste škatla.

3. V pogovornem oknu Brskaj za mapo določite ciljno mapo, da shranite ločene datoteke, in kliknite OK gumb.

Zdaj so preverjeni delovni listi shranjeni kot novi ločeni delovni zvezki. Vsak nov delovni zvezek je poimenovan z izvirnim imenom delovnega lista. Oglejte si posnetek zaslona:

Kutools za Excel's Razdeljeni delovni zvezek orodje omogoča enostavno razdelitev aktivnega delovnega zvezka na posamezne Excelove datoteke (ena datoteka vsebuje en delovni list), datoteke CSV, datoteke TXT ali datoteke PDF, kot jih potrebujete. Nastavite lahko preskakovanje vseh praznih in skritih delovnih listov. Brezplačno preskusite!


Predstavitev: Razdelite ali shranite vsak delovni list enega delovnega zvezka kot ločene datoteke excel / txt / csv / pdf


Kutools za Excel vključuje več kot 300 priročnih orodij za Excel, ki jih lahko brezplačno preizkusite v 30 dneh. Prenesite in brezplačno preizkusite zdaj!

Sorodni članki:


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2019 in 365. Podpira vse jezike. Preprosta namestitev v vašem podjetju ali organizaciji. Vse funkcije 30-dnevnega brezplačnega preskusa. 60-dnevno jamstvo za vračilo denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50% in vsak dan zmanjša na stotine klikov z miško!
dno pisarniške mize
Komentarji (112)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Podatke imam na 4 različnih listih. List1 je poimenovan kot "A", Sheet2 je poimenovan kot "B", Sheet3 je imenovan kot "C" in Sheet4 je poimenovan kot "D". Podatke je treba razdeliti v različne delovne zvezke in vsak list mora imeti samo 25 vrstic. Ime datoteke mora biti poimenovano kot Sheet1 A.xls, Sheet2 A.xls, če so podatki kopirani iz lista A. Ko je list A prazen, mora kopirati podatke iz lista B in nadaljevati številko lista od zadnjega, npr. List3 B.xls.
Ta komentar je moderator na spletnem mestu minimiziral
Ko "razdelim delovni zvezek, da ločim Excelove datoteke s kodo VBA", deluje sanjsko, vendar ne ohranja oblikovanja, kot so spojene celice in poravnava celic v novih preglednicah. Ali lahko kaj dodam, da ostane oblikovanje enako kot izvirnik?
Ta komentar je moderator na spletnem mestu minimiziral
Koda je delovala kot čar! Da, vse oblike niso bile ohranjene. Vendar ni problema. Zame so vse združene celice v tabeli postale nezdružene. Preprosto je bilo izbrati izvirno tabelo, preslikava formatov, poudariti kopirano tabelo in voila, kot nova. Hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Stolpec A IP-naslov Stolpec B IP-ime Stolpec C IP-intenzivna stopnja resničnega (to je stanje pinga ukaza) Stolpec D Stopnja pinga IP-ja napačno (to je stanje pinga ukaza) Ta seznam imen ip in naslovov v formatu excel in status je enak formatu excel( to je res ali napačno stanje)
Ta komentar je moderator na spletnem mestu minimiziral
Čudovita koda - rešila mi je dan. Hvala za objavo.
Ta komentar je moderator na spletnem mestu minimiziral
Imam težavo pri dodajanju kode za shranjevanje razdeljenih datotek kot samo za branje. Zakaj to ne deluje ali kako to storim? Sub Splitbook() MyPath = ThisWorkbook.Path For Every sht In ThisWorkbook.Sheets sht.Copy ActiveSheet.Cells.Copy ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues ​​ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues ​​ActiveSheet.Cells.PasteSpecial Paste. & "\" & sht.Name & ".xls", Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, ActiveWorkbook.Close savechanges:=False Next sht End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Res odličen objekt.., neverjetno...vau..
Ta komentar je moderator na spletnem mestu minimiziral
Čudovit scenarij. Delal mi je kot vse. Hvala.
Ta komentar je moderator na spletnem mestu minimiziral
Uporaben skript, vendar iščem nadaljnje korake, da sam izberem merilo iz excela in samodejno izpolnim več datotek
Ta komentar je moderator na spletnem mestu minimiziral
Hvala. Metoda 1 je bila izjemno uporabna
Ta komentar je moderator na spletnem mestu minimiziral
Hvala vam! Prihranil sem veliko ročnega truda!
Ta komentar je moderator na spletnem mestu minimiziral
Navodila VBA so bila "na mestu"! ... tudi za novinca! Delalo odlično!
Ta komentar je moderator na spletnem mestu minimiziral
Zelo uporabno! Hvala za deljenje
Ta komentar je moderator na spletnem mestu minimiziral
Velika pomoč!!! zelo enostavno in uporabno :-)
Ta komentar je moderator na spletnem mestu minimiziral
Uporabil je to in je delovalo. Samo tisto, kar sem potreboval. Hvala
Ta komentar je moderator na spletnem mestu minimiziral
Deluje odlično, hvala. To sem ustvaril kot dodatek in ga namestil. Kako ga zdaj zaženem, kadar hočem (ne da bi bilo treba vsakič kopirati in lepiti)? Ali obstaja gumb, ki ga pritisnem, ali ime funkcije, ki ga uporabljam?
Ta komentar je moderator na spletnem mestu minimiziral
Njegov prikaz napake v vrstici 8.... xws cpy je napaka
Ta komentar je moderator na spletnem mestu minimiziral
Meni je delovalo, potem ko sem odstranil možnost Explicit, zato je bilo treba spremenljivko definirati. Vendar bi rad vedel, kako naj bo ta spremenljivka definirana, saj cenim možnost Option Explicit :)
Ta komentar je moderator na spletnem mestu minimiziral
Ta koda in KUtools prikazujeta napako po pretvorbi 222 datotek in po 222 datotekah oba prenehata delovati.
Ta komentar je moderator na spletnem mestu minimiziral
Spoštovani, ali mi lahko pošljete podrobnosti, kako kodiranje razdeliti s
Ta komentar je moderator na spletnem mestu minimiziral
Sledite spodnjim kodiranjem. Kodiranje VBA za razdeljene liste Alt+f11 Insert-module-f5 Sub Splitbook() 'Updateby20140612 Dim xPath As String xPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False.DisplayAlerts = False.ThisSheW xPath. Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xls" Application.ActiveWorkbook.Close False Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Delovni listi so bili produkt poročila vrtilne tabele, nove datoteke, ustvarjene s kodo, še vedno ohranjajo povezavo z virom podatkov in jih je mogoče spremeniti. Ali je mogoče narediti kodo za prekinitev povezave vrtilne tabele ali dodati kopijo vseh listov in preteklih kot vrednosti, da se znebite povezave?
Ta komentar je moderator na spletnem mestu minimiziral
Spoštovani gospod Sanjay, poskusil sem s kodami, ki delujejo samo za nekaj listov, toda datoteka, ki jo poskušam razdeliti, ima skoraj 466 listov. Ali lahko poznam kode za to? Hvala vam.
Ta komentar je moderator na spletnem mestu minimiziral
Ali lahko shranim vaš skript modula v OSEBNI Macro Workbook za nadaljnjo uporabo?
Ta komentar je moderator na spletnem mestu minimiziral
Ali mi lahko prosim poveste, kako lahko pošiljam množično e-pošto s prilagojeno prilogo v Outlooku. Regrads, Yasir
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Yasir, ne morete poslati prilagojene priloge v združevanju pošte z Outlookom. Da, na voljo je malo zunanjih orodij, vendar so ta zelo draga in niso zanesljiva. To lahko storite z Mozilla Thunderbird. Samo prenesti morate dodatek za spajanje pošte in to lahko storite.
Tu še ni objavljenih komentarjev
Obremenitev Več
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije