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

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

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

  1. Разделение книги на отдельные файлы Excel с копированием и вставкой
  2. Разделите книгу на отдельные файлы Excel с помощью функции перемещения или копирования
  3. Разделить книгу на отдельные файлы Excel с кодом VBA
  4. Разделите книгу на отдельные файлы Excel / PDF / CSV / TXT с помощью Kutools for Excel легко

Разделение книги на отдельные файлы Excel с копированием и вставкой

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

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


Разделите книгу на отдельные файлы Excel с помощью функции перемещения или копирования

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

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

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

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

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

Быстро разбейте книгу на отдельные файлы Excel / PDF / TXT / CSV в Excel

Обычно мы можем разделить книгу на отдельные файлы Excel с помощью Переместить или скопировать функция в Excel. Но Kutools для Excel Разделить книгу Утилита может помочь вам легко разделить книгу и сохранить каждый лист как отдельный файл PDF / TEXT / CSV или книгу в Excel.


книга разделения рекламы Excel

Kutools for Excel - Включает более 300 удобных инструментов для Excel. Полнофункциональная бесплатная пробная версия 30-день, кредитная карта не требуется! Get It Now

Разделить книгу на отдельные файлы 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 for Excel легко

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

Kutools for Excel - Включает более 300 удобных инструментов для Excel. Полнофункциональная бесплатная пробная версия 30-день, кредитная карта не требуется! Get It Now

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

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

Внимание: Если вы не хотите разделять скрытые или пустые листы, вы можете проверить Пропустить скрытые листы or Пропускать пустые листы пунктом.

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

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

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


Демонстрация: разделите или сохраните каждый рабочий лист одной книги как отдельные файлы excel / txt / csv / pdf


Kutools for Excel включает более 300 удобных инструментов для Excel, которые можно бесплатно попробовать без ограничений в течение 30 дней. Скачать и бесплатную пробную версию сейчас!

