Как разделить книгу на отдельные файлы Excel?

Обычно для сохранения листа как отдельного файла Excel вручную можно использовать команды Копировать и Вставить. Сначала выделите весь лист, который нужно сохранить как отдельный файл, создайте новую рабочую книгу и вставьте туда содержимое, а затем сохраните файл.

Этот способ удобен и прост в использовании, если нужно разделить всего несколько листов на отдельные файлы. Однако при большом количестве листов ручное копирование и вставка могут занять немало времени и быстро надоесть.

Этот метод использует функцию «Переместить или скопировать» для перемещения или копирования выбранных листов в новую рабочую книгу с последующим сохранением в виде отдельной книги. Выполните следующие действия:

1. Выделите нужные листы на вкладке «Листы» (панель вкладок), щёлкните правой кнопкой мыши и выберите в контекстном меню команду Переместить или скопировать. См. снимок экрана:

Примечание: удерживая клавишу Ctrl, можно выбрать несколько несмежных листов, последовательно щёлкая по ним на вкладке «Листы» (панель вкладок); удерживая клавишу Shift, можно выбрать несколько смежных листов, щёлкнув первый и последний из них на вкладке «Листы» (панель вкладок).

2. В диалоговом окне «Переместить или скопировать» выберите в раскрывающемся списке пункт (новая книга), установите флажок Создать копию и нажмите кнопку Книга ОК. См. снимок экрана:

3. Теперь все выбранные листы скопированы в новую рабочую книгу. Нажмите Файл > Сохранить, чтобы сохранить новую рабочую книгу.

Если у вас установлено расширение Kutools для Excel, его инструмент Разделить книгу позволяет удобно и быстро разделить несколько листов на отдельные файлы Excel всего несколькими щелчками.

1. После установки расширения Kutools для Excel нажмите KUTOOLS PLUS > Разделить книгу. См. снимок экрана:

2. В диалоговом окне Разделить книгу выполните следующие действия:
(1) По умолчанию отмечены все имена листов. Если какие-то листы не нужно разделять, снимите соответствующие флажки;
(2) установите флажок Тип сохранения;
(3) в раскрывающемся списке Указать формат сохранения выберите нужный тип файла, в котором следует разделить и сохранить файлы;
(4) затем нажмите кнопку Разделить.

Примечание: чтобы не разделять скрытые или пустые листы, установите флажок Игнорировать скрытые листы или Игнорировать пустые листы.

3. В диалоговом окне «Выбор папки» укажите папку назначения для сохранения отдельных файлов и нажмите кнопку ОК.

Теперь отмеченные листы сохранены как новые отдельные книги. Каждый файл Новая рабочая книга получает имя исходного Имя листа. См. снимок экрана:

Kutools для Excel предлагает инструмент Разделить книгу, который легко разделяет текущую книгу на отдельные файлы Excel (по одному листу в файле), CSV, TXT или PDF — по вашему выбору. Вы можете настроить пропуск всех пустых и скрытых листов.Попробуйте бесплатно!

Следующий код 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 работать не будет.

Объединение нескольких книг в одну

Сохранение выделенного фрагмента как отдельного файла