Как в excel разделить лист на несколько листов

Разбиение листа Excel на страницы

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

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

1.Выберите команду Вид > Разметка страницы. Excel переключится в другой режим просмотра, в котором синие линии показывают границы страниц.

2. Чтобы иметь возможность ручной настройки страниц, следует отключить режим автоматического масштабирования таблицы. Для этого выберите команду Файл > Параметры страницы и на вкладке Страница открывшегося окна диалога выберите положение переключателя Установить. Затем щелкните на кнопке ОК.

3. Щелкните на ячейке D7.

4. Выберите команду Вставка > Разрыв страницы. На листе появятся две новые линии деления на страницы. Одна слева от выделенной ячейки, а вторая — сверху. Теперь лист будет печататься на четырех страницах.

Рис. 12.11. Режим разметки страницы

5. Чтобы просмотреть полученный вариант деления на страницы, щелкните на кнопке Предварительный просмотр панели инструментов Стандартная. Затем для перехода по страницам пользуйтесь клавишами Page Up и Page Down.

6. Щелчком на кнопке Закрыть вернитесь в режим разметки страницы.

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

7. Поместите указатель на границу столбцов С и D, чтобы его значок превратился в двунаправленную стрелку.

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

Теперь лист разделен на две страницы по горизонтали, как показано на рис. 12.11. Чтобы оценить полученный вариант разбиения листа, снова воспользуйтесь режимом предварительного просмотра.

Примечание Чтобы убрать все установленные разрывы страниц, щелкните в пределах листа правой кнопкой мыши и выберите в контекстном меню команду Сброс разрывов страниц.

9. С помощью команды Вид > Обычный вернитесь в обычный режим.

Обратите внимание, что теперь в листе появились пунктирные линии между парами строк 6—7 и 14—15. Эти линии соответствуют настроенным границам страниц.

Вставка, перемещение и удаление разрывов страниц на листе

Разрывы страниц — это разделители, которые разбивают лист на отдельные страницы для печати. Microsoft Excel вставляет автоматические разрывы страниц с учетом размера бумаги, параметров полей и масштабирования, а также позиций разрывов страниц, вставленных вами вручную. Чтобы распечатать лист на определенном количестве страниц, перед выводом на печать можно настроить разрывы страниц на листе.

Хотя работать с разрывами страниц можно и в обычном режиме, рекомендуется использовать страничный режим: он позволяет увидеть, как вносимые изменения (например, ориентации страницы и форматирования) влияют на автоматические разрывы страниц. Например, вы можете увидеть, как изменение высоты строки и ширины столбца влияет на размещение автоматических разрывов страниц.

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

В режиме разрыва страницывыделенные пунктиром линии разбиваются на страницы, автоматически добавленные в Excel. Сплошные линии — это разрывы страниц, добавленные вручную.

Вставка разрыва страницы

Выберите лист, который вы хотите напечатать.

На вкладке Вид в группе Режимы просмотра книги щелкните элемент Страничный режим.

Кроме того, можно выбрать команду Разметка страницы в строке состояния.

Выполните одно из следующих действий:

Чтобы вставить вертикальный разрыв страницы, выделите строку под тем местом, куда нужно вставить разрыв страницы.

Чтобы вставить Горизонтальный разрыв страницы, выделите столбец справа от того места, куда нужно вставить разрыв страницы.

На вкладке Разметка страницы в группе Параметры страницы нажмите кнопку Разрывы.

Нажмите кнопку Вставить разрыв страницы.

Можно также щелкнуть правой кнопкой мыши строку или столбец, снизу или справа от которых необходимо вставить разрыв, и выбрать команду Вставить разрыв страницы.

Если вставленные вручную разрывы страниц не вступают в силу, возможно, выбран параметр вписать в масштабирование на вкладке страница диалогового окна Параметры страницы (вкладкаРазметка страницы , группа параметры страницы , кнопка вызова диалогового окна) ) . Чтобы применить разрывы страниц, вставляемые вручную, измените параметр масштабирования на Установить.

Перемещение разрыва страницы

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

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

На вкладке Файл выберите элемент Параметры. В Excel 2007 нажмите кнопку Microsoft Office и выберите пункт Параметры Excel.

В категории Дополнительно в разделе Параметры правки установите флажок Разрешить маркеры заполнения и перетаскивание ячеек и нажмите кнопку ОК.

Щелкните лист, который нужно изменить.

