Разделить excel на тома

Введение

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

Как быстро разделить таблицу Excel на отдельные книги макросом. Пошаговый алгоритм

• Сочетанием клавиш Alt+F11 открываем окно Visual Basic
• Создаем новый модуль Insert -> Module
• Вставляем код

Sub Разделить_столбец_по_книгам()
Const column = 2 'номер столбца, по которому будет происходить разделение.'
Const head = True
Set wbAct = ActiveWorkbook

Set dic = CreateObject("Scripting.Dictionary")

lr = Cells(Rows.Count, 1).End(xlUp).Row
lc = Cells(1, Columns.Count).End(xlToLeft).column

arr = Range("A1", Cells(lr, lc)).Value

If head Then fr = 2 Else fr = 1

For i = fr To UBound(arr)
    If Trim(arr(i, column)) <> "" Then dic.Item(arr(i, column)) = dic.Item(arr(i, column)) & "|" & i
Next

iPath = wbAct.Path & Application.PathSeparator & "Result" & Application.PathSeparator
'Result - название папки с результатами'
If Dir(iPath, vbDirectory) = "" Then MkDir iPath

arrDic = dic.keys
Set Rng = Nothing
Application.DisplayAlerts = False
For i = 0 To UBound(arrDic)
rrs = Split(Mid(dic.Item(arrDic(i)), 2), "|")
    If head Then Set Rng = Rows(1)
    For Each rr In rrs
        If Not Rng Is Nothing Then Set Rng = Union(Rows(rr), Rng) Else Set Rng = Rows(rr)
    Next
    Set wb = Workbooks.Add(1)
    Set sh = wb.Sheets(1)
    Rng.Copy
    sh.[A1].PasteSpecial xlPasteColumnWidths
    sh.[A1].PasteSpecial xlPasteAll
    Set Rng = Nothing
    wb.SaveAs iPath & Replace_symbols(arrDic(i)) & ".xlsx", xlOpenXMLWorkbook
    wb.Close False
Next
Application.DisplayAlerts = True
End Sub
'Замена запрещённых символов в имени файла или папки'
Function Replace_symbols(ByVal txt As String) As String
    St$ = "\/~!@#$%^&*=|`'"""
    For i% = 1 To Len(St$)
        txt = Replace(txt, Mid(St$, i, 1), "_")
    Next
    Replace_symbols = txt
End Function

• На второй строке кода, цифру 2 замените на номер столбца, в котором содержится критерий для разбиения
• Сохраните код Ctrl+S
• Сохраните файл Excel, как книгу с поддержкой макросов xlsm
• Выполните макрос Alt+F8

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

Заключение

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

У нас Вы можете заказать выполнение задач по MS Excel и Google таблицам

А также, пройти бесплатные онлайн курсы по MS Excel с заданиями

Как разделить файл Excel на отдельные файлы (по листам)

Такое бывает довольно часто, делаешь ежегодный отчет, а в нем 12 месяцев, соответственно 12 листов. И нужно разделить этот файл таким образом, чтобы каждый лист стал отдельным файлом.

И конечно же, можно сделать это руками, но это крайне долго и неэффективно.

Я продемонстрирую вам простой код Visual Basic, который выполнит задачу за вас.

Делим файл Excel на несколько файлов по листам

Допустим, у нас есть ежегодный отчет, в котором по листам расписаны показатели компании за каждый месяц. Как на картинке ниже:

Код Visual Basic, который разделит таблицу на несколько файлов по месяцам:

Перед тем, как запустите этот код, сделайте следущее:

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

Теперь создайте функцию в Visual Basic и смело запускайте код.

Этот код сам найдет путь до папки с файлом.

Как он работает?

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

Куда поместить этот код?

• Щелкните на «Разработчик»;

• Далее откройте VBA;

• Правой кнопкой мышки на любой лист;.

• Щелкните на «Insert» -> «Module»;

• Поместите наш код в открывшееся окошко;

• Теперь запустите код.

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

Как я говорил ранее, имя файла такое же, как и имя листа.

Также не забудьте сохранить файл с соответствующим расширением(.XLSM), так как мы используем функции Visual Basic.

В коде я специально сделал так, чтобы вы не видели все что происходит и это вам не мешало. Вы можете исправить это если вам наоборот нужно видеть то, что происходит.

Но также, опять повторюсь, обязательно сделайте копию вашего файла перед использованием функции! Потому что если работа Excel завершится из-за какой-либо ошибки или произойдет еще что-то неожиданное вы можете потерять свои данные!