Статьи по теме:


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (113)
Номинальный 2.5 из 5 · рейтинги 1
Этот комментарий был сведен к минимуму модератором на сайте
У меня есть данные на 4 разных листах. Лист 1 называется «A», Лист 2 — «B», Лист 3 — «C», а Лист 4 — «D». Необходимо разделить данные на разные книги, и на каждом листе должно быть только 25 строк. Имя файла должно называться Sheet1 A.xls, Sheet2 A.xls, если данные копируются с листа A. Как только лист A станет пустым, он должен скопировать данные с листа B и должен продолжить номер листа с последнего, например Лист3 B.xls.
Этот комментарий был сведен к минимуму модератором на сайте
Когда я «разделяю книгу на отдельные файлы Excel с кодом VBA», она работает как мечта, но не сохраняет форматирование, такое как объединенные ячейки и выравнивание ячеек в новых электронных таблицах. Могу ли я что-то добавить, чтобы форматирование оставалось таким же, как и в оригинале?
Этот комментарий был сведен к минимуму модератором на сайте
Код работал как шарм! Да, не все форматирование сохранилось. Впрочем, нет проблем. Для меня все объединенные ячейки в таблице стали не объединенными. Было просто выбрать исходную таблицу, форматировать, выделить скопированную таблицу и вуаля, как новая. Спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
Столбец A IP-адрес Столбец B IP-имя Столбец C Скорость пингования IP-адресов Истина (состояние проверки связи команды) Столбец D Скорость проверки связи IP-адреса Ложь (состояние проверки связи команды) это истинный или ложный статус)
Этот комментарий был сведен к минимуму модератором на сайте
Отличный код - спас день для меня. Спасибо за публикацию.
Этот комментарий был сведен к минимуму модератором на сайте
У меня возникла проблема с добавлением кода для сохранения разделенных файлов как ReadOnly. Почему это не работает или как мне это сделать? Sub Splitbook() MyPath = ThisWorkbook.Path Для каждого файла в ThisWorkbook.Sheets sht.Copy ActiveSheet.Cells.Copy ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues ​​ActiveSheet.Cells.PasteSpecial Paste:=xlPasteFormats ActiveWorkbook.SaveAs _ Filename:=MyPath & "\" & sht.Name & ".xls", Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, ActiveWorkbook.Close savechanges:=False Next sht End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Действительно превосходное заведение.., потрясающе... вау..
Этот комментарий был сведен к минимуму модератором на сайте
Потрясающий сценарий. Он работал для меня, как ничего. Спасибо.
Этот комментарий был сведен к минимуму модератором на сайте
Полезный скрипт, но я ищу дальнейшие шаги, чтобы самостоятельно выбрать критерий из Excel и автоматически заполнить несколько файлов.
Этот комментарий был сведен к минимуму модератором на сайте
спасибо 1 способ очень помог
Этот комментарий был сведен к минимуму модератором на сайте
Благодарю вас! Сэкономил мне много ручных усилий!
Этот комментарий был сведен к минимуму модератором на сайте
Инструкции VBA были «на месте»! ... даже для новичка! Работал отлично!
Этот комментарий был сведен к минимуму модератором на сайте
Очень полезный! Спасибо, что поделился
Этот комментарий был сведен к минимуму модератором на сайте
Большая помощь!!! очень просто и полезно :-)
Этот комментарий был сведен к минимуму модератором на сайте
Использовал это, и это сработало. Как раз то, что мне было нужно. Спасибо
Этот комментарий был сведен к минимуму модератором на сайте
Отлично работает, спасибо. Я создал это как надстройку и установил ее. Как мне теперь запустить его, когда захочу (без необходимости каждый раз копировать и вставлять)? Есть ли кнопка, которую я нажимаю, или название функции, которое я использую?
Этот комментарий был сведен к минимуму модератором на сайте
Отображает ошибку в строке 8.... xws cpy is error
Этот комментарий был сведен к минимуму модератором на сайте
Это сработало для меня после того, как я удалил Option Explicit, поэтому необходимо было определить переменную. Однако я хотел бы знать, как должна быть определена эта переменная, так как я ценю опцию Option Explicit :)
Этот комментарий был сведен к минимуму модератором на сайте
Этот код и KUtools показывают ошибку после преобразования файлов 222 и после того, как файлы 222 перестают работать.
Этот комментарий был сведен к минимуму модератором на сайте
Уважаемый сэр, не могли бы вы прислать мне подробную информацию о том, как кодировать для разделения s
Этот комментарий был сведен к минимуму модератором на сайте
Вы можете следовать приведенной ниже кодировке. Кодирование VBA для разделенных листов Alt+f11 Insert-module-f5 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 Имя файла:=xPath & "\" & xWs.Name & ".xls" Application.ActiveWorkbook.Close False Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Рабочие листы были продуктом отчета сводной таблицы, новые файлы, созданные кодом, по-прежнему сохраняют связь с источником данных и могут быть изменены. можно ли сделать код, чтобы разорвать соединение со сводной таблицей, или добавить копию всех листов и вставить в качестве значений, чтобы избавиться от соединения?
Этот комментарий был сведен к минимуму модератором на сайте
Уважаемый г-н Санджай, я пробовал с кодами, он работает только для нескольких листов, но файл, который я пытаюсь разделить, имеет почти 466 листов. Можно узнать его коды? Спасибо.
Этот комментарий был сведен к минимуму модератором на сайте
Могу ли я сохранить сценарий вашего модуля в ЛИЧНОЙ книге макросов для использования в будущем?
Этот комментарий был сведен к минимуму модератором на сайте
Не могли бы вы рассказать мне, как я могу отправлять массовые электронные письма с персонализированным вложением в Outlook. Regrads, Yasir
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Ясир! Вы не можете отправить персонализированное вложение при слиянии почты с Outlook. Да, внешних инструментов немного, но они очень дорогие и ненадежные. Вы можете сделать это с помощью Mozilla Thunderbird. Просто нужно загрузить дополнение для слияния почты, и вы можете это сделать.
Здесь еще нет комментариев
Загрузить ещё
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL