Przejdź do głównej zawartości

Jak podzielić skoroszyt, aby oddzielić pliki Excela w programie Excel?

Może być konieczne podzielenie dużego skoroszytu, aby oddzielić pliki programu Excel, zapisując każdy arkusz skoroszytu jako oddzielny plik programu Excel. Na przykład możesz podzielić skoroszyt na wiele oddzielnych plików programu Excel, a następnie dostarczyć każdy plik innej osobie, która go obsłuży. W ten sposób możesz skłonić określone osoby do obsługi określonych danych i zapewnić bezpieczeństwo danych. W tym artykule przedstawimy sposoby dzielenia dużego skoroszytu w celu oddzielenia plików programu Excel na podstawie każdego arkusza.

  1. Podziel skoroszyt, aby oddzielić pliki Excela, kopiując i wklejając
  2. Podziel skoroszyt, aby oddzielić pliki Excela za pomocą funkcji Przenieś lub Kopiuj
  3. Podziel skoroszyt, aby oddzielić pliki Excela za pomocą kodu VBA
  4. Podziel skoroszyt, aby łatwo oddzielić pliki Excel / PDF / CSV / TXT za pomocą Kutools for Excel

Podziel skoroszyt, aby oddzielić pliki Excela, kopiując i wklejając

Zwykle za pomocą Skopiuj poleceń i makaron polecenie może ręcznie zapisać skoroszyt jako oddzielny plik Excel. Najpierw wybierz cały arkusz, który chcesz zapisać jako osobny plik, utwórz nowy skoroszyt, a następnie wklej go do nowego skoroszytu, na koniec zapisze go.

Jest to łatwy w użyciu sposób, jeśli chcesz podzielić tylko kilka arkuszy roboczych jako oddzielne pliki. Jednak dzielenie wielu arkuszy z ręcznym kopiowaniem i wklejaniem musi być czasochłonne i żmudne.


Podziel skoroszyt, aby oddzielić pliki Excela za pomocą funkcji Przenieś lub Kopiuj

Ta metoda wprowadzi funkcję Przenieś lub kopiuj, aby przenieść lub skopiować wybrane arkusze do nowego skoroszytu i zapisać jako oddzielny skoroszyt. Wykonaj następujące czynności:

1. Wybierz arkusze na pasku kart Arkusz, kliknij prawym przyciskiem myszy i wybierz Przenieś lub skopiuj z menu kontekstowego. Zobacz zrzut ekranu:

Note: Trzymać Ctrl klawisz, możesz wybrać wiele nieprzylegających arkuszy, klikając je jeden po drugim na pasku kart Arkusz; trzymać Shift klawisz, możesz wybrać wiele sąsiednich arkuszy, klikając pierwszy i ostatni na pasku kart Arkusz.

2. W oknie dialogowym Przenieś lub Kopiuj wybierz (Nowa książka) z Aby zarezerwować rozwijana lista, sprawdź Utwórz kopię opcję i kliknij przycisk OK przycisk. Zobacz zrzut ekranu:

3. Teraz wszystkie wybrane arkusze są kopiowane do nowego skoroszytu. Kliknij filet > Zapisz aby zapisać nowy skoroszyt.

Szybko podziel skoroszyt, aby oddzielić pliki Excel / PDF / TXT / CSV w programie Excel

Zwykle możemy podzielić skoroszyt na pojedyncze pliki Excela z rozszerzeniem Przenieś lub skopiuj funkcja w programie Excel. Ale Kutools dla Excela Podziel skoroszyt Narzędzie może pomóc w łatwym podzieleniu skoroszytu i zapisaniu każdego arkusza roboczego jako osobnego pliku PDF / TEXT / CSV lub skoroszytu w programie Excel.


skoroszyt podziału reklam excel

Kutools dla programu Excel - Doładuj program Excel za pomocą ponad 300 niezbędnych narzędzi. Ciesz się w pełni funkcjonalnym 30-dniowym DARMOWYM okresem próbnym bez karty kredytowej! Zdobądź To Teraz

Podziel skoroszyt, aby oddzielić pliki Excela za pomocą kodu VBA

Poniższy kod VBA może pomóc szybko podzielić wiele arkuszy bieżącego skoroszytu w celu oddzielenia plików Excela, wykonaj następujące czynności:

1. Utwórz nowy folder dla skoroszytu, który chcesz podzielić, ponieważ podzielone pliki programu Excel pozostaną w tym samym folderze co ten główny skoroszyt.

2. Przytrzymaj ALT + F11 klucze w programie Excel i otwiera plik Microsoft Visual Basic for Applications okno.

3. Kliknij wstawka > Modułi wklej następujący kod w oknie modułu.

VBA: Podziel skoroszyt na wiele skoroszytów i zapisz w tym samym folderze

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, wciśnij F5 klucz do uruchomienia tego kodu. Skoroszyt jest podzielony, aby oddzielić pliki programu Excel w tym samym folderze co oryginalny skoroszyt. Zobacz zrzut ekranu:

Note: Jeśli jeden z arkuszy ma taką samą nazwę jak skoroszyt, ten VBA nie może działać.

Podziel skoroszyt, aby łatwo oddzielić pliki Excel / PDF / CSV / TXT za pomocą Kutools for Excel

Jeśli Kutools dla programu Excel zainstalowany, jego Podziel skoroszyt Narzędzie może wygodnie i szybko podzielić wiele arkuszy roboczych jako oddzielne pliki Excel za pomocą zaledwie kilku kliknięć.

Kutools dla programu Excel - Doładuj program Excel za pomocą ponad 300 niezbędnych narzędzi. Ciesz się w pełni funkcjonalnym 30-dniowym DARMOWYM okresem próbnym bez karty kredytowej! Zdobądź To Teraz

1. Po zainstalowaniu Kutools dla programu Excelkliknij Kutools Plus > Podziel skoroszyt zobacz zrzut ekranu:

2, w Podziel skoroszyt w oknie dialogowym wykonaj następujące operacje:
(1) Wszystkie nazwy arkuszy są domyślnie zaznaczone. Jeśli nie chcesz dzielić niektórych arkuszy, możesz je odznaczyć;
(2) Sprawdź Zapisz typ opcja;
(3) Z Zapisz jako typ wybierz jeden typ pliku, który chcesz podzielić i zapisać.
(4) Następnie kliknij Split przycisk.

Note: Jeśli chcesz uniknąć dzielenia ukrytych lub pustych arkuszy, możesz zaznaczyć plik Pomiń ukryte arkusze or Pomiń puste arkusze pudełko.

3. W oknie dialogowym Przeglądaj w poszukiwaniu folderu określ folder docelowy do zapisania podzielonych oddzielnych plików i kliknij OK przycisk.

Teraz zaznaczone arkusze są zapisywane jako nowe oddzielne skoroszyty. Każdy nowy skoroszyt nosi nazwę oryginalnego arkusza. Zobacz zrzut ekranu:

Kutools dla programu Excel's Podziel skoroszyt narzędzie ułatwia podzielenie aktywnego skoroszytu na pojedyncze pliki Excela (jeden plik zawiera jeden arkusz), pliki CSV, pliki TXT lub pliki PDF, zgodnie z potrzebami. Możesz ustawić pomijanie wszystkich pustych i ukrytych arkuszy. Bezpłatna wersja próbna!


Demo: Podziel lub zapisz każdy arkusz z jednego skoroszytu jako oddzielne pliki excel / txt / csv / pdf


Kutools dla programu Excel: Ponad 300 przydatnych narzędzi na wyciągnięcie ręki! Już dziś rozpocznij 30-dniowy bezpłatny okres próbny bez ograniczeń funkcji. Pobierz teraz!

Podobne artykuły:

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis


Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
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