На вкладке Вид в группе Режимы просмотра книги щелкните элемент Страничный режим.

Кроме того, можно выбрать команду Разметка страницы в строке состояния.

Чтобы переместить разрыв страницы, перетащите его в новое положение.

Примечание: При перемещении автоматического разрыва страницы он становится вставленным вручную.

Удаление разрыва страницы

Выберите лист, который нужно изменить.

На вкладке Вид в группе Режимы просмотра книги щелкните элемент Страничный режим.

Кроме того, можно выбрать команду Разметка страницы в строке состояния.

Выполните одно из указанных ниже действий.

Чтобы удалить вертикальный разрыв страницы, выделите столбец справа от разрыва страницы, который требуется удалить.

Чтобы удалить горизонтальный разрыв страницы, выделите строку под разрывом, который требуется удалить.

Примечание: Удалить автоматический разрыв страницы нельзя.

На вкладке Разметка страницы в группе Параметры страницы нажмите кнопку Разрывы.

Выберите пункт Удалить разрыв страницы.

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

Удаление всех вставленных вручную разрывов страниц

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

Щелкните лист, который нужно изменить.

На вкладке Вид в группе Режимы просмотра книги щелкните элемент Страничный режим.

Кроме того, можно выбрать команду Разметка страницы в строке состояния.

На вкладке Разметка страницы в группе Параметры страницы нажмите кнопку Разрывы.

Выберите пункт Сброс разрывов страниц.

Совет: Чтобы удалить все вставленные вручную разрывы страниц, можно также щелкнуть любую ячейку листа правой кнопкой мыши и выбрать команду Сброс разрывов страниц.

Возврат в обычный режим

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

Вы также можете нажать кнопку обычный в строке состояния.

После работы с разрывами страниц в страничном режиме они могут отображаться и в обычном, так как были включены автоматически. Чтобы скрыть разрывы страниц, закройте и снова откройте книгу, не сохраняя ее.

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

Отображение и скрытие разрывов страниц в обычном режиме

На вкладке Файл выберите элемент Параметры. В Excel 2007 нажмите кнопку Microsoft Office нажмите кнопку Параметры Excel.

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

Вы не можете добавлять разрывы страниц в книгу в Excel Online.

Однако вы можете открыть электронную таблицу на рабочем столе Excel и добавить разрывы страниц.

Дополнительные сведения

Вы всегда можете задать вопрос специалисту Excel Tech Community, попросить помощи в сообществе Answers community, а также предложить новую функцию или улучшение на веб-сайте Excel User Voice.

Примечание: Эта страница переведена автоматически, поэтому ее текст может содержать неточности и грамматические ошибки. Для нас важно, чтобы эта статья была вам полезна. Была ли информация полезной? Для удобства также приводим ссылку на оригинал (на английском языке).

Как в экселе разбить лист на страницы?

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

Первый способ. На верхней панели настроек, нужно войти во вкладку «Вид», в самом левом углу вы увидите блок настроек «Режимы просмотра книги», там же найдете иконку «Разметка страницы», нужно на неё нажать. Вы сразу увидите, что программа эксель поделила весь лист на страницы, наша таблица оказалась на первой.

Второй способ. Снова используем тот же пример, и опять необходимо попасть во вкладку «Вставка», но в этот раз, нужно нажать на иконку «Страничный режим», она также расположена в блоке «Разметка страницы». В этом варианте, мы видим только реально заполненные в настоящее время страницы, об этом свидетельствует водяная надпись «Страница 1». По мере заполнения листа информацией, будет появляться «Страница 2», «Страница 3» и т.д.

Разбиение страниц

Данная функция является частью надстройки MulTEx

• Описание, установка, удаление и обновление
• Полный список команд и функций MulTEx
• Часто задаваемые вопросы по MulTEx
• Скачать MulTEx

Вызов команды:
MulTEx -группа Книги/Листы —Разбиение страниц

Команда скрывает или отображает линии разбиения на печатные страницы, в зависимости от текущего режима отображения линий.
Это так же можно сделать из меню Excel через параметры:
Excel 2003:
Сервис —Параметры -вкладка Вид —Авторазбиение на страницы
Excel 2007:
Кнопка Офис —Параметры Excel (Excel options) -вкладка Дополнительно (Advanced) —Показывать разбиение на страницы (Show page breaks)
Excel 2010-2013:
Файл —Параметры (Options) -вкладка Дополнительно (Advanced) —Показывать разбиение на страницы (Show page breaks)

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

• 

• 

Поделитесь своим мнением

Комментарии, не имеющие отношения к комментируемой статье, могут быть удалены без уведомления и объяснения причин. Если есть вопрос по личной проблеме — добро пожаловать на Форум

Иллюстрированный самоучитель по Microsoft Office XP

Выбор печатаемых объектов. Разбиение на страницы.

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

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

1. Выберите команду Вид › Разметка страницы (View › Page Break Preview). Excel переключится в другой режим просмотра, в котором синие линии показывают границы страниц.
2. Чтобы иметь возможность ручной настройки страниц, следует отключить режим автоматического масштабирования таблицы. Для этого выберите команду Файл › Параметры страницы и на вкладке Страница открывшегося окна диалога выберите положение переключателя Установить. Затем щелкните на кнопке ОК.
3. Щелкните на ячейке D7.
4. Выберите команду Вставка › Разрыв страницы (Insert › Page Break). На листе появятся две новые линии деления на страницы. Одна слева от выделенной ячейки, а вторая – сверху. Теперь лист будет печататься на четырех страницах.

Рис. 12.11. Режим разметки страницы

Чтобы просмотреть полученный вариант деления на страницы, щелкните на кнопке Предварительный просмотр (Print Preview) панели инструментов Стандартная. Затем для перехода по страницам пользуйтесь клавишами Page Up и Page Down.

Щелчком на кнопке Закрыть вернитесь в режим разметки страницы.

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

Поместите указатель на границу столбцов С и D, чтобы его значок превратился в двунаправленную стрелку.»

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

Теперь лист разделен на две страницы по горизонтали, как показано на рис. 12.11. Чтобы оценить полученный вариант разбиения листа, снова воспользуйтесь режимом предварительного просмотра.

Примечание
Чтобы убрать все установленные разрывы страниц, щелкните в Пределах листа правой кнопкой мыши и выберите в контекстном меню команду Сброс разрывов страниц (Reset All Page Breaks).

С помощью команды Вид › Обычный (View › Normal) вернитесь в обычный режим.

Обратите внимание, что теперь в листе появились пунктирные линии между парами строк 6-7 и 14-15. Эти линии соответствуют настроенным границам страниц.

В Excel для Mac можно разделить лист на области либо просматривать несколько листов или книг в разных окнах.

Разделение листа на области

Две части листа можно просматривать одновременно, разделив лист на области. Области можно прокручивать независимо друг от друга.

1. Выделите ячейку под строкой или справа от столбца, по которым следует произвести разделение.

2. На вкладке Вид в группе Окно нажмите кнопку Разделить.

   1. Чтобы отменить разделение листа, нажмите кнопку Разделить еще раз.

Просмотр нескольких листов одной книги

1. Откройте книгу, которую нужно просмотреть.

2. В меню Окно выберите пункт Новое окно.

3. Перейдите в новое окно, а затем щелкните ярлычок листа, который необходимо просмотреть.

   Повторите шаги 2 и 3 для каждого листа, который требуется просмотреть.

4. В меню Окно выберите пункт Расположить.

5. Выполните одно из указанных ниже действий.

   Расположение окон	Как они должны выглядеть	Переключатель
   Расположенные рядом прямоугольные области		Рядом
   Горизонтально сверху вниз		По горизонтали
   Вертикально справа налево		По вертикали
   В виде стопки сверху вниз		Каскад

6. Установите флажок Только окна текущей книги.

Просмотр нескольких книг

1. Откройте все книги, которые нужно просмотреть.

2. В меню Окно выберите пункт Расположить.

3. Выполните одно из указанных ниже действий.

   Расположение окон	Как они должны выглядеть	Переключатель
   Расположенные рядом прямоугольные области		Рядом
   Горизонтально сверху вниз		По горизонтали
   Вертикально справа налево		По вертикали
   В виде стопки сверху вниз		Каскад

Совет: Чтобы восстановить окно книги до полного размера, выберите книгу, а затем в меню Окно выберите пункт Масштаб.

Дополнительные сведения

Закрепление областей окна для блокировки первой строки или первого столбца

Как автоматически разделить таблицу на несколько листов в Excel и Google

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

Готовые коды для разделения таблиц на листы.

Прежде чем копировать код, посмотрите видеоролик о том, как это работает. Приятного просмотра!

Готовый скрипт разделения Google таблиц на листы:

Готовый код Excel VBA для разделения на листы:

Заключение

Как видите, не нужно тратить большое количество времени на ручное копирование данных. С помощью нашего руководства, это можно сделать всего за несколько минут.

• 14 марта 2021
• 2406
• MS Excel Google Sheets Video Code

Зависимый выпадающий список в Excel и Google таблицах

20 июля 2021 г. 10769 MS Excel Video File Google Sheets

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

Совместная работа в Google таблицах. Функция IMPORTRANGE.

7 апреля 2022 г. 276 Google Sheets Video File

Рассказываем о том, как организовать рабочее пространство в Google таблицах между несколькими сотрудниками на примере трекера задач.

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

Удерживая нажатой клавишу SHIFT, выберите столько ярлычков листов книги, сколько листов требуется вставить в открытую книгу. Например, если требуется добавить три новых листа, выберите три ярлычка существующих листов. На вкладке Главная в группе Ячейки щелкните Вставить, а затем выберите Вставить лист.

Как сделать 2 копии на одном листе?

Печать нескольких копий на листе

На вкладке Файл выберите пункт Печать. В разделе Параметры щелкните Одна страница на листе, а затем выберите в списке значение Несколько копий на листе. В поле Число копий каждой страницы введите количество копий, которое вы хотите распечатать.

Как в Excel разделить страницу на 4 части?

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

Как настроить страницы в Excel?

Разметка страниц для печати в Excel

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

Как в Экселе вытащить лист?

1. Щелкните правой кнопкой мыши ярлычок листа.
2. Щелкните Переместить или скопировать.
3. Щелкните раскрывающееся меню Переместить выбранные листы в книгу. Выберите (новая книга).
4. Нажмите кнопку ОК. Откроется новая книга с перемещенным листом. …
5. Щелкните Файл > Сохранить в новой книге.

Как разделить таблицу на 2 части?

1. Поместите курсор в строку, которая должна стать первой строкой второй таблицы. В представленном примере это третья строка. …
2. На вкладке МАКЕТ в группе Объединение выберите команду Разделить таблицу. Таблица будет разделена на две части.

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

2. Вы также можете использовать простую комбинацию клавиш, чтобы разделить таблицу на несколько таблиц, поместите курсор в ячейку, из которой вы хотите разделить, и затем нажмите Ctrl + Shift + Enter вместе, чтобы разделить таблицу на две части.

Как разбить таблицу на листы?

Как разбить таблицу на несколько листов на основе значений столбца

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

Как в Excel разделить текст в одной ячейке на две строки?

Чтобы разбить текст на строки в одной ячейке Excel нужно нажать комбинацию клавиш Alt+Enter.

Как разделить ячейку по диагонали в Эксель?

Разделить ячейку по диагонали в Excel

1. Щелкните правой кнопкой мыши указанную ячейку, которую вы разделите по диагонали, и выберите Формат ячеек из контекстного меню. …
2. В диалоговом окне «Формат ячеек» нажмите, чтобы включить Граница вкладку, щелкните, чтобы выделить в Граница раздел, а затем щелкните OK кнопка.

Как разделить Слипшийся текст в Excel?

Решение: Выделите нужные ячейки, перейдите в меню Данные → Текст по столбцам. В появившемся окне Мастер текстов (разбора) укажите формат данных: с разделителями – в случае, когда содержимое будущих отдельных столбцов разделяется каким-либо символом (укажите, каким именно).

Разделение таблицы по листам

В Microsoft Excel есть много инструментов для сборки данных из нескольких таблиц (с разных листов или из разных файлов): прямые ссылки, функция ДВССЫЛ (INDIRECT) , надстройки Power Query и Power Pivot и т.д. С этой стороны баррикад всё выглядит неплохо.

Но если вы нарвётесь на обратную задачу — разнесения данных из одной таблицы на разные листы — то всё будет гораздо печальнее. На сегодняшний момент цивилизованных встроенных инструментов для такого разделения данных в арсенале Excel, к сожалению, нет. Так что придется задействовать макрос на Visual Basic, либо воспольоваться связкой макрорекордер+Power Query с небольшой «доработкой напильником» после.

Давайте подробно рассмотрим, как это можно реализовать.

Постановка задачи

Имеем в качестве исходных данных вот такую таблицу размером больше 5000 строк по продажам:

Задача: разнести данные из этой таблицы по городам на отдельные листы этой книги. Т.е. на выходе нужно получить на каждом листе только те строки из таблицы, где продажа была в соответствующем городе:

Подготовка

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

Во-первых, создадим отдельную таблицу-справочник, где в единственном столбце будут перечислены все города, для которых нужно создать отдельные листы. Само-собой, в этом справочнике могут быть не все города, присутствующие в исходных данных, а только те, по которым нам нужны отчеты. Проще всего создать такую таблицу, используя команду Данные — Удалить дубликаты (Data — Remove duplicates) для копии столбца Город или функцию УНИК (UNIQUE) — если у вас последняя версия Excel 365.

Поскольку новые листы в Excel по умолчанию создаются перед (левее) текущего (предыдущего), то имеет смысл также отсортировать города в этом справочнике по убыванию (от Я до А) — тогда после создания листы-города расположатся по алфавиту.

Во-вторых, преобразуем обе таблицы в динамические («умные»), чтобы с ними было проще работать. Используем команду Главная — Форматировать как таблицу (Home — Format as Table) или сочетание клавиш Ctrl + T . На появившейся вкладке Конструктор (Design) назовём их таблПродажи и таблГорода, соответственно:

Способ 1. Макрос для деления по листам

На вкладке Разработчик (Developer) нажмите на кнопку Visual Basic или используйте сочетание клавиш Alt + F11 . В открывшемся окне редактора макросов вставьте новый пустой модуль через меню Insert — Module и скопируйте туда следующий код:

Здесь с помощью цикла For Each . Next реализован проход по ячейкам справочника таблГорода, где для каждого города происходит его фильтрация (метод AutoFilter) в исходной таблице продаж и затем копирование результатов на новый созданный лист. Попутно созданный лист переименовывается в то же имя города и на нем включается автоподбор ширины столбцов для красоты.

Запустить созданный макрос в Excel можно на вкладке Разработчик кнопкой Макросы (Developer — Macros) или сочетанием клавиш Alt + F8 .

Способ 2. Создаем множественные запросы в Power Query

У предыдущего способа, при всей его компактности и простоте, есть существенный недостаток — созданные макросом листы не обновляются при изменениях в исходной таблице продаж. Если обновление «на лету» необходимо, то придется использовать связку VBA+Power Query, а точнее — создавать с помощью макроса не просто листы со статическими данными, а обновляемые запросы Power Query.

Макрос в этом случае частично похож на предыдущий (в нём тоже есть цикл For Each . Next для перебора городов в справочнике), но внутри цикла будет уже не фильтрация и копирование, а создание запроса Power Query и выгрузка его результатов на новый лист:

После его запуска мы увидим те же листы по городам, но формировать их будут уже созданные запросы Power Query:

При любых изменениях в исходных данных достаточно будет обновить соответствующую таблицу правой кнопкой мыши — команда Обновить (Refresh) или обновить сразу все города оптом, используя кнопку Обновить всё на вкладке Данные (Data — Refresh All) .

Разделение таблицы по листам

В Microsoft Excel есть много инструментов для сборки данных из нескольких таблиц (с разных листов или из разных файлов): прямые ссылки, функция ДВССЫЛ (INDIRECT), надстройки Power Query и Power Pivot и т.д. С этой стороны баррикад всё выглядит неплохо.

Но если вы нарвётесь на обратную задачу — разнесения данных из одной таблицы на разные листы — то всё будет гораздо печальнее. На сегодняшний момент цивилизованных встроенных инструментов для такого разделения данных в арсенале Excel, к сожалению, нет. Так что придется задействовать макрос на Visual Basic, либо воспольоваться связкой макрорекордер+Power Query с небольшой «доработкой напильником» после.

Давайте подробно рассмотрим, как это можно реализовать.

Постановка задачи

Имеем в качестве исходных данных вот такую таблицу размером больше 5000 строк по продажам:

Задача: разнести данные из этой таблицы по городам на отдельные листы этой книги. Т.е. на выходе нужно получить на каждом листе только те строки из таблицы, где продажа была в соответствующем городе:

Подготовка

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

Во-первых, создадим отдельную таблицу-справочник, где в единственном столбце будут перечислены все города, для которых нужно создать отдельные листы. Само-собой, в этом справочнике могут быть не все города, присутствующие в исходных данных, а только те, по которым нам нужны отчеты. Проще всего создать такую таблицу, используя команду Данные — Удалить дубликаты (Data — Remove duplicates) для копии столбца Город или функцию УНИК (UNIQUE) — если у вас последняя версия Excel 365.

Поскольку новые листы в Excel по умолчанию создаются перед (левее) текущего (предыдущего), то имеет смысл также отсортировать города в этом справочнике по убыванию (от Я до А) — тогда после создания листы-города расположатся по алфавиту.

Во-вторых, преобразуем обе таблицы в динамические («умные»), чтобы с ними было проще работать. Используем команду Главная — Форматировать как таблицу (Home — Format as Table) или сочетание клавиш Ctrl+T. На появившейся вкладке Конструктор (Design) назовём их таблПродажи и таблГорода, соответственно:

Способ 1. Макрос для деления по листам

На вкладке Разработчик (Developer) нажмите на кнопку Visual Basic или используйте сочетание клавиш Alt+F11. В открывшемся окне редактора макросов вставьте новый пустой модуль через меню Insert — Module и скопируйте туда следующий код:

Sub Splitter()
    For Each cell In Range("таблГорода")
        Range("таблПродажи").AutoFilter Field:=3, Criteria1:=cell.Value
        Range("таблПродажи[#All]").SpecialCells(xlCellTypeVisible).Copy
        Sheets.Add
        ActiveSheet.Paste
        ActiveSheet.Name = cell.Value
        ActiveSheet.UsedRange.Columns.AutoFit
    Next cell
    Worksheets("Данные").ShowAllData
End Sub	

Здесь с помощью цикла For Each … Next реализован проход по ячейкам справочника таблГорода, где для каждого города происходит его фильтрация (метод AutoFilter) в исходной таблице продаж и затем копирование результатов на новый созданный лист. Попутно созданный лист переименовывается в то же имя города и на нем включается автоподбор ширины столбцов для красоты.

Запустить созданный макрос в Excel можно на вкладке Разработчик кнопкой Макросы (Developer — Macros) или сочетанием клавиш Alt+F8.

Способ 2. Создаем множественные запросы в Power Query

У предыдущего способа, при всей его компактности и простоте, есть существенный недостаток — созданные макросом листы не обновляются при изменениях в исходной таблице продаж. Если обновление «на лету» необходимо, то придется использовать связку VBA+Power Query, а точнее — создавать с помощью макроса не просто листы со статическими данными, а обновляемые запросы Power Query.

Макрос в этом случае частично похож на предыдущий (в нём тоже есть цикл For Each … Next для перебора городов в справочнике), но внутри цикла будет уже не фильтрация и копирование, а создание запроса Power Query и выгрузка его результатов на новый лист:

Sub Splitter2()

For Each cell In Range("таблГорода")
    ActiveWorkbook.Queries.Add Name:=cell.Value, Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Источник = Excel.CurrentWorkbook(){[Name=""таблПродажи""]}[Content]," & Chr(13) & "" & Chr(10) & "    #""Измененный тип"" = Table.TransformColumnTypes(Источник,{{""Категория"", type text}, {""Наименование"", type text}, {""Город"", type text}, {""Менеджер"", type text}, {""Дата сделки"", type datetime}, {""Стоимость"", type number}})," & Chr(13) & "" & Chr(10) & "    #""Строки с примененным фильтром"" = Table.Se" & _
        "lectRows(#""Измененный тип"", each ([Город] = """ & cell.Value & """))" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Строки с примененным фильтром"""
    ActiveWorkbook.Worksheets.Add
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=" & cell.Value & ";Extended Properties=""""" _
        , Destination:=Range("$A$1")).QueryTable
        .CommandType = xlCmdSql
        .CommandText = Array("SELECT * FROM [" & cell.Value & "]")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = cell.Value
        .Refresh BackgroundQuery:=False
    End With
    ActiveSheet.Name = cell.Value
Next cell
End Sub

После его запуска мы увидим те же листы по городам, но формировать их будут уже созданные запросы Power Query:

При любых изменениях в исходных данных достаточно будет обновить соответствующую таблицу правой кнопкой мыши — команда Обновить (Refresh) или обновить сразу все города оптом, используя кнопку Обновить всё на вкладке Данные (Data — Refresh All).

Ссылки по теме

• Что такое макросы, как их создавать и использовать
• Сохранение листов книги как отдельных файлов
• Сборка данных со всех листов книги в одну таблицу