Делим файл Excel на несколько PDF файлов по листам

Вот код для такого случая:

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

Разделите только те рабочие листы, в которых содержится слово/фраза, на отдельные файлы Excel

Бывают и такие ситуации, что отдельный файл нужно создать только для тех страниц, в названии которых есть определенный текст.

Допустим, у вас есть страницы отчета за разные года, в названии каждого листа указан год и месяц. Но вам нужно сохранить только те листы, которые относятся к 2020 году. Как это сделать?

Вот код Visual Basic:

Как вы могли заметить, прямо в коде, мы создали переменную и задали ей значение 2020.

Затем этот код просто проходится по каждой странице и проверяет есть ли в имени нужная нам часть (то есть нужный год). А далее сохраняет отдельно только те листы, в имени которых он нашел совпадения.

Если совпадения не будут найдены — результат будет 0.

В этом коде используется цикл «Если/То». Если он находит нужное текстовое значение в имени листа, то сохраняет его отдельно, если не находит — просто пропускает.

Источник

Как разбить файл эксель на несколько отдельных файлов

Разделитель Excel документов

Разделите Excel на несколько файлов онлайн. Используйте разделитель Excel документов с любого устройства с современным браузером вроде Chrome и Firefox.

Отправить ссылку на скачивание

Excel Файлы электронных таблиц

Файл электронной таблицы содержит данные в виде строк и столбцов. Вы можете открывать, просматривать и редактировать такие файлы с помощью приложений для работы с электронными таблицами, таких как Microsoft Excel, которые теперь доступны как для операционных систем Windows, так и для MacOS. Точно так же Google Sheets — это бесплатный онлайн-инструмент для создания и редактирования электронных таблиц, который работает в любом веб-браузере.

• Легкое разделение Excel страниц документа
• Отделить страницы от Excel файла
• Загрузка или отправка результирующего файла в виде вложения электронной почты

Как разделить Excel документ онлайн

• Выберите и загрузите Excel документ, который хотите разделить.
• Укажите необходимые номера страниц и нажмите кнопку Разделить.
• Нажмите кнопку Скачать и сохраните разделенный Excel документ.
• Чтобы отправить ссылку на скачивание документа по электронной почте нажмите кнопку Email.

ВОПРОСЫ И ОТВЕТЫ

Другие форматы, поддерживаемые GroupDocs.Splitter

Вы также можете разделять документы других форматов. Полный список представлен ниже.

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

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

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

Если делать эту процедуру вручную, то придется для каждого листа выполнить немаленькую цепочку действий (выбрать лист, правой кнопкой по ярлычку листа, выбрать Копировать, указать отдельный предварительно созданный пустой файл и т.д.) Гораздо проще использовать короткий макрос, автоматизирующий эти действия.

Способ 1. Простое разделение

Нажмите сочетание Alt+F11 или выберите в меню Сервис — Макрос — Редактор Visual Basic (Tools — Macro — Visual Basic Editor) , вставьте новый модуль через меню Insert — Module и скопируйте туда текст этого макроса:

Если теперь выйти из редактора Visual Basic и вернуться в Excel, а затем запустить наш макрос (Alt+F8), то все листы из текущей книги будут разбиты по отдельным новым созданным книгам.

Способ 2. Разделение с сохранением

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

Этот макрос сохраняет новые книги-листы в ту же папку, где лежал исходный файл. При необходимости сохранения в другое место, замените wb.Path на свой путь в кавычках, например «D:Отчеты2012» и т.п.

Если нужно сохранять файлы не в стандартном формате книги Excel (xlsx), а в других (xls, xlsm, xlsb, txt и т.д.), то кроме очевидного изменения расширения на нужное, потребуется добавить еще и уточнение формата файла — параметр FileFormat:

Для основных типов файлов значения параметра FileFormat следующие:

Способ 3. Сохранение в новые книги только выделенных листов

Если вы хотите раскидать по файлам не все листы в вашей книге, а только некоторые, то макрос придется немного изменить. Выделите нужные вам листы в книге, удерживая на клавиатуре клавишу Ctrl или Shift и запустите приведенный ниже макрос:

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

Способ 4. Сохранение только выделенных листов в новый файл

Во всех описанных выше способах каждый лист сохранялся в свой отдельный файл. Если же вы хотите сохранить в отдельный новый файл сразу группу выделенных предварительно листов, то нам потребуется слегка видоизменить наш макрос:

Способ 5. Сохранение листов как отдельных PDF-файлов

• для этого используется уже другой метод (ExportAsFixedFormat а не Copy)
• листы выводятся в PDF с параметрами печати, настроенными на вкладке Разметка страницы (Page Layout)
• книга должна быть сохранена на момент экспорта

Нужный нам код будет выглядеть следующим образом:

Способ 6. Готовый макрос из надстройки PLEX

Если лень или нет времени внедрять все вышеописанное, то можно воспользоваться готовым макросом из моей надстройки PLEX:

Как разделить вкладки в excel на два отдельных файла

Как разделить вкладки в Excel?

1. Выделите ячейку в том месте, где необходимо разделить лист. …
2. Откройте вкладку Вид на Ленте, а затем нажмите команду Разделить.
3. Лист будет разделен на несколько областей.

Как разделить окна в Excel на два монитора?

1. Откройте первый файл Excel, к которому вы хотите получить доступ, и поместите его на монитор.
2. Откройте второй экземпляр Excel на мониторе № 2, выбрав « Пуск»> «Программы»> «Microsoft Office»> «Excel» .
3. Переместите этот второй экземпляр Excel в Monitor # 2 .

Как разделить одну таблицу на две в Excel?

1. Установить курсор мыши на нужную строку таблицы, и нажать сочетание клавиш Ctrl+Shift+Enter. Таблица разделится на 2 части
2. Выбираете меню «Файл — Работа с таблицами — Макет», и в нем находите и выбираете пункт «Разбить таблицу». Работа с таблицами Макет Разделить таблицу

Как открыть 2 файла Excel на одном мониторе?

1. Откройте обе книги, которые содержат листы для сравнения.
2. На вкладке Вид в группе Окно выберите команду Рядом . …
3. В окне каждой книги щелкните лист, который нужно сравнить.

Как вывести на экран два файла Excel?

1. После открытия перейдите в панели быстрого доступа на вкладку «Вид».
2. После нажатия на пиктограмму «Упорядочить все» на экране появится окошко с контекстным меню, предлагающим выбор расположения окон:

Как разделить таблицу в Excel по вертикали?

1. Щелкните ячейку таблицы, которую вы хотите разделить.
2. В разделе Работа с таблицами на вкладке Макет в группе Объединение нажмите кнопку Разделить ячейки и сделайте следующее: Для разделения ячейки по вертикали в поле Число столбцов введите нужное число новых ячеек.

1. Щелкните ячейку в таблице, из которой вы хотите отделиться, и в Работа с таблицами вкладку нажмите макет > Разделить таблицу, см. …
2. И таблица была разделена на две таблицы по горизонтали, как показано на следующем снимке экрана:

Как разделить Excel?

1. Выделите одну или несколько ячеек, которые хотите разделить. …
2. На вкладке Данные в группе Работа с данными нажмите кнопку Текст по столбцам. …
3. Установите переключатель С разделителями, если выбран другой вариант, и нажмите кнопку Далее.

1. Щелкните правой кнопкой мыши по значку Excel на панели задач и выберите Microsoft Excel 2010 (или 2007): Затем перейдите в меню File (Файл) > Open (Открыть) и выберите вашу вторую книгу.
2. Щелкните по значку программы на панели задач, удерживая клавишу Shift.

Как разделить окно (лист) в Excel Reviewed by Unknown on 2016-01-21T23:56:00+02:00 Rating: 5

Как разделить окно (лист) в Excel

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

1. Откройте вкладку Вид на Ленте, а затем выберите команду Новое окно.
2. Откроется новое окно для текущей книги.
3. Теперь Вы можете сравнивать листы одной и той же книги в разных окнах. В нашем примере мы выберем отчет по продажам за 2013 год, чтобы сравнить продажи в 2012 и в 2013 годах.

1. Выделите ячейку в том месте, где необходимо разделить лист. Если Вы выберите ячейку в первом столбце или первой строке, то лист разделится на 2 части, в противном случае на 4. В нашем примере мы выберем ячейку C7.
2. Откройте вкладку Вид на Ленте, а затем нажмите команду Разделить.
3. Лист будет разделен на несколько областей. Вы можете прокручивать каждую область отдельно, используя полосы прокрутки. Это позволит Вам сравнивать различные разделы одного и того же листа.

Источник