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

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

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

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

1. Выберите листы на панели вкладок Лист, щелкните правой кнопкой мыши и выберите Переместить или скопировать из контекстного меню. Смотрите скриншот:

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

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

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

Если у вас установлен Kutools for Excel, его инструмент Разделить книгу может легко и быстро разделить несколько листов на отдельные файлы Excel всего за несколько кликов.

1. После установки Kutools for Excel, нажмите Kutools Plus > Разделить книгу , смотрите скриншот:

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

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

3. В диалоговом окне Обзор папок укажите целевую папку для сохранения разделенных файлов и нажмите кнопку OK .

Теперь отмеченные листы сохранены как новые отдельные книги. Каждая новая книга называется по имени исходного листа. Смотрите скриншот:

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

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

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

2. Удерживая клавиши ALT + F11 в Excel, открывается окно Microsoft Visual Basic for Applications.

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 не будет работать.

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

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