Перейти до основного матеріалу
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 for Excel's Роздільна робоча книга Утиліта допоможе вам легко розділити книгу та зберегти кожен аркуш як окремий файл PDF / TEXT / CSV або книгу в Excel.


ad split workbook excel - -

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

Розділіть книгу, щоб відокремити файли Excel за допомогою коду VBA

Наступний код VBA може допомогти вам швидко розділити кілька аркушів поточної книги на окремі файли Excel, будь ласка, виконайте наступне:

1. Створіть нову папку для книги, яку потрібно розділити, оскільки розділені файли Excel залишатимуться в тій же папці, що і ця головна книга.

2. Утримуйте клавішу ALT + F11 клавіші в Excel, і він відкриває Microsoft Visual Basic для додатків вікна.

3. Клацання Insert > Модуліта вставте наступний код у вікно модуля.

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, Натисніть Kutools плюс > Роздільна робоча книга , див. скріншот:

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 Tab Надає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (113)
Оцінено 2.5 з 5 · рейтинги 1
Цей коментар був мінімізований модератором на сайті
У мене є дані в 4 різних аркушах. Аркуш 1 називається «А», Аркуш2 — «В», Аркуш3 — «С», а Аркуш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-адреси хибна (тобто командний статус пінінгу) Цей список імен IP-адреси та IP-адреси для формату та статусу в Excel однаковий формат ( це правда чи неправда статус)
Цей коментар був мінімізований модератором на сайті
Чудовий код - врятував день для мене. Дякую за публікацію.
Цей коментар був мінімізований модератором на сайті
У мене виникла проблема з додаванням коду для збереження розділених файлів як тільки для читання. Чому це не працює або як це зробити? Sub Splitbook() MyPath = ThisWorkbook.Path Для кожного sht в ThisWorkbook.Sheets sht.Copy ActiveSheet.Cells.Copy ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues ​​ActiveSheet.Cells.PasteSpecial Paste:=sveWPasteFormat:=xlPasteSpecial Paste. & "\" & sht.Name & ".xls", Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, ActiveWorkbook.Close savechanges:=False Наступний sht End Sub
Цей коментар був мінімізований модератором на сайті
Справді чудовий заклад..., дивовижний... вау...
Цей коментар був мінімізований модератором на сайті
Чудовий сценарій. Він спрацював для мене, як і будь-що. Спасибі.
Цей коментар був мінімізований модератором на сайті
Корисний сценарій, але я шукаю подальші кроки, щоб самостійно вибрати критерій із Excel та автоматично заповнити декілька файлів
Цей коментар був мінімізований модератором на сайті
Дякую. Спосіб 1 був надзвичайно корисним
Цей коментар був мінімізований модератором на сайті
Дякую! Заощадив мені багато ручних зусиль!
Цей коментар був мінімізований модератором на сайті
Інструкції VBA були "на місці"! ... навіть для новачка! Працювало чудово!
Цей коментар був мінімізований модератором на сайті
Дуже корисний! Дякую, що поділились
Цей коментар був мінімізований модератором на сайті
Чудова допомога!!! надзвичайно легко та корисно :-)
Цей коментар був мінімізований модератором на сайті
Скористався цим, і це спрацювало. Саме те, що мені було потрібно. Спасибі
Цей коментар був мінімізований модератором на сайті
Працює чудово, дякую. Я створив це як надбудову та встановив. Як тепер запустити його, коли я хочу (без необхідності кожного разу копіювати та вставляти)? Чи є кнопка, яку я натискаю, чи назва функції, яку я використовую?
Цей коментар був мінімізований модератором на сайті
Його показ помилки в рядку 8.... xws cpy є помилкою
Цей коментар був мінімізований модератором на сайті
Це спрацювало для мене після того, як я видалив 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.DisplayAlerts = False.ThisSpy. Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xls" Application.ActiveWorkbook.Close False Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
Цей коментар був мінімізований модератором на сайті
Робочі аркуші були продуктом звіту зведеної таблиці, нові файли, створені кодом, все ще зберігають зв’язок з джерелом даних і можуть бути змінені. чи можна зробити код, щоб розірвати зв’язок зведеної таблиці, або додати копію кожного аркуша та минулого як значення, щоб позбавити з’єднання?
Цей коментар був мінімізований модератором на сайті
Шановний пане Санджай, я спробував використовувати коди, вони працюють лише для кількох аркушів, але файл, який я намагаюся розділити, має майже 466 аркушів. Чи можу я знати коди для нього? Дякую.
Цей коментар був мінімізований модератором на сайті
Чи можу я зберегти ваш сценарій модуля в ПЕРСОНАЛЬНІЙ зошиті макросів для подальшого використання?
Цей коментар був мінімізований модератором на сайті
Скажіть, будь ласка, як я можу надсилати масові електронні листи з персоналізованими вкладеннями в Outlook. Regrads, Yasir
Цей коментар був мінімізований модератором на сайті
Привіт, Ясір! Ви не можете надсилати персоналізовані вкладені файли в поштовому злитті за допомогою Outlook. Так, зовнішніх інструментів небагато, але вони дуже дорогі і ненадійні. Ви можете зробити це за допомогою Mozilla Thunderbird. Просто потрібно завантажити додаток для злиття, і ви можете це зробити.
There are no comments posted here yet
Load More