Съвет: Други езици са преведени от Google. Можете да посетите English версия на тази връзка.
Влизане
x
or
x
x
Регистрирам
x

or

Как да разделяте работна книга, за да разделите Excel файлове в Excel?

Може да се наложи да разделите голяма работна книга, за да отделите Excel файлове, като запазите всеки работен лист на работната книга като отделен Excel файл. Например, можете да разделите работна книга на множество отделни Excel файлове и след това да доставяте всеки файл на друг човек, за да се справите с него. По този начин можете да накарате определени хора да обработват конкретни данни и да пазят данните ви в безопасност. Тази статия ще въведе начини за разделяне на голяма работна книга, за да се разделят Excel файлове въз основа на всеки работен лист.

  1. Разделете работна книга, за да разделите Excel файлове с копиране и поставяне
  2. Разделете работна книга, за да отделите Excel файлове с функция Move или Copy
  3. Разделете работна книга, за да разделите Excel файлове с код VBA
  4. Разделете една работна книга, за да разделите Excel / PDF / CSV / TXT файлове с Kutools за Excel лесно

Бързо разделите работна книга, за да отделите Excel / PDF / TXT / CSV файлове в Excel

Обикновено можем да разделим една работна книга на отделни Excel файлове с Преместване или копиране в Excel. Но Kutools за Excel Работна книга за разделяне Помощната програма може да ви помогне лесно да разделите работна книга и да запазите всеки работен лист като отделен PDF / TEXT / CSV файл или работна книга в Excel. Безплатна пробна версия 60-ден!
ad split workbook excel

Kutools за Excel - Включва повече от удобни инструменти на Excel. Пълна безплатна пробна версия 300-ден, не се изисква кредитна карта! Махни го сега!


Разделете работна книга, за да разделите Excel файлове с копиране и поставяне


Обикновено, използвайки Копирайте командване и Паста командата може да запази ръчно работна книга като отделен файл Excel. Първо, изберете целия работен лист, който искате да запишете като отделен файл, създайте нова работна книга и го поставете в новата работна книга, а в края я запазва.

Това е лесен за използване начин, ако трябва да разделите само няколко работни листа като отделни файлове. Въпреки това, тя трябва да отнема много време и досадно да се разделят много работни листове с копиране и поставяне ръчно.


Разделете работна книга, за да отделите Excel файлове с функция Move или Copy

Този метод ще въведе функцията за преместване или копиране за преместване или копиране на избраните листове в нова работна книга и запазване като отделна работна книга. Моля, направете следното:

1, Изберете листите в лентата с раздели „Лист“, щракнете с десния бутон и изберете Преместване или копиране от контекстното меню. Вижте екранна снимка:

Забележка: Холдинг Ctrl можете да изберете няколко несвързани листа, като щракнете върху тях един по един в лентата с раздели Sheet; държеше Превключване можете да изберете няколко съседни листа с щракване върху първата и последната в лентата с раздели Sheet.

2, В диалоговия прозорец Преместване или копиране изберете (нова книга) от Резервирам падащия списък, проверете Създайте копие и щракнете върху OK бутон. Вижте екранна снимка:

3, Сега всички избрани листове се копират в нова работна книга. Кликнете досие > Save за да запазите новата работна книга.


Разделете работна книга, за да разделите Excel файлове с код VBA

Следният код на VBA може да ви помогне бързо да разделите няколко работни листа от текущата работна книга, за да разделите Excel файлове, моля, направете следното:

1, Създайте нова папка за работната книга, която искате да разделите, защото разделените Excel файлове ще останат в същата папка като тази главна работна книга.

2, Задръжте надолу ALT + F11 ключове в Excel и го отваря Microsoft Visual Basic за приложения прозорец.

3. Щракнете Поставете > Модули, и поставете следния код в прозореца на модула.

VBA: Разделете работна книга на няколко работни книги и запишете в същата папка

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, Натисни F5 ключ за стартиране на този код. А работната книга е разделена на отделни Excel файлове в същата папка с оригиналната работна книга. Вижте екранна снимка:

Забележка: Ако един от листите има същото име с работната книга, този VBA не може да работи.


Разделете една работна книга, за да разделите Excel / PDF / CSV / TXT файлове с Kutools за Excel лесно

Ако имате Kutools за Excel инсталиран, неговата Работна книга за разделяне инструментът може да разделя множество работни листове като отделни Excel файлове удобно и бързо само с няколко кликвания.

Kutools за Excel - Включва повече от удобни инструменти на Excel. Пълна безплатна пробна версия 300-ден, не се изисква кредитна карта! Махни го сега!

1, След инсталирането Kutools за Excel, Щракнете върху Kutools Още > Работна книга за разделяне , вижте екранната снимка:

2. В Работна книга за разделяне , изпълнете следните операции:
(1) Всички имена на работни листове се проверяват по подразбиране. Ако не искате да разделяте някои от работните листове, можете да ги махнете;
(2) Проверете Запазване на тип опция;
(3) От Запиши като тип падащо меню, изберете един тип файл, който искате да разделите и запазите.
(4) След това кликнете разцепен бутон.

Забележка: Ако искате да избегнете разделянето на скритите или празни работни листове, можете да проверите Пропуснете скритите работни листове or Пропуснете празни работни листове кутия.

3, В диалоговия прозорец Преглед на папка, моля, посочете папка, в която да се съхранят отделните файлове, и кликнете върху OK бутон.

Сега проверените работни листове се записват като нови разделени работни книги. Всяка нова работна книга се наименува с оригиналното име на работния лист. Вижте екранната снимка:

Kutools за Excel's Работна книга за разделяне Инструментът улеснява разделянето на активната работна книга в отделни файлове на Excel (един файл съдържа един работен лист), CSV файлове, TXT файлове или PDF файлове, както ви е необходимо. Можете да настроите да пропуснете всички празни и скрити работни листове. Имате безплатен пробен период!


Демонстрация: Разделете или запазете всеки работен лист на една работна книга като отделни файлове на excel / txt / csv / pdf

В това видео Kutools и раздела Kutools Още се добавят от Kutools за Excel, Ако е необходимо, моля, кликнете върху тук да имате безплатен пробен период без ограничение 60!


Още по темата:



Препоръчителни инструменти за производителност

Таб на Office

златна звезда1 Носете удобни раздели в Excel и друг софтуер на Office, също като Chrome, Firefox и новия Internet Explorer.

Kutools за Excel

златна звезда1 Невероятно! Увеличете производителността си в 5 минути. Не се нуждаете от специални умения, освен два часа всеки ден!

златна звезда1 300 Нови функции за Excel, Направете Excel много лесен и мощен:

  • Обединяване на клетки / редове / колони без загуба на данни.
  • Комбинирайте и консолидирайте няколко листа и работни книги.
  • Сравняване на диапазони, копиране на множество диапазони, конвертиране на текст към дата, преобразуване на единица и валута.
  • Брой по цветове, междинни мерни единици за пейджинг, разширен сортиране и супер филтър,
  • Още Избор / Вмъкване / Изтриване / Текст / Форматиране / Връзка / Коментар / Работни книги / Работни листове Инструменти ...

Изстрел на екрана на Kutools за Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Adrian Rees · 3 years ago
    Thanks, vba code worked perfectly! Saved me a lot of time splitting a spreadsheet with 25 tabs into different files.

    Only thing i picked up is in the 6th last line i changed the file format to new Excel "xlsx"

    " & xWs.Name & ".xls" becomes >>>>> " & xWs.Name & ".xlsx"
  • To post as a guest, your comment is unpublished.
    Herb · 3 years ago
    Thanks for the VBA code!!. It worked perfectly. Saved me much work!!
  • To post as a guest, your comment is unpublished.
    NG · 3 years ago
    Hi there,

    Thank you so much for the code, however may how you would add to the code if you wanted the following to happen?
    1. What if you wanted Sheet 1 to be copied as well for each additional sheets?

    For example, the newly created
    1. "Sheet 2" would have "Sheet 1 and Sheet 2"
    2. "Sheet 3" would have "Sheet 1 and Sheet 3"

    and so on and so forth.

    Appreciate if you could provide any help with this. Thank you.
  • To post as a guest, your comment is unpublished.
    zirokl · 3 years ago
    Thank you so much for this! It is amazing, works perfectly.

    But is it possible to modify it so it saves each worksheet to the same directory(without creating a new folder) based on original file name or particular Cell Value? Just by adding (1), (2) ets at the end of each exported file.

    Greatly appreciate your help.
  • To post as a guest, your comment is unpublished.
    NG · 3 years ago
    you saved my day with this code!!