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

Сборка данных со всех листов книги в одну таблицу

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

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

Давайте будем исходить из следующих соображений:

• Структура и столбцов на всех листах одинаковая.
• Количество строк на всех листах разное.
• Листы могут в будущем добавляться или удаляться.

Наша задача — собрать все данные со всех листов в одну таблицу, чтобы потом с ней работать (фильтровать, сортировать, построить сводную и т.д.) Сделать это можно разными способами, но самыми удобными будут, пожалуй, Power Query и макросы.

Способ 1. Сборка данных с листов с помощью Power Query

Если вы ещё не сталкивались в своей работе с Power Query, то очень советую копнуть в этом направлении. Использование этой бесплатной и уже встроенной по умолчанию в Excel надстройки, способно полностью перевернуть весь ваш процесс сбора и анализа данных, упростив всё в разы. С задачей сбора данных с листов Power Query справляется весьма успешно.

Шаг 1. Подключаемся к файлу

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

Если у вас Excel 2010-2013 и вы установили Power Query как отдельную надстройку, то откройте вкладку Power Query, если у вас Excel 2016 или новее, то вкладку Данные (Data). Нажмите кнопку Получить данные / Создать запрос — Из файла — Книга Excel (Get Data / New Query — From file — From Excel) и укажите наш файл с исходными листами:

В появившемся окне Навигатора (Navigator) выберите слева любой лист и нажмите в правом нижнем углу кнопку Преобразовать данные (Transform Data) или Изменить (Edit):

Должно появиться окно редактора запросов Power Query, где отобразятся данные с выбранного листа. Поскольку нам нужен, на самом деле, не один лист, а все, то удалим в правой панели все шаги, кроме первого шага Источник (Source) используя крестик слева от названия шага:

То, что останется после удаления шагов — это список всех объектов, которые Power Query «видит» во внешних файлах, а это:

• листы (Sheet)
• «умные таблицы» (Table)
• именованные диапазоны (Defined Name)
• области печати (Print Area), которые, по сути, являются одним из видов именованного диапазона

Шаг 2. Отбираем нужные листы

В исходном файле может быть много всего лишнего, что нам не требуется собирать: случайные ненужные листы, служебные именованные диапазоны, побочные умные таблицы и т.п. Очень важно отфильтровать этот «информационный мусор», т.к. в будущем из-за любого подобного объекта наш запорс будет, скорее всего, вылетать с ошибкой или некорректно собирать данные. Для решения этой задачи можно использовать несколько подходов.

Во-первых, легко можно отфильтровать нужные объекты по типу по столбцу Kind. Например, если вам нужны только листы:

Во-вторых, если нам нужны только видимые листы, то дополнительно можно отфильтровать ещё по столбцу Hidden.

В-третьих, если вы точно знаете размер таблиц, которые вам нужны, то можно легко добавить к нашему списку вычисляемый столбец с формулой, выводящей количество столбцов или строк и использовать потом эти числа для отбора. Для этого выберем на вкладке Добавление столбца — Настраиваемый столбец (Add Column — Custom Column) и введём в открывшееся окно следующую формулу (с учётом регистра):

Для подсчёта количества строк можно использовать аналогичную функцию Table.RowCount. Получившийся столбец затем можно использовать для фильтрации «мусорных» таблиц.

В-четвёртых, можно извлечь с каждого листа содержимое любой ячейки (например, А1) и использовать его для отбора. Например, если там нет слова «Товар«, то это не наш лист. Для извлечения нужно будет также добавить вычисляемый столбец с такой конструкцией:

=[Data][Column1]{0}

Здесь:

• [Data] — имя столбца, где в каждой ячейке лежат таблицы с содержимым каждого листа (убийственная формулировка для рядового пользователя Excel, да, я знаю)
• [Column1] — имя столбца на листе, из которого мы хотим извлечь данные
• {0} — номер строки (считая с нуля), откуда мы хотим взять данные

Шаг 3. Разворачиваем таблицы

Теперь развернём содержимое таблиц в одно целое, используя кнопку с двойными стрелками в заголовке столбца Data, отключив флажок Использовать исходное имя столбца как префикс (Use original column name as prefix):

После нажатия на ОК Power Query соберёт для нас все данные в одну мегатаблицу со всех отобранных листов нашего файла:

Останется лишь «навести блеск», а именно:

1. Поднять первую строку в шапку таблицы кнопкой Использовать первую строку в качестве заголовков (Use first row as headers) на вкладке Главная (Home).
2. Переименовать первый столбец в Город двойным щелчком на заголовку.
3. Удалить повторяющиеся шапки таблиц, попавшие в одну кучу вместе с данными, используя фильтр по столбцу Товар.

Всё. Осталось только дать нашему запросу подходящее имя (например, Сборка) в панели справа и выгрузить затем собранные данные обратно в Excel кнопкой Закрыть и загрузить на вкладке Главная (Home — Close & Load):

В будущем, при любых изменениях в исходном файле достаточно будет лишь обновить наш запрос, щелкнув по собранной таблице правой кнопкой мыши и выбрав команду Обновить (Refresh) или такой же кнопкой на вкладке Данные (Data) или сочетанием клавиш Ctrl+Alt+F5.

Плюсы такого подхода:

• Не нужно уметь программировать, всё делается быстро и почти без использования клавиатуры.
• Последовательность столбцов на разных листах может быть различной — это не играет роли, столбцы правильно встанут друг под друга в итоговой сборке.
• Можно быстро обновлять запрос при изменении исходных данных.

Минусы этого способа:

• Собираются только значения, т.е. формулы с исходных листов не сохраняются.
• Названия столбцов должны на всех листах совпадать с точностью до регистра.
• Нельзя выбрать какой именно диапазон берётся с каждого листа — это определяется автоматически (берётся всё, что есть).
• Для обновления нужен Excel 2016 или новее или установленная надстройка Power Query.

Способ 2. Сборка данных с листов макросом на VBA

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

Sub CollectDataFromAllSheets()
    Dim ws As Worksheet
    
    Set wbCurrent = ActiveWorkbook
    Workbooks.Add
    Set wbReport = ActiveWorkbook
    
    'копируем на итоговый лист шапку таблицы из первого листа
    wbCurrent.Worksheets(1).Range("A1:D1").Copy Destination:=wbReport.Worksheets(1).Range("A1")
    
    'проходим в цикле по всем листам исходного файла
    For Each ws In wbCurrent.Worksheets
    
        'определяем номер последней строки на текущем листе и на листе сборки
        n = wbReport.Worksheets(1).Range("A1").CurrentRegion.Rows.Count
        
        'задаем исходный диапазон, который надо скопировать с каждого листа - любой вариант на выбор:
        Set rngData = ws.Range("A1:D5")            'фиксированный диапазон или
        Set rngData = ws.UsedRange                 'всё, что есть на листе или
        Set rngData = ws.Range("F5").CurrentRegion    'область, начиная от ячейки F5 или
        Set rngData = ws.Range("A2", ws.Range("A2").SpecialCells(xlCellTypeLastCell))    'от А2 и до конца листа
        
        'копируем исходный диапазон и вставляем в итоговую книгу со следующей строки
        rngData.Copy Destination:=wbReport.Worksheets(1).Cells(n + 1, 1)
        
    Next ws
End Sub

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

Плюсы такого подхода:

• Формулы с исходных листов сохраняются в сборке.
• Имена столбцов не играют роли.
• Макрос будет работать в любой версии Excel.
• Можно выбирать, что именно брать с каждого листа (конкретный фиксированный диапазон или весь лист).

Минусы этого способа:

• Последовательность столбцов на всех листах должна быть одинаковой, т.к. происходит, по сути, тупое копирование таблиц друг-под-друга.
• Защита от макросов должна быть отключена.
• Быстрого обновления, как это было с Power Query, здесь, к сожалению, не будет. При изменении исходных данных придётся запустить макрос повторно.

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

Если лень возиться с макросами или Power Query, то можно пойти по пути наименьшего сопротивления — использовать готовый макрос (кнопка Собрать) из моей надстройки PLEX для Excel. Это, может, и не спортивно, но зато эффективно:

В общем, выбирайте любой удобный вам вариант и действуйте. Выбор — это всегда хорошо.

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

• Что такое Power Query и с чем его едят.
• Как создавать свои макросы, использовать чужие и запускать их в своих файлах.
• Сборка данных из нескольких файлов с помощью Power Query.

Если данные, которые требуется проанализировать, представлены на нескольких листах или в нескольких книгах, их можно объединить на одном листе с помощью команды «Консолидация». Например, если есть отдельный лист расходов для каждого регионального представительства, с помощью консолидации можно создать на базе этих данных корпоративный лист расходов. Такой лист может содержать итоговые и средние данные по продажам, текущим уровням запасов и наиболее популярным продуктам в рамках всей организации.

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

Консолидация по расположению

Для консолидации по расположению диапазон данных на каждом из исходных листов должен иметь формат списка без пустых строк и столбцов.

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

2. На конечном листе щелкните верхнюю левую ячейку области, в которой требуется разместить консолидированные данные.

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

3. На вкладке Данные в группе Работа с данными нажмите кнопку Консолидация.

   

4. Выберите в раскрывающемся списке функцию, которую требуется использовать для консолидации данных.

5. Выделите на каждом листе нужные данные.

   Путь к файлу вводится в поле Все ссылки.

6. После добавления данных из всех исходных листов и книг нажмите кнопку ОК.

Консолидация по категории

Для консолидации по категории диапазон данных на каждом из исходных листов должен иметь формат списка без пустых строк и столбцов. Кроме того, категории должны быть названы одинаково. Например, если один из столбцов называется Сред. , а другой — Среднее, консолидация не просуммирует эти столбцы.

1. Откройте каждый из исходных листов.

2. На конечном листе щелкните верхнюю левую ячейку области, в которой требуется разместить консолидированные данные.

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

3. На вкладке Данные в группе Работа с данными нажмите кнопку Консолидация.

   

4. Выберите в раскрывающемся списке функцию, которую требуется использовать для консолидации данных.

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

6. Выделите на каждом листе нужные данные. Не забудьте включить в них ранее выбранные данные из верхней строки или левого столбца.

   Путь к файлу вводится в поле Все ссылки.

7. После добавления данных из всех исходных листов и книг нажмите кнопку ОК.

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

Консолидация по расположению

Для консолидации по расположению диапазон данных на каждом из исходных листов должен иметь формат списка без пустых строк и столбцов.

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

2. На конечном листе щелкните верхнюю левую ячейку области, в которой требуется разместить консолидированные данные.

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

3. На вкладке Данные в разделе Сервис нажмите кнопку Консолидация.

   

4. Выберите в раскрывающемся списке функцию, которую требуется использовать для консолидации данных.

5. Выделите на каждом листе нужные данные и нажмите кнопку Добавить.

   Путь к файлу вводится в поле Все ссылки.

6. После добавления данных из всех исходных листов и книг нажмите кнопку ОК.

Консолидация по категории

Для консолидации по категории диапазон данных на каждом из исходных листов должен иметь формат списка без пустых строк и столбцов. Кроме того, категории должны быть названы одинаково. Например, если один из столбцов называется Сред. , а другой — Среднее, консолидация не просуммирует эти столбцы.

1. Откройте каждый из исходных листов.

2. На конечном листе щелкните верхнюю левую ячейку области, в которой требуется разместить консолидированные данные.

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

3. На вкладке Данные в разделе Сервис нажмите кнопку Консолидация.

   

4. Выберите в раскрывающемся списке функцию, которую требуется использовать для консолидации данных.

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

6. Выделите на каждом листе нужные данные. Убедитесь, что вы выбрали верхнюю строку или левый столбец, а затем нажмите кнопку Добавить.

   Путь к файлу вводится в поле Все ссылки.

7. После добавления данных из всех исходных листов и книг нажмите кнопку ОК.

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

Как собрать данные с нескольких листов или книг на один лист?

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

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

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

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

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

1) Используемые диапазоны — это диапазоны, начинающиеся с первой используемой ячейки и заканчивающиеся последней используемой ячейкой;

2) Предварительно выделенные диапазоны на каждом листе — диапазоны, выделенные пользователем самостоятельно, исходя из его потребностей по консолидации данных;

3) Одноименные диапазоны — диапазоны с одинаковым адресом на каждом листе, указанным на активном рабочем листе;

4) Выборочные диапазоны — диапазоны ячеек, начинающиеся с выбранной ячейки и заканчивающиеся концом листа (последней используемой ячейкой).

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

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

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

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

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

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

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

Видео по сбору данных со всех листов на итоговый лист

Сбор данных с нескольких книг Excel на один лист

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

1) При помощи надстройки для объединения рабочих книг в один файл, собрать все листы в одной рабочей книге;

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

Как собрать данные с нескольких листов excel на один лист

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

ПРОБЛЕМА: Как быстро собрать информацию на один лист из нескольких?
И заполнить такую форму:

КАК ЭТО РАБОТАЕТ:
Функция ДВССЫЛ() возвращает ссылку, заданную текстовой строкой. По простому говоря:=ДВССЫЛ( B1 &» !B2 «) — даёт нам ссылку аналогичную = Янв !B2 , потому как в ячейке В1 находится текст Янв , который конкатенируется (сцепляется) посредством оператора конкатенации амперсанда & с указанием конкретной ячейки листа Янв В2 .

КОММЕНТАРИИ: Так же можно использовать подобные конструкции и для извлечения данных из других книг.

МИНУСЫ: Функция ДВССЫЛ() не работает с закрытыми книгами.

ОБЛАСТЬ ПРИМЕНЕНИЯ: Любая версия Excel

Консолидация данных с нескольких листов

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

Для подведения итогов и результатов из отдельных листов, можно объединить данные из каждого листа в главном листе. Листы может быть в той же книге как главном листе или в других книгах. При объединении данных, чтобы упростить можно обновить и статистической обработки при необходимости собирать данные.

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

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

Консолидация данных по положению или категории двумя способами.

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

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

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

Примечание: В этой статье были созданы с Excel 2016. Хотя представления могут отличаться при использовании другой версии Excel, шаги одинаковы.

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

Если вы еще не сделано, настройте данные на каждом листе составные, сделав следующее:

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

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

Убедитесь, что всех диапазонов совпадают.

На основном листе щелкните левый верхний угол области, в которой требуется разместить консолидированные данные.

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

Нажмите кнопку данные>Консолидация (в группе Работа с данными ).

Выберите в раскрывающемся списке Функция функцию, которую вы хотите использовать для консолидации данных. По умолчанию используется значение СУММ.

Вот пример, в котором выбраны три диапазоны листа:

Далее в поле ссылка нажмите кнопку Свернуть, чтобы уменьшить масштаб панели и выбрать данные на листе.

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

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

Вот пример, в котором выбраны три диапазоны листа выбранного:

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

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

Связи невозможно создать, если исходная и конечная области находятся на одном листе.

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

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

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

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

Если данные для консолидации находятся в разных ячейках разных листов:

Введите формулу со ссылками на ячейки других листов (по одной на каждый лист). Например, чтобы консолидировать данные из листов «Продажи» (в ячейке B4), «Кадры» (в ячейке F5) и «Маркетинг» (в ячейке B9) в ячейке A2 основного листа, введите следующее:

Совет: Чтобы указать ссылку на ячейку — например, продажи! B4 — в формуле, не вводя, введите формулу до того места, куда требуется вставить ссылку, а затем щелкните лист, используйте клавишу tab и затем щелкните ячейку. Excel будет завершена адрес имя и ячейку листа для вас. Примечание: формулы в таких случаях может быть ошибкам, поскольку очень просто случайно выбираемых неправильной ячейки. Также может быть сложно ошибку сразу после ввода сложные формулы.

Если данные для консолидации находятся в одинаковых ячейках разных листов:

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

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

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

Как собрать данные с нескольких листов или книг?

Очень часто бывает необходимо собрать данные с нескольких листов одной книги или даже с листов нескольких книг. Например, каждую неделю мы получаем некие отчеты от отделов, которые необходимо собрать в одну общую таблицу для построения сводной таблицы. Или это могут быть некие книги прайсов по товарам от разных поставщиком, который опять же надо сначала объединить, а потом уже анализировать. Вручную делать это довольно муторно. И то, муторно это только для первых 20-ти листов/файлов, потом становится просто тошно. Поэтому решил поделиться решением, которое поможет собрать данные со всех листов книги, со всех листов всех указанных книг или только с указанных листов:

‘————————————————————————————— ‘ Module : mConsolidated ‘ DateTime : 02.02.2010 17:06 ‘ Author : The_Prist(Щербаков Дмитрий) ‘ Purpose : http://www.excel-vba.ru/chto-umeet-excel/kak-sobrat-dannye-s-neskolkix-listov-ili-knig/ ‘ Процедура сбора данных с нескольки листов/книг ‘————————————————————————————— Option Explicit Sub Consolidated_Range_of_Books_and_Sheets() Dim iBeginRange As Range, rCopy As Range, lCalc As Long, lCol As Long Dim oAwb As String, sCopyAddress As String, sSheetName As String Dim lLastrow As Long, lLastRowMyBook As Long, li As Long, iLastColumn As Integer Dim wsSh As Worksheet, wsDataSheet As Worksheet, bPolyBooks As Boolean, avFiles Dim wbAct As Workbook Dim bPasteValues As Boolean On Error Resume Next ‘Выбираем диапазон выборки с книг Set iBeginRange = Application.InputBox(«Выберите диапазон сбора данных.» & vbCrLf & _ «1. При выборе только одной ячейки данные будут собраны со всех листов начиная с этой ячейки. » & _ vbCrLf & «2. При выделении нескольких ячеек данные будут собраны только с указанного диапазона всех листов.», Type:=8) ‘для указания диапазона без диалогового окна: ‘Set iBeginRange = Range(«A1:A10») ‘диапазон указывается нужный ‘Если диапазон не выбран — завершаем процедуру If iBeginRange Is Nothing Then Exit Sub ‘Указываем имя листа ‘Допустимо указывать в имени листа символы подставки ? и *. ‘Если указать только * то данные будут собираться со всех листов sSheetName = InputBox(«Введите имя листа, с которого собирать данные(если не указан, то данные собираются со всех листов)», «Параметр») ‘Если имя листа не указано — данные будут собраны со вех листов If sSheetName = «» Then sSheetName = «*» On Error GoTo 0 ‘Запрос — вставлять на результирующий лист все данные ‘или только значения ячеек (без формул и форматов) bPasteValues = (MsgBox(«Вставлять только значения?», vbQuestion + vbYesNo, «Excel-VBA») = vbYes) ‘Запрос сбора данных с книг(если Нет — то сбор идет с активной книги) If MsgBox(«Собрать данные с нескольких книг?», vbInformation + vbYesNo, «Excel-VBA») = vbYes Then avFiles = Application.GetOpenFilename(«Excel files(*.xls*),*.xls*», , «Выбор файлов», , True) If VarType(avFiles) = vbBoolean Then Exit Sub bPolyBooks = True lCol = 1 Else avFiles = Array(ThisWorkbook.FullName) End If ‘отключаем обновление экрана, автопересчет формул и отслеживание событий ‘для скорости выполнения кода и для избежания ошибок, если в книгах есть иные коды With Application lCalc = .Calculation .ScreenUpdating = False: .EnableEvents = False: .Calculation = xlManual End With ‘создаем новый лист в книге для сбора Set wsDataSheet = ActiveWorkbook.Sheets.Add(After:=Sheets(Sheets.Count)) ‘если нужно сделать сбор данных на новый лист книги с кодом ‘Set wsDataSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)) ‘цикл по книгам For li = LBound(avFiles) To UBound(avFiles) If bPolyBooks Then Set wbAct = Workbooks.Open(Filename:=avFiles(li)) Else Set wbAct = ThisWorkbook End If oAwb = wbAct.Name ‘цикл по листам For Each wsSh In wbAct.Worksheets If wsSh.Name Like sSheetName Then ‘Если имя листа совпадает с именем листа, в который собираем данные ‘и сбор идет только с активной книги — то переходим к следующему листу If wsSh.Name = wsDataSheet.Name And bPolyBooks = False Then GoTo NEXT_ With wsSh Select Case iBeginRange.Count Case 1 ‘собираем данные начиная с указанной ячейки и до конца данных lLastrow = .Cells(1, 1).SpecialCells(xlLastCell).Row iLastColumn = .Cells.SpecialCells(xlLastCell).Column sCopyAddress = .Range(.Cells(iBeginRange.Row, iBeginRange.Column), .Cells(lLastrow, iLastColumn)).Address Case Else ‘собираем данные с фиксированного диапазона sCopyAddress = iBeginRange.Address End Select lLastRowMyBook = wsDataSheet.Cells.SpecialCells(xlLastCell).Row + 1 ‘определяем для копирования диапазон только заполненных данных на листе Set rCopy = Intersect(.Range(sCopyAddress).Parent.UsedRange, .Range(sCopyAddress)) ‘вставляем имя книги, с которой собраны данные If lCol Then wsDataSheet.Cells(lLastRowMyBook, 1).Resize(rCopy.Rows.Count).Value = oAwb ‘если вставляем только значения и форматы ячеек If bPasteValues Then rCopy.Copy wsDataSheet.Cells(lLastRowMyBook, 1).Offset(, lCol).PasteSpecial xlPasteValues wsDataSheet.Cells(lLastRowMyBook, 1).Offset(, lCol).PasteSpecial xlPasteFormats Else ‘если вставляем все данные ячеек(значения, формулы, форматы и т.д.) rCopy.Copy wsDataSheet.Cells(lLastRowMyBook, 1).Offset(, lCol) End If End With End If NEXT_: Next wsSh If bPolyBooks Then wbAct.Close False Next li With Application .ScreenUpdating = True: .EnableEvents = True: .Calculation = lCalc End With End Sub

Приведенный выше код необходимо вставить в стандартный модуль(Что такое модуль? Какие бывают модули?). Выполнить его можно будет из этой книги нажатием клавиш Alt+F8. В появившемся окне выбрать Consolidated_Range_of_Books_and_Sheets и нажать Выполнить. Так же можно создать на листе кнопку и назначить ей данный макрос. Так же, если впервые работаете с макросами настоятельно рекомендую прочитать статью: Что такое макрос и где его искать?, а так же Почему не работает макрос?

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

• Диапазон сбора данных — Если в окне выбора диапазона выбрать только одну ячейку, то данные будут собраны со всех листов книги/книг, начиная с этой ячейки и до последней ячейки листа.
  Если выбрать несколько ячеек, данные будут собраны только с указанного диапазона всех листов книги/книг. Допускается указать несвязанный(рваный) диапазон(например, только три столбца: A:A , D:D , F:F ). Сделать это можно, выделив нужный диапазон с зажатой клавишей Ctrl
• Имя листа — Необязателен для указания. Если не указан — данные будут собраны со всех листов. Указать можно как точное соответствие имени листа, так и с частичным соответствием. Например, если в книгах для сбора данных необходимо собрать данные только с листа «Январь», то следует так и указать — «Январь». Если требуется собрать данные только с листов, начинающихся с «Продажи»(«Продажи ЮГ», «Продажи НН», «Продажи Запад» и т.д.), то следует применить символ подстановки звездочку — «Продажи*». Если надо собрать с листов, содержащих в имени «продажи»(«Итоговые продажи ЮГ», «Продажи НН», «Сезонные продажи» и т.д.), то указываем «*продажи*». Если надо собрать только с листа «Сезонные продажи», но известно, что вместо пробела может быть нижнее подчеркивание или тире(«Сезонные продажи», «Сезонные_продажи», «Сезонные-продажи») или иной символ, то можно также применить звездочку — «Сезонные*продажи». Но если среди листов могут встречаться и такие как «Сезонные разовые продажи», «Сезонные корпоративные продажи» и т.п., но информацию с них собирать не надо, то можно применить вопросительный знак — «Сезонные?продажи». Вопросительный знак заменяет любой один символ, звездочка — любое количество любых символов.
• Далее появится запрос: Вставлять только значения? — если выбрать Да, то в результирующий лист с листов будут вставлены исключительно значения ячеек (без формул), но при этом сохранятся их форматы(формат чисел, цвет заливки, цвет шрифта, границы и т.п.). Может пригодится, если на листах для сбора записаны формулы, ссылающиеся на другие листы, книги, диапазоны. При обычном копировании может случиться так, что формула выдаст ошибку, т.к. в книге для вставки нет таких листов и диапазонов или данные расположены иначе. Если выбрать Нет, то все ячейки с листов на результирующий будут копироваться в точности как в исходных листах.
• И последний запрос: Собрать данные с нескольких книг? — если выбрать Да, то появится диалоговое окно выбора файлов. Надо указать все файлы, данные с которых необходимо собрать. Если выбрать Нет, то данные будут собираться с листов только активной книги.

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

Если после сбора данных обнаружили, что после каждого файла/листа много пустых строк, то следует найти в коде строку:

lLastrow = .Cells(1, 1).SpecialCells(xlLastCell).Row

Excel At Excel вып.3: Собираем данные с разных листов

Дано: 22 таблицы унифицированного формата с перечнем помещений от 22 дочерних предприятий.

Задача: сделать сводную таблицу с данными всех 22 таблиц

Итак, решение. Есть три варианта решения данной задачи. Первый — использовать встроенную (начиная с excel 2013) надстройку PowerPivot (об этом методе мы поговорим позднее). Второй — посредством сводной таблицы через несколько диапазонов консолидации. Не люблю этот метод, т.к. такая сводная таблица имеет существенно более ограниченный функционал по сравнению с простой сводной таблицей. Наконец, третий вариант — это создать общую таблицу с использованием функции INDIRECT (ДВССЫЛ). Этому методу и посвятим сегодня наш пост.

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

1) как заставить общую таблицу «переключаться» с одного листа данных на другой?;

2) как заставить ее делать это в нужный момент (когда закончились строки на одном листе)?

Начнем со второго вопроса, т.к. ответ на него мы уже знаем. Это циклы, о которых мы подробно говорили в выпуске 2 «Циклы в Excel без VBA». Для решения проблемы достаточно в наш файл добавить лист с перечнем всех обществ, соответствующими названиями листов и количеством подсчетом количества строк на каждом таком листе.

Обратите внимание на формулу в столбце Кол-во записей. Мы могли бы использовать просто COUNTA (СЧЁТА) со ссылкой на каждый лист. Но это потребует времени для «линковки» каждого листа. Плюс мы с вами готовим универсальные решения, которые будут работать в независимости от количества листов.

Именно для этого в функцию COUNTA (СЧЁТА) и внедряется эта чуднАя функция INDIRECT (ДВССЫЛ). Остановимся на ней подробнее.

Функция имеет, по сути, единственный параметр — ref_text (ссылка_на_текст). Что делает эта функция? Всего-навсего преобразует текст в ссылку на ячейку. То есть она преобразует текст, например, «А1» в ссылку и возвращает значение ячейки А1.

Соответственно, зная несложные правила работы с текстом в Excel, мы можем легко сделать текст внутри изменяемым, а значит можем сделать и изменяемыми ссылки, которые будет возвращать функция INDIRECT (ДВССЫЛ).

Разберем пример выше. Функция INDIRECT (ДВССЫЛ) имеет следующий вид:

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

Соответственно, в нашем случае у нас неизменен столбец B:B, а вот название листа меняется. Для «автоматизации» формулы заменяем Название листа на ссылку на название листа с данными по соответствующему обществу (столбец Название листа). Получаем следующее:

где все, что подчеркнуто — текст, а выделено жирным — ссылки.

ВАЖНО! Обратите внимание на кавычки и конкатенацию («склеивание») при помощи амперсента. Не забудьте, что текст вносится в кавычках и соединяется со ссылками при помощи символа &.

Получается, что INDIRECT (ДВССЫЛ) получает название листа из ячеек в столбце А:А (Название листа), а диапазон у нас прописан фиксированно текстом (В:В). COUNTA (СЧЁТА) же просто считает количество строк в столбце В:В на соответствующем листа за вычетом заголовка.

Перейдем к формированию общей таблицы. Как вы уже наверное прикинули, у нас будет два вложенных цикла: один — количество обществ, второй — количество записей на листе данных по соответствующему обществу. Соответственно, нам потребуются два вспомогательных столбца (определим их в столбцы А и В). Ровно так же, как мы делали на примере в выпуске 2 «Циклы в Excel без VBA», пишем формулу первого цикла:

=IF(A2=»»;»»;IF(COUNTIF($A$2:A2;A2)=OFFSET(‘Список обществ’!$E$2;A2-1;0);IF(A2+1>COUNTA(‘Список обществ’!A:A)-1;»»;A2+1);A2))

Затем пишем формулу второго цикла:

Далее при помощи уже знакомой нам функции OFFSET (СМЕЩ) заполняем столбцы из таблицы на листе Список обществ.

Осталось подтянуть данные с 22 листов по обществам. Тут нам опять поможет OFFSET (СМЕЩ), но уже в паре с INDIRECT (ДВССЫЛ).

OFFSET (СМЕЩ) передает в формулу название листа, а конструкция B2+1 — номер строки в столбце Е на том листе.

ВАЖНО! Обратите внимание, что OFFSET (СМЕЩ) вкладывается внутрь INDIRECT (ДВССЫЛ), а не наоборот.

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

Такую таблицу можно выполнить двумя разными способами.

1. Создание сводной таблицы с разных листов при помощи стандартных возможностей и инструментов.
2. Создание таблицы берущей данные с нескольких листов при помощи запроса сформированного в надстройке Power Query .

Рассмотрим первый способ.

Создание сводной таблицы с разных листов при помощи стандартных возможностей и инструментов.

Шаг первый.

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

Для этого следует кликнуть правой кнопкой мыши по ленте (панели инструментов) и выбрать из выпадающего меню пункт «Настройка ленты»

либо войти во вкладку

«Файл» => «Параметры» => «Настройка ленты».

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

Из списка выбираем «Мастер сводных таблиц и диаграмм»

В правом окне при помощи кнопки «Создать группу» создаем новую группу инструментов. Для группы можно выбрать удобное для Вас наименование. Например, «Своя группа». Можно выбрать на какой вкладке будет создана группа. В своем примере я выбрал вкладку «Главная».

Когда группа создана, выделите ее курсором, выделите курсором «Мастер сводных таблиц и диаграмм» в левом окне и нажмите кнопку «Добавить >>».

После нажмите «Ок».

Теперь на главной вкладке панели инструментов находится инструмент «Мастер сводных таблиц и диаграмм».

Шаг второй. Построение сводной таблицы из нескольких источников данных.

• Кликнуть по кнопке мастера построения сводных таблиц.
• На первом окне поставить флажок, напротив «в нескольких диапазонах консолидации» и флажок напротив «сводная таблица»
  
• Во втором окне выбрать «Создать одно поле страницы»
  
• В третьем окне добавить все диапазоны, которые Вы хотите консолидировать(соединить в сводной таблице).
  
• В четвертом окне выбрать лист, на котором будет размещена сводная таблица.
  
• Нажать кнопку «Готово».

Второй способ.

Создание таблицы берущей данные с нескольких листов при помощи запроса сформированного в надстройке Power Query .

Данный способ заключается в использовании запроса надстройки Power Query.

О данной надстройке рассказывалось в статье: «Power Query» в «Excel» — что это?

Создание запроса Power Query для сведения нескольких страниц книги в одну таблицу.

Шаг первый.

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

Шаг два.

Для этого во вкладке Power Query нужно нажать кнопку «Из таблицы» и указать в появившемся окне диапазон – источник данных. После чего нажать «Ок».

Шаг три.

Когда создан второй запрос, нужно во вкладке Power Query кликнуть по кнопке «Слияние запросов» и настроит в появившемся окне вид получившейся общей таблицы.

Шаг четыре.

Когда вид настроен, нужно нажать кнопку «Закрыть и загрузить.»

Надстройка Power Query соберет данные с двух листов и соединит их в одной таблице.

Консолидация данных с нескольких листов

​Смотрите также​​Похоже на Вашу​ 0​ список 1048576 значениями.​avFiles = Application.GetOpenFilename(«Excel files(*.csv*),*.csv*»,​ — их названия​ с листов Киев,​Sub sbor()​ диапазон в список​ Потом произошло обновление​ а затем вернитесь​ для каждого исходного​ каждому из этих​, а другой —​Все ссылки​Совет:​ области, в которой​Примечание:​ проблему?​’Запрос сбора данных​Hugo​

​ , «Выбор файлов»,​ ставите как названия​ Одесса соответствующее значениям​With Sheets(2): arr1​ объединяемых диапазонов.​ данных, снова собрал​ в мастер сводных​ диапазона, а также​ отделов, а также​Среднее​.​ Чтобы указать ссылку на​ требуется разместить консолидированные​ Мы стараемся как можно​jurafenix​

​ с книг(если Нет​: Ну так данные​ , True)​ городов (т.е. формируете​ в колонке Имя​ = .Range(.Cells(1), .Cells.SpecialCells(xlCellTypeLastCell)):​Повторите эти же действия​ данные первые данные​ таблиц и диаграмм​ элемент для консолидации​ элемент, содержащий сводные​, консолидация не просуммирует​После добавления данных из​ ячейку — например,​ данные.​ оперативнее обеспечивать вас​

​: Похоже, но названия​​ — то сбор​ ведь собрали.​If VarType(avFiles) = vbBoolean​ массив — делайте​ в итоговую таблицу​ End With​ для файлов Риты​ удалились (пустые ячейки),​ и нажмите кнопку​ всех диапазонов, сделайте​ данные. В примере​ эти столбцы.​

Способов консолидации данных

​ всех исходных листов​ продажи! B4 —​Примечание:​

​ актуальными справочными материалами​​ листов определенные нужны,​ идет с активной​А открывать csv​ Then Exit Sub​ сразу двухмерный). Затем,​ в колонку соответствующего​With Sheets(3): arr2​ и Федора. В​ а новые данные​Добавить​

​ следующее:​​ ниже показана сводная​Откройте каждый из исходных​ и книг нажмите​ в формуле, не​ Чтобы избежать перезаписи существующие​ на вашем языке.​ т.к. с других​ книги)​ можно другими программами,​bPolyBooks = True​ в этом же​

• ​ города.​ = .Range(.Cells(2, 1),​ итоге в списке​ добавились в конец​.​Добавьте мастер сводных таблиц​ таблица, в которой​ листов.​ кнопку​ вводя, введите формулу​ данные в основном​

​ Эта страница переведена​​ листов данные переносить​If MsgBox(«Собрать данные​ которые для этого​lCol = 1​ цикле создаете коллекцию​Пример в приложении.​

Как для консолидации

​ .Cells.SpecialCells(xlCellTypeLastCell)): End With​ должны оказаться все​ таблицы.​Совет:​

1. ​ и диаграмм на​ выбраны одно поле​На конечном листе щелкните​ОК​

   • ​ до того места,​ листе, убедитесь, оставьте​ автоматически, поэтому ее​ не требуется…​ с нескольких книг?»,​ предусмотрены.​Else​ уникальных имен, и​Очень нужна помощь.​Sheets(5).Cells(1).Resize(UBound(arr1), UBound(arr1, 2)).Value​ три диапазона:​Излишнее цитирование удалено администрацией​

   • ​ Если диапазон ячеек находится​ панель быстрого доступа.​ страницы и несколько​ верхнюю левую ячейку​.​ куда требуется вставить​ достаточно ячеек справа​ текст может содержать​jurafenix​

   • ​ vbInformation + vbYesNo,​Подбить статистику можно​

2. ​avFiles = Array(ThisWorkbook.FullName)​ еще одним циклом​ В примере всего​ = arr1​Обратите внимание, что в​

   ​- это нарушение​​ в другой книге,​ Для этого:​ элементов.​ области, в которой​Для консолидации по категории​ ссылку, а затем​

3. ​ и верхний угол​​ неточности и грамматические​​: Спасибо огромное!) Как​​ «Excel-VBA») = vbYes​​ макросом.​​End If​​ заносите в тот​

   

4. ​ 1 книга на​​Sheets(5).Cells(UBound(arr1) + 1,​​ данном случае Excel​ п.5j Правил форума​ сначала откройте ее,​Щелкните стрелку рядом с​Если велика вероятность того,​

   ​ требуется разместить консолидированные​ диапазон данных на​ щелкните лист, используйте​

   

5. ​ консолидированные данные.​

   ​ ошибки. Для нас​​ раз то, что​​ Then​​Или например использовать​​’отключаем обновление экрана, автопересчет​ же массив показатели​ 2 листа, а​

   

   ​ 1).Resize(UBound(arr2), UBound(arr2, 2)).Value​ запоминает, фактически, положение​boa​ чтобы упростить выбор​​ панелью инструментов и​​ что в следующий​ данные.​​ каждом из исходных​​ клавишу tab и​
   ​Нажмите кнопку​ важно, чтобы эта​ нужно.​avFiles = Application.GetOpenFilename(«Excel​​ Access.​​ формул и отслеживание​ с листов к​ обработать нужно 6​​ = arr2​​ файла на диске,​​: werty456,​​ данных.​ выберите​ раз при консолидации​Примечание:​ листов должен иметь​ затем щелкните ячейку.​

   ​данные​ статья была вам​:hands: А позволите​

   

6. ​ files(*.xls*),*.xls*», , «Выбор​​jurafenix​​ событий​​ соответствующим именам (это​​ книг в каждой​End Sub​ прописывая для каждого​

7. ​Замените строку​​В разделе​Дополнительные команды​ данных исходный диапазон​ Убедитесь, что справа и​ формат списка без​​ Excel будет завершена​>​​ полезна. Просим вас​ еще усложнить задачу?)​ файлов», , True)​

   ​: Доброго времени суток,​​’для скорости выполнения кода​

   • ​ строки) и в​ из которых более​RLGrime​ из них полный​

   • ​Range(«A10:K» & iLastRow).Clear​Во-первых, укажите количество полей​.​ данных изменится (например,​ снизу достаточно свободных​ пустых строк и​ адрес имя и​Консолидация​ уделить пару секунд​Нужно чтобы с​If VarType(avFiles) =​ уважаемые форумчане!​ и для избежания​ соответствующий город (столбцы​ 50 листов.​: sboy, Спасибо огромное)​

8. ​ путь (диск-папка-файл-лист-адреса ячеек).​​на​​ страницы сводной таблицы​В списке​ изменится число строк),​ ячеек для консолидированных​ столбцов. Кроме того,​ ячейку листа для​(в группе​

   • ​ и сообщить, помогла​ Листа 1 и​ vbBoolean Then Exit​Вновь возник вопрос,​ ошибок, если в​ массива).​Перешерстила весь форум,​

   • ​ Все работает, то​ Чтобы суммирование происходило​КодRange(«A10:K» & iLastRow).EntireRow.Delete​щелкните число полей,​Выбрать команды из​ рекомендуется задать имя​

Консолидация данных с помощью формул

​ данных.​ категории должны быть​ вас.​

​Работа с данными​ ли она вам,​ Листа 2 Данные​ Sub​ ответ на который​ книгах есть иные​Выгружаете через resize​ есть похожие темы,​ что нужно)​ с учетом заголовков​либо после очищения​ которые вы хотите​выберите пункт​

​ для каждого из​​На вкладке​ названы одинаково. Например,​Примечание:​).​ с помощью кнопок​ копировались в следующесм​bPolyBooks = True​ на страницах нашего​ коды​ массив.​ но решения моей​RLGrime​ столбцов и строк​ делайте ресайз таблицы​ использовать.​​Все команды​​ исходных диапазонов на​Данные​ если один из​формулы в таких​Выберите в раскрывающемся списке​ внизу страницы. Для​ порядке:​lCol = 1​

​ замечательного форума я​With Application​Z​

​ задачи не нашла:(​: sboy, А еще​ необходимо включить оба​werty456​В группе​.​ разных листах. Эти​в разделе​ столбцов называется​ случаях может быть​Функция​ удобства также приводим​

support.office.com

Объединение данных с нескольких листов

​1 столбец в​​Else​ не нашел.​lCalc = .Calculation​: В разделе «Ссылки»​Спасибо!​ вопрос, если добавить​ флажка​: Спасибо большое​Затем выберите диапазон в​Выберите в списке пункт​ имена можно использовать​Сервис​Сред.​ ошибкам, поскольку очень​функцию, которую вы​ ссылку на оригинал​ 1 столбец​avFiles = Array(ThisWorkbook.FullName)​Имеется файл с​.ScreenUpdating = False: .EnableEvents​ есть адресок одного​

​Kuzmich​ к сборке еще​Использовать в качестве имен​Kuzmich​ списке и укажите​Мастер сводных таблиц и​ при консолидации диапазонов​нажмите кнопку​, а другой —​ просто случайно выбираемых​ хотите использовать для​ (на английском языке).​3 столбец во​End If​ данными на 4​ = False: .Calculation​ прибамбаса для сбора​: Измените чуть-чуть структуру​ и 4й лист,​(Use labels)​: Не, нормально…​ метку элемента в​

​ диаграмм​ на главном листе.​Консолидация​Среднее​ неправильной ячейки. Также​ консолидации данных. По​Для подведения итогов и​ 2​’отключаем обновление экрана,​ листах. Требуется на​ = xlManual​ чегой-то… Словом, делов-то​ ваших таблиц,​ как это реализовать?​. Флаг​Макрос я писал,​ каждом из доступных​и нажмите кнопку​

​ В случае расширения​.​, консолидация не просуммирует​

Консолидация по расположению

​ может быть сложно​ умолчанию используется значение​ результатов из отдельных​4 в 3​ автопересчет формул и​ пятом листе собрать​End With​

1. ​ на 5-10 минут​перенесите все на​ Я в этом​Создавать связи с исходными​ старался,​

2. ​ окон полей. Повторите​Добавить​ исходного диапазона перед​Выберите в раскрывающемся списке​ эти столбцы.​

   ​ ошибку сразу после​​ СУММ.​ листов, можно объединить​5 в 4​ отслеживание событий​

3. ​ данные с тех​​’создаем новый лист в​​ и получите… ;)​​ лист Итого и​​ просто 2по5, сам​​ данными​​но спасибо не​

   

4. ​ операцию для каждого​​, а затем — кнопку​​ обновлением сводной таблицы​функцию​

5. ​Откройте каждый из исходных​ ввода сложные формулы.​

   ​Вот пример, в котором​ данные из каждого​​и 7 в 5​​’для скорости выполнения​

6. ​ четырех листов в​ книге для сбора​ И таких варьянтов…​ используйте сводную таблицу​​ не могу решить.​​(Create links to source​

Консолидация по категории

​ дождался!​ диапазона​ОК​ можно обновить диапазон​, которую требуется использовать​ листов.​Если данные для консолидации​ выбраны три диапазоны​ листа в главном​С листа 3​ кода и для​​ первый столбец -​​Set wsDataSheet = ActiveWorkbook.Sheets.Add(After:=Sheets(Sheets.Count))​​ps Одна беда:​​vikiviki​ Попробовал, получается добавляет​

1. ​ data)​werty456​

2. ​для каждого из​.​ на отдельном листе​ для консолидации данных.​На конечном листе щелкните​

   ​ находятся в одинаковых​​ листа:​ листе. Листы может​ данные копировались в​ ибежания ошибок, если​

3. ​ первый столбец, во​​’если нужно сделать сбор​​ надо мал-мал ручками​​: Для примера отлично​​ только 2 позиции.​​позволит в будущем​​:​

   

4. ​ полей страницы выберите​​В книге щелкните пустую​​ для указанного имени​Установите флажки в группе​

5. ​ верхнюю левую ячейку​​ ячейках разных листов:​​Выделите данные.​ быть в той​ следующем порядке​​ в книгах есть​​ второй — третий,​​ данных на новый​​ и головой -11183-​ сработает. Но в​

6. ​ Если не сложно​ (при изменении данных​Kuzmich​ диапазон ячеек, а​ ячейку, которая не​ таким образом, чтобы​Использовать в качестве имен​

   ​ области, в которой​Ввод формулы с трехмерной​​Далее в поле​​ же книге как​

7. ​1 столбец в​ иные коды​ в третий -​ лист книги с​​Kuzmich​​ работе применить такое​

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

Консолидация по расположению

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

1. ​: На листе «ИТОГО»​ решение не удастся.​ уже отстану) Спасибо.​ производить пересчет консолидированного​ долго не отвечал​

2. ​ имя.​ таблицы.​ новые данные.​ исходных диапазонах находятся​ данные.​

   ​ ссылку на диапазон​​нажмите кнопку​ в других книгах.​2 столбец в​lCalc = .Calculation​

3. ​ пустых строк нет,​​’Set wsDataSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))​​ макрос, собирающий данные​​ Так как придется​​sboy​​ отчета автоматически.​​Спасибо большое​

   

4. ​Пример​​На странице​​В Excel также доступны​ названия:​

5. ​Примечание:​ имен листов. Например​Свернуть​​ При объединении данных,​​ 5​

   ​.ScreenUpdating = False:​ т.е. можно сделать​​’цикл по книгам​​ со всех листов​

6. ​ перекроить форму более​: Добавить еще массив​После нажатия на​P.S. Перебои с​​Если в разделе​​Шаг 1​

Консолидация по категории

​ другие способы консолидации​подписи верхней строки​ Убедитесь, что справа и​ для консолидации данных​, чтобы уменьшить масштаб​ чтобы упростить можно​3 столбец в​ .EnableEvents = False:​ условие до первой​For li = LBound(avFiles)​(города) книги и​​ 300 таблиц, что​​Если листов много,​​ОК​​ интернетом(((​Во-первых, укажите количество полей​

1. ​мастера выберите параметр​ данных, которые позволяют​

2. ​,​ снизу достаточно свободных​ в ячейках с​ панели и выбрать​ обновить и статистической​

   ​ 4​​ .Calculation = xlManual​ пустой ячейки. Может​ To UBound(avFiles)​ строящий сводную таблицу​

3. ​ отнюдь не сэкономить​​ то имеет смысл​​видим результат нашей​​Имеем несколько однотипных таблиц​​ страницы сводной таблицы​​в нескольких диапазонах консолидации​​ работать с данными​

   

4. ​значения левого столбца​​ ячеек для консолидированных​​ A2 по продажам​ данные на листе.​

5. ​ обработки при необходимости​​5 столбец во​​End With​ есть какие мысли?)​If bPolyBooks Then​​ по этим данным.​​ время, а скорее​​ переделать на цикл​​ работы:​ на разных листах​

6. ​задано число​, а затем нажмите​ в разных форматах​либо оба флажка​ данных.​ через маркетинга включительно,​Щелкните лист, содержащий данные,​ собирать данные.​​ 2​​’создаем новый лист​

   ​Заранее спасибо!​Set wbAct = Workbooks.Open(Filename:=avFiles(li))​​dnsel​​ наоборот. Более того​

7. ​ по листам​Наши файлы просуммировались по​ одной книги. Например,​1​​ кнопку​​ и макетах. Например,​

   ​ одновременно.​​На вкладке​ в ячейке E5​ которые требуется консолидировать​Например, если в каждом​Выполнимо?)​ в книге для​К сожалению файл​

support.office.com

Консолидация нескольких листов в одной сводной таблице

​Else​: Доброго времени суток​ форма является утвержденной,​Sub sbor()​ совпадениям названий из​ вот такие:​, выберите каждый из​Далее​ вы можете создавать​Выделите на каждом листе​Данные​ главном листе вы​ данные и нажмите​ из региональных офисов​Эффект желательно, чтобы​ сбора​ приложить не смогу,​Set wbAct = ThisWorkbook​ всем!​ что затрудняет изменении​

Консолидация нескольких диапазонов

​With Sheets(2): arr1​ крайнего левого столбца​Необходимо объединить их все​ диапазонов, а затем​.​ формулы с объемными​ нужные данные. Не​в группе​ бы введите следующие​ кнопку​ есть свой лист​ был как от​ThisWorkbook.Sheets.Add After:=Sheets(Sheets.Count)​ т.к.:​End If​Есть потребность собрать​

​ ее структуры в​ = .Range(.Cells(1), .Cells.SpecialCells(xlCellTypeLastCell)):​ и верхней строки​ в одну общую​​ введите уникальное имя​​На странице​ ссылками или использовать​ забудьте включить в​Работа с данными​ данные:​Развернуть диалоговое окно​ расходов, с помощью​ вашего макроса)))​Set wsDataSheet =​

Настройка исходных данных

​1. Нахожусь на​oAwb = wbAct.Name​ данные из нескольких​ дальнейшем.​ End With​ выделенных областей в​ таблицу, просуммировав совпадающие​ в поле​Шаг 2а​ команду​ них ранее выбранные​нажмите кнопку​Примечание:​справа, чтобы вернуться​ консолидации можно свести​

Поля страницы при консолидации данных

​jurafenix​ ThisWorkbook.ActiveSheet​ работе, где интернет​’цикл по листам​ файлов excel на​Можно ли использовать​With Sheets(3): arr2​ каждом файле. Причем,​ значения по кварталам​Первое поле​выберите параметр​Консолидация​ данные из верхней​Консолидация​Мы стараемся как​ в диалоговое окно​ эти данные на​: Всё, окончательная структура​’цикл по книгам​ через удаленное рабочее​For Each wsSh In​

Использование именованных диапазонов

​ один лист.​ макрос для решения​ = .Range(.Cells(2, 1),​ если развернуть группы​ и наименованиям.​. Если у вас​Создать одно поле страницы​(доступную на вкладке​ строки или левого​.​ можно оперативнее обеспечивать​Консолидация​ главном листе корпоративных​ файла утверждена и​For li =​ место без возможности​ wbAct.Sheets​Структура всех файлов​ такой задачи?​ .Cells.SpecialCells(xlCellTypeLastCell)): End With​ (значками плюс слева​Самый простой способ решения​

Другие способы консолидации данных

​ четыре диапазона, каждый​, а затем нажмите​Данные​ столбца. Затем нажмите​Выберите в раскрывающемся списке​ вас актуальными справочными​.​ расходов. Главный лист​ пример проработан)​ LBound(avFiles) To UBound(avFiles)​​ закачивания файлов​​If wsSh.Name Like sSheetName​​ одинакова, есть такой​​Z​​With Sheets(4): arr3​​ от таблицы), то​

Консолидация нескольких диапазонов

​ задачи «в лоб»​ из которых соответствует​ кнопку​в группе​ кнопку​функцию​ материалами на вашем​Если лист, содержащий​ также может содержать​

Консолидация данных без использования полей страницы

​Задача следующая:​If bPolyBooks Then​2. В файле​ Then​ код, все вроде​

1. ​: off​ = .Range(.Cells(2, 1),​ можно увидеть из​ — ввести в​

   1. ​ кварталу финансового года,​Далее​Работа с данными​​Добавить​​, которую требуется использовать​

   2. ​ языке. Эта страница​​ данные, которые необходимо​​ итоговые и средние​​Нужно чтобы с​​ Workbooks.Open Filename:=avFiles(li)​

   3. ​ содержатся конфедициальные сведения​​’Если имя листа совпадает​ работает, но периодически​​Будьте решительнее, ведь​​ .Cells.SpecialCells(xlCellTypeLastCell)): End With​​ какого именно файла​​ ячейку чистого листа​​ выберите первый диапазон,​

2. ​.​).​.​ для консолидации данных.​

3. ​ переведена автоматически, поэтому​ объединить в другой​

4. ​ значения продаж, данные​​ Листа «ОСВрубли7777» и​​oAwb = Dir(avFiles(li),​​ (банк).​​ с именем листа,​ падает с ошибкой​​ вы не испрашиваете​​Sheets(5).Cells(1).Resize(UBound(arr1), UBound(arr1, 2)).Value​

5. ​ какие данные попали​​ формулу вида​​ введите имя «Кв1»,​​На странице​​Для консолидации нескольких диапазонов​Путь к файлу вводится​​Установите флажки в группе​​ ее текст может​

6. ​ книге, нажмите кнопку​​ о складских запасах​​ Листа «ОСВрублиБФ» Данные​

   1. ​ vbDirectory)​Если без файла​ в который собираем​ 1004:​ разрешение на написание​ = arr1​​ в отчет и​​=’2001 год’!B3+’2002 год’!B3+’2003 год’!B3​

      ​ выберите второй диапазон,​​Шаг 2б​ вы можете воспользоваться​ в поле​Использовать в качестве имен​ содержать неточности и​

   2. ​Обзор​​ и информацию о​ копировались в следующесм​​’цикл по листам​​ не получится, попробую​​ данные​Данные не могут​​ макроса, а «тонко​​Sheets(5).Cells(UBound(arr1) + 1,​

7. ​ ссылки на исходные​​которая просуммирует содержимое ячеек​​ введите имя «Кв2″​сделайте следующее:​ мастером сводных таблиц​Все ссылки​, указывающие, где в​ грамматические ошибки. Для​​, чтобы найти необходимую​​ самых популярных товарах​

Консолидация данных с использованием одного поля страницы

​ порядке:​For Each wsSh​ вечером что-то похожее​’и сбор идет только​ быть вставлены из=за​ намекаете» на то,​ 1).Resize(UBound(arr2), UBound(arr2, 2)).Value​

1. ​ файлы:​ B2 с каждого​ и повторите процедуру​Перейдите в книгу и​

   1. ​ и диаграмм. В​.​ исходных диапазонах находятся​​ нас важно, чтобы​​ книгу. После поиска​

   2. ​ в рамках всей​​1 столбец в​​ In Workbooks(oAwb).Sheets​​ выложить…​​ с активной книги​

   3. ​ несоответствия формы и​​ чтобы кто-то его​ = arr2​​Предположим, имеется куча книг​​ из указанных листов,​​ для диапазонов «Кв3″​​ выделите диапазон ячеек,​​ нем можно указать,​

2. ​После добавления данных из​ названия:​ эта статья была​ и нажмите кнопку​

3. ​ компании.​​ 1 столбец​​If wsSh.Name Like​​Прошу прощения за​​ — то переходим​ размеров области копирования​​ для вас нашел​​Sheets(5).Cells(UBound(arr1) + UBound(arr2)​

4. ​ Excel, все листы​​ и затем скопировать​​ и «Кв4».​​ а затем вернитесь​​ сколько полей страницы​ всех исходных листов​​подписи верхней строки​​ вам полезна. Просим​

5. ​ОК​​Совет:​​3 столбец во​

   1. ​ sSheetName Then​ неудобства​ к следующему листу​ и области вставки…..​ или написал… Поскольку​ + 1, 1).Resize(UBound(arr3),​​ из которых надо​​ ее на остальные​

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

6. ​, Excel в поле​​ Если вы часто консолидировать​​ 2​

7. ​’Если имя листа​​В интернете нашел​​If wsSh.Name = wsDataSheet.Name​Выделяет эту строку:​ сами не беретесь​ UBound(arr3, 2)).Value =​ объединить в один​ ячейки вниз и​​Во-первых, укажите количество полей​​ таблиц и диаграмм​

Консолидация данных с использованием нескольких полей страницы

​ одного, одно или​ кнопку​значения левого столбца​ секунд и сообщить,​ссылка​ данные, он помогут​4 в 3​ совпадает с именем​ такой интересный код,​ And bPolyBooks =​wsDataSheet.Cells(lLastRowMyBook, 1).Offset(, lCol).PasteSpecial xlPasteValues​ — заказывайте… ;)​ arr3​ файл. Копировать руками​ вправо.​ страницы сводной таблицы​ и нажмите кнопку​ несколько.​ОК​

1. ​либо оба флажка​ помогла ли она​введите путь к​ создать новые листы​

   1. ​5 в 4​ листа, в который​ а ума переделать​​ False Then GoTo​​Помогите, пожалуйста, код​

   2. ​ -89753-​​End Sub​​ долго и мучительно,​​Если листов очень много,​​задано число​

   3. ​Добавить​​Чтобы объединить данные всех​.​​ одновременно.​​ вам, с помощью​​ файлу и добавление​​ на основе шаблона​​6 в 5​

2. ​ собираем данные​ под себя не​ NEXT_​ прикладываю (он не​

3. ​Baklanoff​​krosav4ig​​ поэтому имеет смысл​​ то проще будет​​2​.​​ диапазонов и создать​​Примечание:​

4. ​Выделите на каждом листе​​ кнопок внизу страницы.​​ восклицательный знак, путь​​ с единообразным макетом.​​и 8 в 6​’и сбор идет​​ хватает. В данном​​With wsSh​

5. ​ мой)​​: Вот как? А​​: Можно использовать форму​

   1. ​ использовать несложный макрос.​ разложить их все​, выполните аналогичные действия​Совет:​ консолидированный диапазон без​ Любые названия, не совпадающие​​ нужные данные. Не​​ Для удобства также​

      ​ к. Чтобы выбрать​​ Дополнительные сведения о​С листа «Банк2рубли»​ только с активной​ коде имена листов​Select Case iBeginRange.Count​

   2. ​Скрытый текстSub Consolidated_Range_of_Books_and_Sheets()​​ я уже почти​ для выбора листов​​Открываем книгу, куда хотим​ подряд и использовать​ в поле​

   3. ​ Если диапазон ячеек находится​​ полей страницы, сделайте​ с названиями в​ забудьте включить в​ приводим ссылку на​ другие данные можно​ шаблонах читайте в​ данные копировались в​​ книги — то​ задаются, а мне​Case 1 ‘собираем данные​Dim iBeginRange As Object,​ дописал :(​

      ​Private Sub CommandButton1_Click()​

      • ​ собрать листы из​​ немного другую формулу:​Первое поле​​ в другой книге,​​ следующее:​​ других исходных областях,​ них ранее выбранные​ оригинал (на английском​ нажмите Продолжить.​​ статье: Создать шаблон.​​ следующем порядке​ переходим к следующему​ нужно с нескольких​ начиная с указанной​ lCalc As Long,​Ну ладно, раз​Me.Hide​ других файлов, входим​=СУММ(‘2001 год:2003 год’!B3)​. Затем выберите два​ сначала откройте ее,​

      • ​Добавьте мастер сводных таблиц​​ могут привести к​ данные из верхней​​ языке) .​​Вот пример, в котором​​ Это также идеально​1 столбец в​​ листу​​ четко перечисленных листов​ ячейки и до​ lCol As Long​​ такое дело, то​​On Error Resume​ в редактор Visual​Фактически — это суммирование​ диапазона и введите​ чтобы упростить выбор​ и диаграмм на​ появлению в консолидированных​ строки или левого​Если данные, которые требуется​ выбраны три диапазоны​ время Настройка шаблона​ 1 столбец​

   4. ​If wsSh.Name =​​ (Лист1, Лист3, Лист4,​​ конца данных​

6. ​Dim oAwb As String,​​ оставим до лучших​​ Next​ Basic (​ всех ячеек B3​ в поле​ данных.​ панель быстрого доступа.​​ данных отдельных строк​​ столбца.​

​ проанализировать, представлены на​

support.office.com

Сбор данных с нескольких листов макросом (Макросы/Sub)

​ листа выбранного:​​ с помощью таблиц​2 столбец в​
​ wsDataSheet.Name And bPolyBooks​ Лист5), но это​
​lLastrow = .Cells(1, 1).SpecialCells(xlLastCell).Row​ sCopyAddress As String,​ времен​With Application: .EnableEvents​
​ALT+F11​ на листах с​Второе поле​Нажмите кнопку​ Для этого:​ или столбцов.​
​Путь к файлу вводится​ нескольких листах или​Во всплывающем окне​ Excel.​ 6​ = False Then​

​ не критично. Самое​​iLastColumn = .Cells.SpecialCells(xlLastCell).Column​ sSheetName As String​
​vikiviki​
​ = 0: .ScreenUpdating​), добавляем новый пустой​
​ 2001 по 2003,​одинаковое имя, например​
​Далее​Щелкните стрелку рядом с​
​Консолидация данных представляет собой​ в поле​
​ в нескольких книгах,​
​Консолидация​Консолидация данных по положению​
​3 столбец в​ GoTo NEXT_​ главное - нужно​
​sCopyAddress = .Range(.Cells(iBeginRange.Row, iBeginRange.Column),​
​Dim lLastrow As Long,​: Не надо оставлять​
​ = 0​ модуль (в меню​
​ т.е. количество листов,​ "Пг1" и "Пг2".​
​.​
​ панелью инструментов и​
​ удобный способ объединения​
​Все ссылки​

​ их можно объединить​​нажмите кнопку​ или категории двумя​ 5​With wsSh​ чтобы данные переносились​ .Cells(lLastrow, iLastColumn)).Address​ lLastRowMyBook As Long,​ до лучших времен.​​With ActiveSheet.UsedRange​​Insert — Module​ по сути, может​

​ Выберите первый диапазон​​На странице​
​ выберите​
​ данных из нескольких​

​.​
​ на одном листе​
​Добавить​ способами.​

​5 столбец (потом​​Select Case iBeginRange.Count​

​ в уже созданный​​Case Else ‘собираем данные​
​ li As Long,​ Пожалуйста, напишите. Иначе​
​Intersect(.Cells, .Offset(1)).Delete xlUp​) и копируем туда​

​ быть любым. Также​​ и введите имя​​Шаг 3​​Дополнительные команды​ источников в одном​
​После добавления данных из​
​ с помощью команды​. Повторите этот сценарий,​

excelworld.ru

Консолидация (объединение) данных из нескольких таблиц в одну

Способ 1. С помощью формул 

​Консолидация данных по расположению​ будет заполнен) во​Case 1 ‘собираем​ лист (не удаляя​

​ с фиксированного диапазона​ iLastColumn As Integer​ все придется вручную​End With​ текст вот такого​

​ в будущем возможно​ «Пг1», выберите второй​укажите, следует ли​.​ отчете. Например, если​

​ всех исходных листов​

​ «Консолидация». Например, если​ чтобы добавить все​: данные в исходных​ второй столбец.​ данные начиная с​ строки). Также желательно,​sCopyAddress = iBeginRange.Address​

​Dim wsSh As Object,​ сводить(​With ListBox1​ макроса:​ поместить между стартовым​

​ диапазон и введите​

​ добавлять сводную таблицу​В списке​ в каждом из​ и книг нажмите​ есть отдельный лист​ нужные диапазоны консолидации.​ областях том же​Если это реально,​ указанной ячейки и​ чтобы можно было​End Select​ wsDataSheet As Object,​Z, что значит​For i =​

Способ 2. Если таблицы неодинаковые или в разных файлах

​Sub CombineWorkbooks() Dim​ и финальным листами​ имя «Пг1», выберите​ на новый или​Выбрать команды из​ региональных филиалов вашей​ кнопку​ расходов для каждого​Обновления автоматически и вручную:​ порядке и использует​ то буду очень​ до конца данных​ задавать столбцы (тоже​

​lLastRowMyBook = wsDataSheet.Cells.SpecialCells(xlLastCell).Row +​ bPolyBooks As Boolean,​ «заказывайте»?​​ 0 To .ListCount​​ FilesToOpen Dim x​​ дополнительные листы с​​ третий диапазон и​​ же на существующий​​выберите пункт​​ компании есть сводная​

​ОК​ регионального представительства, с​Если требуется автоматическое​ одинаковых наклеек. Этот​ благодарен реализации данного​lLastrow = .Cells(1,​ не критично).​ 1​ avFiles​Z​ — 1​ As Integer Application.ScreenUpdating​ данными, которые также​ введите имя «Пг2»,​ лист, и нажмите​Все команды​ таблица расходов, с​.​ помощью консолидации можно​ обновление консолидации таблицы​

​ метод используется для​ проекта!​

1. ​ 1).SpecialCells(xlLastCell).Row​
2. ​200?’200px’:»+(this.scrollHeight+5)+’px’);»>​If bPasteValues Then ‘если​
3. ​Dim wbAct As Workbook​: off​If .Selected(i) Then​ = False ‘отключаем​​ станут автоматически учитываться​ ​ выберите четвертый диапазон​​ кнопку​
   
4. ​.​​ помощью консолидации данных​ ​Примечание:​​ создать на базе​ при изменении исходных​ консолидации данных из​Заранее спасибо, дорогие​iLastColumn = .Cells.SpecialCells(xlLastCell).Column​​Sub Consolidated_Range_of_Books_and_Sheets()​ ​ вставляем только значения​​Dim bPasteValues As Boolean​У многих планетян-знатоков​With ThisWorkbook.Sheets(.List(i)).UsedRange​ обновление экрана для​
5. ​ при суммировании.​ и введите имя​Готово​Выберите в списке пункт​ можно объединить такие​ Любые названия, не совпадающие​
   

​ этих данных корпоративный​ данных, просто установите​ нескольких листов, например​ форумчане!​sCopyAddress = .Range(.Cells(iBeginRange.Row,​Dim iBeginRange As​.Range(sCopyAddress).Copy​On Error Resume Next​ в подписях есть​Intersect(.Cells, .Offset(1)).Copy _​ скорости ‘вызываем диалог​Если исходные таблицы не​​ «Пг2».​​.​​Мастер сводных таблиц и​​ значения в корпоративный​ с названиями в​ ​ лист расходов. Такой​ флажок​​ отделов бюджета листов,​nilem​ iBeginRange.Column), .Cells(lLastrow, iLastColumn)).Address​ Object, lCalc As​wsDataSheet.Cells(lLastRowMyBook, 1).Offset(, lCol).PasteSpecial xlPasteValues​

​’Выбираем диапазон выборки с​​ адреса и «кошельки»​​[A1].Offset(Cells(Rows.Count, 1).End(xlUp).Row)​ выбора файлов для​

​ абсолютно идентичны, т.е.​Нажмите кнопку​Вы можете создать несколько​ диаграмм​ отчет о расходах.​ других исходных областях,​ лист может содержать​создавать связи с исходными​ которые были созданы​: пробуйте​Case Else ‘собираем​ Long, lCol As​Else​ книг​ — они не​

planetaexcel.ru

Сборка листов из разных книг в одну

​End With​ импорта FilesToOpen =​ имеют разное количество​Далее​ полей страницы и​и нажмите кнопку​ Такой отчет может​ могут привести к​

​ итоговые и средние​ данными​ из одного шаблона.​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub ertert()​ данные с фиксированного​​ Long​​.Range(sCopyAddress).Copy wsDataSheet.Cells(lLastRowMyBook, 1).Offset(, lCol)​Set iBeginRange = Application.InputBox(«Выберите​​ только принимают благодарности,​​End If​ Application.GetOpenFilename _ (FileFilter:=»All​ строк, столбцов или​

​.​ назначить имена элементов​Добавить​ содержать итоговые и​ появлению в консолидированных​ данные по продажам,​. Если это поле​Консолидация по категории​Dim lr&​ диапазона​Dim oAwb As​End If​ диапазон сбора данных.»​ но и могут​Next​ files (*.*), *.*»,​ повторяющиеся данные или​На странице​ каждому из исходных​, а затем — кнопку​

​ средние данные по​ данных отдельных строк​ текущим уровням запасов​ остается неограниченный, возможность​​: данные в исходных​With Sheets(«ОСВрубли7777»).Range(«A1»).CurrentRegion​sCopyAddress = iBeginRange.Address​​ String, sCopyAddress As​​Application.DisplayAlerts = False​​ & vbCrLf &​ сработать на заказ.​End With​ _ MultiSelect:=True, Title:=»Files​ находятся в разных​Шаг 3​ диапазонов. Это позволяет​ОК​

planetaexcel.ru

Как собрать данные с нескольких листов макросом (кнопкой) (Формулы/Formulas)

​ продажам, текущим уровням​​ или столбцов.​ и наиболее популярным​ обновления консолидации вручную.​ областях не расположены​Union(.Columns(1), .Columns(3).Resize(, 4),​End Select​ String, sSheetName As​End With​ _​ Объявите задачу и​.EnableEvents = 1:​ to Merge») If​ файлах, то суммирование​укажите, следует ли​ выполнять частичную или​.​ запасов и наиболее​Для консолидации по расположению​ продуктам в рамках​Примечания:​ в одном и​ .Columns(8)).Copy Sheets(«Лист5»).Cells(Rows.Count, 1).End(xlUp)(2,​lLastRowMyBook = wsDataSheet.Cells.SpecialCells(xlLastCell).Row​ String​End If​»1. При выборе только​ свои свои контакты​ .ScreenUpdating = 1:​ TypeName(FilesToOpen) = «Boolean»​ при помощи обычных​ добавлять сводную таблицу​ полную консолидацию. Например,​

​В книге щелкните пустую​​ популярным продуктам в​
​ диапазон данных на​
​ всей организации.​ ​ том же порядке,​
​ 1)​ + 1​Dim lLastrow As​
​NEXT_:​ одной ячейки данные​
​ - откликнуться. Кроме​ End With​ Then MsgBox "Не​
​ формул придется делать​


​ на новый или​​ в одном поле​ ячейку, которая не​ рамках всей организации.​

​ каждом из исходных​​Тип консолидации следует выбирать​Связи невозможно создать, если​ но имеют одинаковые​End With​’вставляем имя книги,​ Long, lLastRowMyBook As​Next wsSh​ будут собраны со​ того:​Unload Me​ выбрано ни одного​ для каждой ячейки​ же на существующий​

​ страницы могут консолидироваться​​ является частью сводной​
​Для подведения итогов и​ листов должен иметь​ с учетом того,​ исходная и конечная​
​ метки. Используйте этот​
​lr = Sheets("Лист5").Cells(Rows.Count,​ с которой собраны​ Long, li As​
​If bPolyBooks Then wbAct.Close​ всех листов начиная​- Фриланс -​
​End Sub​ файла!" Exit Sub​ персонально, что ужасно​
​ лист, и нажмите​ данных отдела маркетинга​
​ таблицы.​ обобщения результатов по​ формат списка без​
​ как выглядят объединяемые​ области находятся на​ способ, чтобы консолидировать​ 1).End(xlUp)(2, 1).Row​
​ данные​


​ Long, iLastColumn As​​ False​ с этой ячейки.​
​- Фриланс -​
​Private Sub UserForm_Initialize()​
​ End If 'проходим​ трудоемко. Лучше воспользоваться​
​ кнопку​ и отдела продаж​Щелкните значок мастера на​
​ данным в отдельных​
​ пустых строк и​
​ листы. Если данные​
​ одном листе.​
​ данные из нескольких​With Sheets("Банк2рубли").Range("A1").CurrentRegion​If lCol Then​
​ Integer​
​Next li​
​ " & _​
​- ... ;)​
​Dim SH As​
​ по всем выбранным​
​ принципиально другим инструментом.​
​Готово​
​ без данных производственного​ панели быстрого доступа.​ диапазонах можно консолидировать​
​ столбцов.​
​ на листах расположены​
​Если необходимо изменить степень​
​ листов с разными​.Columns(1).Copy Sheets("Лист5").Cells(lr, 1)​
​ wsDataSheet.Cells(lLastRowMyBook, 1).Resize(Range(sCopyAddress).Rows.Count).Value =​Dim wsSh As​
​With Application​vbCrLf & "2. При​ -57744-​
​ Worksheet​
​ файлам x =​

​Рассмотрим следующий пример. Имеем​​.​ отдела, а в​На странице​

​ их в сводной​​Откройте каждый из исходных​ единообразно (названия строк​ диапазона — или​ макетами, но одинаковыми​.Columns(2).Copy Sheets(«Лист5»).Cells(lr, 6)​ oAwb​
​ Object, wsDataSheet As​

​.ScreenUpdating = True: .EnableEvents​​ выделении нескольких ячеек​​vitalisechko​

excelworld.ru

Собрать данные с разных листов книги в итоговую таблицу

​ Is ActiveSheet Then​​ запустить созданный макрос​,​
​ уважаемые форумчане!​ консолидацию с использованием​, а затем нажмите​

​На конечном листе щелкните​​ на листах для​
​ выполнив указанные выше​ сводной таблицей тем​jurafenix​NEXT_:​’Выбираем диапазон выборки​Hugo​’для указания диапазона без​ рабочие файлы. Не​Next​Сервис — Макрос -​и​

​ решении задачи:​​ сделайте следующее:​Далее​ или в других​
​ верхнюю левую ячейку​ соответствующих категорий используются​ действия. Создаст новый​ не менее, вы​

​Федор​​Необходимо произвести сбор​
​Добавьте мастер сводных таблиц​.​ книгах. Консолидированные данные​ области, в которой​ одинаковые названия строк​ в ссылке на​ можете легко переупорядочение​ ОСВрублиБФ и ОСВрубли7777​If bPolyBooks Then​Set iBeginRange =​ недавно говорил -​
​’Set iBeginRange = Range(«A1:A10»)​
​ услуги, сама хочу​
​RLGrime​ Macro — Macros)​

​.xlsx​​ данных с «Лист1»,​ и диаграмм на​На странице​ легче обновлять и​ требуется разместить консолидированные​ и столбцов (данные​ диапазон, поэтому вам​ категории. Если вам​

​ данные не копирует​​ Workbooks(oAwb).Close False​
​ Application.InputBox(«Выберите диапазон сбора​ для этого конкретного​
​ ‘диапазон указывается нужный​ научиться работать.​: krosav4ig, Спасибо) очень​или нажав​) с тремя таблицами:​ «Лист2», «Лист3», «Лист4″​ панель быстрого доступа.​Шаг 2а​ обобщать на регулярной​ данные.​

​ при этом могут​​ нужно будет сначала​ нужна более гибкие​:(​Next li​ данных.» & vbCrLf​ случая подходит​’Если диапазон не выбран​Z​ полезно если много​ALT+F8​Хорошо заметно, что таблицы​ на лист «сводная».​ Для этого:​выберите параметр​ основе или по​Примечание:​ быть расположены по-разному),​

​, а затем нажмите​​Итоговый консолидированный отчет сводной​ снизу достаточно свободных​ категории.​ Просто выберите старой​ таблицу .​ мешает их с​ .EnableEvents = True:​
​ только одной ячейки​dnsel​ Then Exit Sub​

​ vikiviki aka Fox(Lisichka:))??​​: sboy, скажите, как​ необходимо указать один​ размеры и смысловая​
​ могут быть записаны​ выберите​ кнопку​

planetaexcel.ru

Сбор данных из нескольких файлов (csv) на один лист

​ таблицы может содержать​​ ячеек для консолидированных​Более новые версии​
​ ссылки и нажмите​Примечание:​ данными из ОСВрубли7777.​ .Calculation = lCalc​
​ данные будут собраны​: Это в командной​’Указываем имя листа​Для того, чтобы​ заменить ссылку на​ или несколько (удерживая​
​ начинка. Тем не​ через строчку через​Дополнительные команды​Далее​ следующие поля в​
​ данных.​​ Office 2011 г.​
​ клавишу Delete.​ В этой статье были​ Видимо данные из​
​End With​

​ со всех листов​ строке? А где​’Допустимо указывать в имени​

​ что-то переделать, это​ номер листа на​ CTRL или SHIFT)​

​ менее их можно​ две, меняться количество​.​.​

​ области​На вкладке​ ​Нажмите кнопку​

​ созданы с Excel​

​ Банк2рубли просто накладываются​

​End Sub​

​ начиная с этой​ путь указывается?​

​ листа символы подставки​ что-то вам кто-то​ название листа? Как​ файлов, листы из​

​ собрать в единый​ строк и столбцов​В списке​На странице​Список полей сводной таблицы​Данные​

​Для консолидации по расположению​ОК​ 2016. Хотя представления​ на данные ОСВрубли7777​KolyvanOFF​ ячейки. » &​

​Hugo​ ? и *.​

​ должен предоставить -​ поменяется команда With​

​ которых надо добавить​ отчет меньше, чем​

​Таблица на листе​Выбрать команды из​

​Шаг 2б​

​, добавляемой в сводную​в разделе​ диапазон данных на​

​, а Excel создаст​ могут отличаться при​nilem​: Так нужно?​

​ _​: Я не вчитывался​’Если указать только *​ то есть услужить,​ Sheets(2): ?​ к текущей книге.​

​ за минуту. Единственным​ «Сводная», куда заносятся​выберите пункт​сделайте следующее:​

​ таблицу: «Строка», «Столбец»​Сервис​ каждом из исходных​

​ консолидации для вас.​

​ использовании другой версии​: Ну если макрос​jurafenix​

​vbCrLf & «2.​ в этот нечитаемый​ то данные будут​

​ оказать услугу, а​Спасибо!​RLGrime​ условием успешного объединения​

​ данные, форматирована,как таблица​Все команды​Перейдите в книгу и​ и «Значение». Кроме​

​нажмите кнопку​ листов должен иметь​ Кроме того можно​ Excel, шаги одинаковы.​

​ что-то там не​: К сожалению, нет.​ При выделении нескольких​

​ код. Принципиально.​ собираться со всех​

​ вы от нее​

​Pelena​

​: Доброго всем времени​

​ (консолидации) таблиц в​

​ с заголовками, и​

​.​ выделите диапазон ячеек,​ того, в отчет​

​Консолидация​ формат списка без​ применить форматирование. Бывает​Выполните указанные ниже действия,​ копирует, значит так​

​Мне нужно чтобы​

​ ячеек данные будут​

​Я лишь ответил​ листов​ отказываетесь… Последовательнее, логичнее​

​:​

​ суток. От меня​ подобном случае является​

​ начинается с 9​

​Выберите в списке пункт​ а затем вернитесь​ можно включить до​.​

​ пустых строк и​

​ только необходимо отформатировать​

​ чтобы консолидация нескольких​ и должно быть​

​ столбец А нескольких​

​ собраны только с​

​ на заглавный вопрос​

​sSheetName = InputBox(«Введите имя​

​ надо быть, однако​

​With Sheets(«имя_листа»)​

​ был уже подобный​

​ совпадение заголовков столбцов​ строки​

​Мастер сводных таблиц и​ в мастер сводных​

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

​ рабочих листов в​давайте добавим еще​ листов копировался в​ указанного диапазона всех​

​ темы.​ листа, с которого​ … -95573-​vikiviki​

​ вопрос, но сейчас​

​ и строк. Именно​

​Kuzmich​ диаграмм​ таблиц и диаграмм​ которые называются «Страница1»,​

​функцию​

​Откройте каждый из исходных​

​ не перезапустить консолидации.​ главном листе.​

​ три строчки:​ столбец А итогового​

​ листов.», Type:=8)​

​dnsel​

​ собирать данные(если не​vitalisechko​

​: Пожалуйста, подскачите решение.​ задача стоит в​

​ по первой строке​

​: При активном листе​

​и нажмите кнопку​

​ и нажмите кнопку​

​ «Страница2», «Страница3» и​

​, которую требуется использовать​

​ листов и убедитесь​

​Все названия, не совпадающие​

​Если вы еще не​

​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub ertert()​

​ файла и т.д.​’Если диапазон не​

​: Не очень понятно,​

​ указан, то данные​

​: Трактуйте как хотите.​ Нужно подтянуть данные​ следующем. Есть какое-то​

​ и левому столбцу​

​ «Сводная» запустить макрос​

​Добавить​​Добавить​ «Страница4».​ для консолидации данных.​ в том, что​
​ с названиями в​ сделано, настройте данные​

​Dim lr&​​ А у вас​ выбран — завершаем​ что значит copy​

​ собираются со всех​​ Можете умничать сколько​ со всех листов​ кол-во листов в​
​ каждой таблицы Excel​Sub Sbor()​, а затем — кнопку​

​.​​Каждый из диапазонов данных​Выделите на каждом листе​ данные на них​
​ других исходных областях,​ на каждом листе​With Sheets(«ОСВрубли7777»).Range(«A1»).CurrentRegion​ он с одного​ процедуру​
​ /b *.csv all.csv.​ листов)», «Параметр»)​ угодно. Вы мне​ в книге в​

​ книге, например 4.​​ будет искать совпадения​Dim Sht As​ОК​Совет:​ следует преобразовать в​
​ нужные данные и​ расположены одинаково.​ приведут к появлению​ составные, сделав следующее:​
​Union(.Columns(1), .Columns(3).Resize(, 4),​ листа копирует в​If iBeginRange Is​

​У меня есть​​’Если имя листа не​ предлагаете услугу за​ итоговую таблицу. В​ Предположим, что все​

​ и суммировать наши​​ Worksheet​.​
​ Если диапазон ячеек находится​ формат перекрестной таблицы​ нажмите кнопку​На конечном листе щелкните​
​ дополнительных строк или​Убедитесь, что все диапазоны​
​ .Columns(8)).Copy Sheets(«Лист5»).Cells(Rows.Count, 1).End(xlUp)(2,​ итоговый, а с​

planetaexcel.ru

Сбор данных с нескольких листов (Макросы/Sub)

​ Nothing Then Exit​​ папка с названием​ указано — данные​
​ деньги. А мне​ книге каждый лист​ листы по конструкции​ данные.​Dim iLastRow As​
​В книге щелкните пустую​ в другой книге,​ с совпадающими именами​Добавить​ верхнюю левую ячейку​ столбцов в консолидированных​ данных представлены в​ 1)​ других листов не​ Sub​ N. Там лежит​ будут собраны со​ нужна подсказка от​ обозначает город, в​ идентичны, но сами​Для того, чтобы выполнить​
​ Long​
​ ячейку, которая не​ сначала откройте ее,​ строк и столбцов​
​.​ области, в которой​ данных.​ формате списка. Каждый​End With​
​ копирует(((​’Указываем имя листа​ куча файликов CSV​
​ вех листов​ людей для которых​ котором работают менеджера​ таблицы могут быть​
​ такую консолидацию:​Dim iLR As​
​ является частью сводной​ чтобы упростить выбор​ для элементов, которые​Путь к файлу вводится​ требуется разместить консолидированные​Убедитесь, что все категории,​ столбец необходимо иметь​With Sheets(«ОСВрублиБФ»).Range(«A1»).CurrentRegion​nilem​’Допустимо указывать в​ с разными названиями.​If sSheetName = «»​ подобная задача не​ по продажам. Один​ различного объема .​Заранее откройте исходные файлы​ Long​ таблицы.​ данных.​ вы хотите объединить.​
​ в поле​
​ данные.​
​ которые не нужно​ метку (верхний колонтитул)​Union(.Columns(1), .Columns(3).Resize(, 4),​:​
​ имени листа символы​Как в команде​ Then sSheetName =​ представляет такой сложности​
​ менеджер может работать​ И Нужно собрать​Создайте новую пустую книгу​iLastRow = Cells(Rows.Count,​На странице​
​В разделе​ В выбранные данные​Все ссылки​Примечание:​
​ консолидировать, должны иметь​ в первой строке​
​ .Columns(8)).Copy Sheets("Лист5").Cells(Rows.Count, 1).End(xlUp)(2,​jurafenix​
​ подставки ? и​ обозначить какая папка​ "*"​ как для меня.​
​ в нескольких городах,​ данные не со​ (Ctrl + N)​ 1).End(xlUp).Row​Шаг 1​Во-первых, укажите количество полей​ не следует включать​
​.​ Убедитесь, что справа и​ уникальные подписи, которые​ и содержать похожие​ 1)​,​
​ *.​ мне нужна для​On Error GoTo 0​
​ Я не просила​ поэтому его имя​ всех листов, а​
​Установите в нее активную​
​Range("A10:K" & iLastRow).Clear​мастера выберите параметр​ страницы сводной таблицы​ итоговые строки и​
​После добавления данных из​ снизу достаточно свободных​ появляются в диапазоне​ данные. Должен быть​
​End With​может как-то так?:​'Если указать только​ выборки?​'Запрос - вставлять на​ о платных услугах​
​ встречается на нескольких​ с определенных, поместить​ ячейку и выберите​For Each Sht​
​в нескольких диапазонах консолидации​введите​ итоговые столбцы. В​
​ всех исходных листов​ ячеек для консолидированных​
​ только один источник.​ отсутствуют пустые строки​lr = Sheets("Лист5").Cells(Rows.Count,​200?'200px':''+(this.scrollHeight+5)+'px');">Sub ertert()​ * то данные​
​Hugo​ результирующий лист все​ и не ожидала​ закладках.​ данные друг под​
​ на вкладке (в​ In Worksheets​, а затем нажмите​
​0​ приведенном ниже примере​ и книг нажмите​
​ данных.​
​Если данные для консолидации​
​ или столбцы в​
​ 1).End(xlUp)(2, 1).Row​
​Dim v​
​ будут собираться со​: Самое быстрое -​ данные​
​ что мне напишут​Задача:​ другом. Нужно это​ меню)​If Sht.Name <>​
​ кнопку​
​, а затем нажмите​
​ показано четыре диапазона​ кнопку​На вкладке​
​ находятся в разных​
​ любом месте в​With Sheets("Банк2рубли").Range("A1").CurrentRegion​For Each v​
​ всех листов​
​ используя ТоталКоммандер встать​'или только значения ячеек​
​ макрос, который я​
​1) На итоговый​ сделать именно макросом,​
​Данные - Консолидация​ "Сводная" And Sht.Name​
​Далее​ кнопку​
​ в формате перекрестной​
​ОК​Данные​
​ ячейках разных листов:​ списке.​
​.Columns(1).Copy Sheets("Лист5").Cells(lr, 1)​ In Array("Лист1", "Лист2",​sSheetName = InputBox("Введите​ в папку и​
​ (без формул и​ подставлю и все​ лист собрать названия​ лучше по нажатию​(Data - Consolidate)​
​ <> "123" Then​.​Далее​ таблицы.​
​.​
​в группе​
​Введите формулу со ссылками​Разместите каждый диапазон на​.Columns(2).Copy Sheets("Лист5").Cells(lr, 6)​ "Лист3", "Лист4")​
​ имя листа, с​ выполнить в коммандной​
​ форматов)​
​ мои проблемы решатся.​ всех городов в​
​ кнопки. Во вложении​. Откроется соответствующее окно:​With Sht​
​На странице​
​.​
​При консолидации данных можно​Для консолидации по категории​
​Работа с данными​ на ячейки других​ отдельном листе, но​
​.Columns(3).Copy Sheets("Лист5").Cells(lr, 5)​With Sheets(v)​ которого собирать данные(если​
​ строке эту команду.​bPasteValues = (MsgBox("Вставлять только​
​Baklanoff​
​ строку Город один​
​ пример таблицы и​
​Установите курсор в строку​
​iLR = .Cells(.Rows.Count,​Шаг 2а​
​На странице​
​ использовать поля страницы,​
​ диапазон данных на​нажмите кнопку​ листов (по одной​
​ не было введено​
​.Columns(5).Copy Sheets("Лист5").Cells(lr, 2)​


​With .Range(«A1», .Cells(Rows.Count,​​ не указан, то​

​Или сохранить эту​​ значения?», vbQuestion +​
​: >> А мне​ за другим.​ что в итоге​Ссылка​ 1).End(xlUp).Row​выберите параметр​Шаг 3​ содержащие элементы, которые​ каждом из исходных​Консолидация​ на каждый лист).​

​ никаких данных в​​End With​​ 1).End(xlUp))​​ данные собираются со​
​ строку в bat/cmd,​
​ vbYesNo, "Excel-VBA") =​
​ нужна подсказка от​
​2) На итогом​ должно получиться. Собрать​(Reference)​
​iLastRow = Cells(Rows.Count,​
​Создать поля страницы​укажите, следует ли​
​ представляют один или​ листов должен иметь​.​
​ Например, чтобы консолидировать​
​ основном листе где​
​End Sub​
​Union(.Columns(1), .Offset(, 2).Resize(,​

​ всех листов)», «Параметр»)​​ поместить файл в​
​ vbYes)​ людей для которых​

​ листе в колонке​​ таблицы нужно с​и, переключившись в​ 1).End(xlUp).Row + 1​, а затем нажмите​ добавлять сводную таблицу​

​ несколько исходных диапазонов.​​ формат списка без​Выберите в раскрывающемся списке​ данные из листов​​ план для консолидации​если так тоже​
​ 2)).Copy Sheets(«Лист5»).Cells(Rows.Count, 1).End(xlUp)(2,​’Если имя листа​ папку и выполнить.​’Запрос сбора данных с​ подобная задача не​
​ Имя вывести список​ листов 2 и​
​ файл Иван.xlsx, выделите​.Range(.Cells(2, «A»), .Cells(iLR,​
​ кнопку​
​ на новый или​
​ Например, при консолидации​
​ пустых строк и​функцию​ «Продажи» (в ячейке​
​ данных. Excel будет​ не захочет работать,​
​ 1)​ не указано -​
​Но можно конечно​ книг(если Нет -​
​ представляет такой сложности​ уникальных значений со​
​ 3, а 1​
​ таблицу с данными​ «K»)).Copy Cells(iLastRow, 1)​Далее​

​ же на существующий​​ данных бюджета отдела​ столбцов. Кроме того,​, которую требуется использовать​
​ B4), «Кадры» (в​
​ сделать это для​ то нужен пример​End With​ данные будут собраны​ прописать путь и​
​ то сбор идет​ как для меня​
​ всех листов(вроде и​ и 4 не​
​ (вместе с шапкой).​
​End With​
​.​
​ лист, и нажмите​
​ маркетинга, отдела продаж​ категории должны быть​ для консолидации данных.​
​ ячейке F5) и​ вас.​
​ вашего файла​End With​
​ со вех листов​ прямо в код.​
​ с активной книги)​Подсказать — это​ простая задача, но​
​ трогать. Помогите решить​ Затем нажмите кнопку​End If​На странице​
​ кнопку​ и производственного отдела​

​ названы одинаково. Например,​​Выделите на каждом листе​
​ "Маркетинг" (в ячейке​
​Убедитесь, что всех диапазонов​
​jurafenix​
​Next​If sSheetName =​dnsel​
​If MsgBox("Собрать данные с​
​ пожалуйста. Здесь все​ не могу сообразить​
​ данную задачу пжлст)​
​Добавить​
​Next​
​Шаг 2б​
​Готово​
​ поле страницы может​
​ если один из​

​ нужные данные.​​ B9) в ячейке​ совпадают.​: nilem, Спасибо огромное!!!​​End Sub​​ «» Then sSheetName​: Огонь) Спасибо большое.​ нескольких книг?», vbInformation​ делается одним циклом​ как с ней​ Спасибо.​(Add)​

​End Sub​​сделайте следующее:​.​ содержать отдельный элемент​ столбцов называется​
​Путь к файлу вводится​ A2 основного листа,​
​На основном листе щелкните​
​ Спасли меня! Всё​
​Manyasha​
​ = "*"​ Жаль, только, что​ + vbYesNo, "Excel-VBA.ru")​
​ по страницам книги​
​ справиться)​
​sboy​в окне консолидации,​werty456​
​Перейдите в книгу и​
​Чтобы включить одно поле​ с данными по​
​Сред.​
​ в поле​
​ введите следующее:​
​ левый верхний угол​
​ отлично работает​
​: Посмотрите эту тему​
​On Error GoTo​
​ excel ограничивает мой​ = vbYes Then​ (исключая страницу «ИТОГО»)​3) Подтянуть Количество​

​: Добрый день.​​ чтобы добавить выделенный​: Собрал данные макросом.​ выделите диапазон ячеек,​

excelworld.ru

​ страницы, содержащее элемент​

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

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

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

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

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

1) Используемые диапазоны — это диапазоны, начинающиеся с первой используемой ячейки и заканчивающиеся последней используемой ячейкой;

2) Предварительно выделенные диапазоны на каждом листе — диапазоны, выделенные пользователем самостоятельно, исходя из его потребностей по консолидации данных;

3) Одноименные диапазоны — диапазоны с одинаковым адресом на каждом листе, указанным на активном рабочем листе;

4) Выборочные диапазоны — диапазоны ячеек, начинающиеся с выбранной ячейки и заканчивающиеся концом листа (последней используемой ячейкой).

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

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

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

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

макрос (надстройка) для сбора данных со всех листов Excel на итоговый

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

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

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

Видео по сбору данных со всех листов на итоговый лист

Сбор данных с нескольких книг Excel на один лист

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

1) При помощи надстройки для объединения рабочих книг в один файл, собрать все листы в одной рабочей книге;

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

А знаете ли Вы, что существует возможность выборочно собрать данные с определенных листов различных рабочих книг?

MulTEx »

1 Май 2011              160648 просмотров

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

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

---

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

---

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

• Общие
• Настройки сбора с книг
• Расширенные настройки
• Агрегирование

---

вкладка Общие

Просматривать листы:

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

Собрать данные со всех листов — собираются данные со всех листов(кроме листа, выбранного для сбора данных) активной книги или всех указанных книг, в зависимости от того, какой тип просмотра листов был выбран(текущей книги или выбранных книг).

Собирать данные с листа, если — данные собираются только с определенных листов книг. Делится на два значения:

• Номер листа — указывается порядковый номер листа, с которого собирать данные. Можно применять символы подстановки — * и ?. Например, указав 1* Вы в итоге соберете данные со всех листов, индекс которых начинается с 1(1,10,11,12,13,…,101,102 и т.д.), а указав 1? — 10,11,12,…,19. При подсчете порядкового номера учитываются только видимые листы.
• Имя листа — указывается имя листа, с которого собирать данные. Также как и с номером можно применять символы подстановки — * и ?. Взять пример с рисунка — *отчет*. Данные будут собраны со всех листов, в имени которых встречается слово отчет — первый отчет, 2 отчет, отчет №3, четвертый отчет за период и т.д.
• Просматривать скрытые листы — если установлен флажок, то данные будут собираться со всех листов книги, независимо от того видимые они или нет. Если снять — то данные будут собираться только с видимых листов книги. При этом, если флажок не установлен, то аргументом Номер листа подсчитываются и учитываются только видимые листы. Что это значит: когда листы скрыты, они так же являются частью книги и по умолчанию подсчитываются Excel-ем наравне с видимыми. Если в книге 5 листов: Лист1, Лист_итог, Лист_пром, Лист2, Лист3 и 2 из них скрыты(Лист_итог, Лист_пром), то фактически Лист2 будет иметь номер 4, а Лист3 номер 5. Хотя среди видимых листов Лист2 будет иметь номер 2, а Лист3 номер 3. И если бы программа брала номера листов в реальном порядке(а не в порядке только для видимых листов), то указывая в качестве аргумента Номер листа цифру 2 ожидается, что данные будут собираться с Лист2. Но по факту данные бы собирались с Лист_итог, т.к. именно он имеет 2-ой номер по порядку. Иными словами — MulTEx всегда работает с логическим для пользователя порядком листов, не заставляя думать есть ли еще какие-то листы, если надо собирать данные только с видимых.
  Эта опция так же применяется для настройки Исключить из сбора листы
  Изменять видимость листов(а так же обнаружить скрытые листы) можно командой MulTEx Изменить видимость листов

Исключить из сбора листы — указываются листы, данные с которых собирать не надо. Делится на два значения:

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

Так же как и при указании листов для сбора, здесь допускается использование подстановочных символов для указания имени/номера листа. Таким образом можно исключить из сбора группу листов.
Например, в каждой книге для сбора есть листы с отчетами. Отчеты ежедневные(«Ежедневный отчет за 01.04.2014», «Ежедневный отчет за 02.04.2014» и т.д.) и отчеты за весь период, которые могут называться «Итоговый отчет» или «Отчет за месяц» и т.п. Если необходимо собрать только итоговые отчеты, то можно указать в качестве имени листа для сбора данных значение «*отчет*», а в исключениях «*ежедневный*». Или в книге только ежедневные отчеты, но известно, что за 02.04.2014 отчеты были сформированы неверно и их надо исключить. В качестве имени листа для сбора данных указываем «*отчет*», а в исключениями имя листа — «*02.04.2014».

Собирать начиная с указанной ячейки и до последней — данные с листов будут собираться начиная с ячейки, указанной в окне выбора. На рисунке указан адрес — $B$12, следовательно данные будут собираться, начиная именно с этой ячейки. Может пригодиться, если в данных присутствуют заголовки, шапки и прочие ненужные в итоговых данных строки или столбцы. Применяя данную опцию необходимо следить, чтобы структура документов во всех книгах была одинакова.
Собирать данные только указанного диапазона — будут собраны данные ячеек исключительно в пределах указанного диапазона. Актуально в случае, когда помимо шапки, есть еще и подпись, итоги и т.п. и количество строк в отчетах не меняется (например, всегда 31 строка).
Копировать листы целиком, собирая в одну книгу — в результирующую книгу будут добавлены целые листы, данные в которых отвечают условиям настроек. Имена листов остаются такими же, как они записаны в исходной книге.

Не переносить листы с одинаковым именем — если установлен, то в итоговую книгу не будут копироваться те листы, имена которых уже присутствуют в итоговой книге. Т.е. если сбор идет с нескольких книг и в каждой из книг присутствует лист «Отчет», то в итоговую книгу будет добавлен лист только из первой книги. Если пункт Не переносить листы с одинаковым именем отключен, то при совпадении имени листа в итоговой и в просматриваемой книге для итогового листа будет добавлен номер в скобках(Итог, Итог(1), Итог(2) и т.д.)

Добавить имена листов перед данными — в итоговый лист будет добавлен столбец, в который напротив каждого первого значения нового листа будет записано имя листа, с которого эти данные были занесены. Столбец добавляется перед данными(т.е. первым столбцом).
Примечание: данный пункт не учитывается при выборе метода сбора данных Копировать листы целиком, собирая в одну книгу на вкладке Общие

Поместить результат сбора:

• в новую книгу — после нажатия ОК будет создана новая книга, на первый лист которой, начиная с ячейки A1 и будут помещены все отобранные данные. В случае, если выбрано Копировать листы целиком, собирая в одну книгу, в новой книге будут собраны только листы, подходящие под критерии сбора. Если ни один из листов не подходит под критерии, то по окончании сбора будет отображена созданная книга с одним пустым листом.
• на новый лист активной книги — после нажатия ОК будет создан новый чистый лист, на который начиная с ячейки A1 и будут помещены все отобранные данные.
• начиная с указанной ячейки — указывается ячейка на любом листе любой открытой книги. Начиная с указанной ячейки в указанный лист указанной книги будут вставлены собранные данные. Данный пункт не доступен при выборе метода сбора данных Копировать листы целиком, собирая в одну книгу на вкладке Общие

---

вкладка Настройки сбора с книг

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

• все файлы в папке — путем нажатия кнопки правее поля выбирается папка, файлы в которой необходимо просмотреть и внести в список
  включая подпапки — доступно для пункта все в папке. Если установлен, то файлы будут просматриваться не только в указанной папке, но и во всех вложенных в неё папках до самой глубоко вложенной. Если отключен, то файлы будут просматриваться исключительно в указанной папке.
  Отбирать файлы по маске — доступно для пункта все в папке. В данном случае в поле указывается шаблон и будут отбираться файлы, отвечающие маске шаблона. Например, если необходимо отбирать только файлы Excel, то можно указать маску: *.xls*. Если надо отбирать только текстовые файлы, содержащие в имени слово «отчет», то маску можно задать как: *отчет*. Если в шаблоне указано расширение файлов(например, *отчет*.xls*, то будут отбираться только файлы указанного типа — в данном случае Excel). Если ничего не указано, то отбираться будут все файлы Excel и текстовые(txt и CSV)
• только выбранные — после нажатия кнопки Добавить файлы появится диалоговое окно, в котором необходимо выбрать файлы для добавления в список

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

Преобразовать выбранные файлы в формат «.xlsx» — 2007-2010 Excel — Преобразует выбранные для обработки файлы в формат 2007 Excel. Необходимо для тех случаев, когда собираемые данные могут занять больше места на листе, чем 65536 строк(максимум для файлов, созданных в 2003 Excel). Все дело в том, что даже работая в 2007 Excel(и выше) с файлами формата 2003 Excel(.xls) Excel начинает работать в режиме совместимости с предыдущими версиями и накладывает на файлы определенные ограничения. В том числе эти ограничения накладываются и на перенос данных из одного файла в другой. Если попытаться собрать данные с файлов, среди которых будет файл 2003 Excel(.xls) и при переносе данных из этого файла в итоговый лист потребуется строк больше 65536 — то приложение выдаст ошибку, т.к. Excel не может пропустить это ограничение при переносе данных из файла в режиме совместимости.

Удалить преобразованные файлы после сбора данных — отметить, если файлы, преобразованные при помощи опции Преобразовать выбранные файлы в формат «.xlsx» — 2007-2010 Excel не нужны после сбора данных. Все преобразованные файлы будут удалены сразу после сбора данных. Исходники при этом никаким образом не пострадают.

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

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

---

вкладка Расширенные настройки

Копировать только те строки, в которых присутствует значение: — включение данной опции позволяет копировать из диапазонов листов лишь те строки, в ячейках которых присутствует указанное в текстовом поле(расположено ниже) значение. Можно применять символы подстановки — * и ?. На рисунке введено слово «*итог*». Значит скопированы будут лишь те строки, в ячейках которых будет найдено слово или словосочетание, содержащие «итог». Это и «подитог» и «промежуточный итог», и «итого» и т.д.
Заданное значение будет искаться в диапазоне, указанном на вкладке Общие. Например, если выбран пункт Собирать только выбранный диапазон и указан диапазон $B$5:$F$60, то значение «итог» будет искаться только в этом диапазоне листа. И скопирована будет только строка, не выходящая за пределы указанного диапазона. Если слово «итог» будет найдено в ячейке D25, то скопированы будут ячейки B25:F25.
Примечание: данный пункт не учитывается при выборе метода сбора данных Копировать листы целиком, собирая в одну книгу на вкладке Общие

Собирать данные, если содержимое ячейки [адрес ячейки] равно:

• Значению — в итоговый лист будут собраны данные лишь с тех листов, значение указанной ячейки в которых равно записанному в данное поле. Можно применять символы подстановки — * и ?. Если отметить пункт и оставить пустым — появится сообщение, предупреждающее о пустом значении. Можно согласиться собирать данные, если ячейка пустая, либо отменить выполнение и заполнить поле значением. В примере указано значение «Ведомость» и ячейка, в которой это значение просматривать: $A$1. Значит данные будут собираться только с тех листов, содержимое ячейки A1 которых равно Ведомость.
• Содержимому ячейки [адрес ячейки] — указывается адрес ячейки(выделением ячейки на листе). В итоговый лист будут собраны данные лишь с тех листов, значение указанной ячейки в которых равно значению в этой ячейке.
  На рисунке указан адрес ячейки для просмотра — $A$1. Если в поле Содержимому ячейки указать ‘Лист2’!$B$10 и в этой ячейке записано «ТЦ Омега», то перед сбором данных из этой ячейки будет считано её значение — «ТЦ Омега». И именно с ним впоследствии будет сравниваться значение в ячейке $A$1 каждого листа: данные будут собираться только с тех листов, содержимое ячейки A1 которых равно ТЦ Омега.

 
Параметры вставки:

• Не учитывать фильтр на листах — если установить, то при установленном на листах фильтре значения будут скопированы даже со скрытых фильтром строк. Иногда это может пригодиться, чтобы не снимать фильтр со множества листов. Важно: если на вкладке Общие выбрано Просматривать листы текущей книги, то фильтры на листах, с которых собирались данные, будут сброшены.
• Копировать только значения и форматы — в итоговый лист будут скопированы исключительно значения и форматы с выбранных файлов/листов. Это значит, что если в каких-либо листах есть формулы, то будет скопирован лишь результат их вычислений — сами формулы на итоговый лист не попадут. Может пригодиться, когда на листах для сбора есть много формул, ссылающихся на разные листы и книги. При копировании таких формул в итоговом листе может появиться ошибочное значение(#ССЫЛКА!(#REF!), #Н/Д(#N/A) и др.).
  Примечание: При включенной опции Копировать только значения и форматы опция Создать связь с источником становится недоступной.
• Создать связь с источником — в итоговом листе будут созданы ссылки на ячейки выбранных файлов/листов (=[Книга1.xlsx]Лист2!A4). Может пригодится, если данные собираются в итоговую книгу/лист и впоследствии необходимо получать актуальные данные в итоговом листе после изменения данных в книгах/листах с первоначальными данными. Однако, следует учитывать, что создание связей не всегда лучший вариант: файл увеличивается в размерах и при открытии может появляться запрос на обновление связей (если связи создавались не в пределах той же книги, а на ячейки других книг).
  Примечание: При включенной опции Создать связь с источником опция Копировать только значения и форматы становится недоступной.
  Связь с источником может быть заменена значениями для столбцов в случае, если к данным применяются функции агрегирования. При этом связи заменяются значениями только для тех столбцов, для которых применяется функция агрегирования(Сумма, Среднее, Минимум, Максимум).
• Вставлять данные по столбцам — если выбран, то данные будут вставляться не в классическом варианте друг под другом после последней заполненной строки, а будут продляться вправо — после последнего заполненного столбца. Схемы того, как будут собраны данные в зависимости от включенного или отключенного данного пункта:
  Отключен(классический вариант сбора данных)
  
  Включен(вариант сбора данных по столбцам)
  

Определять последнюю строку данных на основании столбца № — указывается номер столбца. Применяется, если нет необходимости собирать все данные с листа, а только те, которые заканчиваются в определенном столбце. Например, если хотите исключить из сбора подпись под данными в виде итогов. На рисунке ниже наглядно показано, что будет, если собирать данные начиная с указанной ячейки и до конца и как будет определен конец для сбора данных, если указать номер столбца 6(F) для определения последней ячейки:

Для корректного сбора данных с листов как на рисунке выше необходимо:

• на вкладке Общие указать Собирать, начиная с указанной ячейки и до последней — A6;
• на вкладке Расширенные настройки включить Определять последнюю строку данных на основании столбца № — 6

Тогда будут собраны данные без шапок и без итоговой строки.
Чтобы не высчитывать номера столбцов на основании их названий(букв) можно воспользоваться командой MulTEx Стиль ссылок.

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

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

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

---

АГРЕГИРОВАНИЕ
На этой вкладке расположены опции, при помощи которых можно реализовать суммирование(минимум, максимум, среднее) собранных данных на основании значений указанных столбцов:

Агрегировать:
Если установлен, то все данные, которые отвечают заданным критериям сбора, будут агрегированы при помощи выбранной функции. Доступные функции агрегирования: Сумма, Среднее, Минимум, Максимум.

данные столбцов — указываются буквы(A,B,C) или номера столбцов(1,2,3) на листе, либо имена заголовков таблиц, значения которых необходимо агрегировать (просуммировать, вывести среднее, минимум или максимум).
используя функцию — выбирается одна из доступных функций агрегирования:
• Сумма — данные указанных столбцов будут просуммированы
• Среднее — для каждого из указанных столбцов будет выведено среднее арифметическое значение(общая сумма значений деленная на их количество)
• Минимум — для каждого из указанных столбцов будет отобрана строка с минимальным числом из всего набора данных
• Максимум — для каждого из указанных столбцов будет отобрана строка с максимальным числом из всего набора данных

Заменить нечисловые данные нулями — если установить, то все данные, которые не могут быть преобразованы в число будут заменены нулями. Если отключен, то такие данные будут пропущены. Для чего это может быть нужно? Если в столбцах для агрегирования присутствуют текстовые данные, то в определенных случаях общим результатом агрегирования может стать текстовое значение. Как правило это может относится к данным, которые являются уникальными во всем наборе данных. Если в дальнейшем итоговые данные планируется использовать для построения графиков и иных расчетов, то данный пункт лучше включить во избежание ошибок.

Если совпадают данные — перечисляются столбцы таблиц, на основании которых будут агрегированы значения. Столбцы перечисляются через запятую (,).

• всех столбцов одной строки (кроме столбцов агрегирования) — в данном случае в качестве критериев определения данных для агрегирования будут использоваться все столбцы каждого отдельного набора данных(каждого листа), кроме столбцов, указанных для агрегирования. Этот пункт следует выбирать только в том случае, если данные собираются с таблиц с одинаковым количеством и набором столбцов.
• указанных столбцов — в данном случае в качестве критериев определения данных для агрегирования будут использоваться только перечисленные столбцы в каждом наборе данных. Если какого-либо из столбцов не будет в наборе данных(такое возможно, если для определения столбцов используется пункт Имена столбцов в заголовке таблицы (первая строка)), то данные этой таблицы будут агрегированы отдельно от остальных данных.

Для определения столбцов использовать: — выбирается способ перечисления столбцов:

• Буквы столбцов листа (A,B,C) — для определения столбцов указываются имена столбцов на листе:
  
  A — первый столбец, B — второй столбец, C — третий столбец и т.д. Все имена должны перечисляться через запятую, без пробелов. Буквы могут быть записаны как заглавными, так и строчными, регистр не имеет значения. Такой метод перечисления наиболее предпочтителен в случаях, когда данные собираются с однотипных таблиц и их расположение на всех листах для сбора одинаковое. В ином случае данные могут быть агрегированы неверно.
• Номера столбцов листа (1,2,3) — для определения столбцов указываются номера столбцов на листе:
  
  1 — первый столбец, 2- второй столбец, 3 — третий столбец и т.д. Важно учитывать, что указываются номера столбцов именно на листе, а не в таблицах.
  Например, таблицы данных начинаются с ячейки В2 и агрегировать необходимо данные столбцов C и D. В этом случае первый номер столбца будет 2, а для агрегирования следует указать 3,4. Все номера должны перечисляться через запятую, без пробелов. Такой метод перечисления наиболее предпочтителен в случаях, когда данные собираются с однотипных таблиц и их расположение на всех листах для сбора одинаковое. В ином случае данные могут быть агрегированы неверно.
• Имена столбцов в заголовке таблицы (первая строка) — для определения столбцов указываются названия заголовков таблиц:
  
  Заголовки должны располагаться в первой строке собираемых данных. При этом используется первая строка именно данных для сбора, а не первая строка на листе.

  Если на вкладке Общие выбрано Собирать, начиная с указанной ячейки и до последней и указана ячейка A3, то строкой заголовка будет считаться строка 3 листа, с которого собираются данные, т.к. именно с этой строки начинается данные для сбора.
  Если на вкладке Общие выбрано Собирать данные только указанного диапазона и указан диапазон B12:H90, то строкой заголовка будет считаться строка 12 листа, с которого собираются данные, т.к. именно с этой строки начинается данные для сбора.

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

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

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

Необходимо получить общую сумму столбцов Сумма, Количество и Остаток по каждому Наименованию товара, если Магазин и Месяц для товара совпадают.
Если таблицы во всех листах имеют одинаковое расположение и порядок столбцов(в точности как на рисунке выше), то настройки могут быть такими:
ОБЩИЕ (одинаковые для всех вариантов агрегирования)

Собирать данные со всех листов
Собирать, начиная с указанной ячейки и до последней: A1

АГРЕГИРОВАНИЕ

Агрегировать
• данные столбцов: G,H,I
  используя функцию: Сумма
• если совпадают данные:
  указанных столбцов: A,D,E
• Для определения столбцов использовать: Буквы столбцов листа (A, B, C)

или:

Агрегировать
• данные столбцов: 7,8,9
  используя функцию: Сумма
• если совпадают данные:
  указанных столбцов: 1,4,5
• Для определения столбцов использовать: Номера столбцов листа (1, 2, 3)

Если в столбцах Магазин, Наименование товара и Месяц данные будут полностью совпадать — то будет оставлена только первая строка данных, а числовые данные столбцов для суммирования(Сумма, Количество, Остаток) будут сложены:

В итоге получится таблица из уникальных сочетаний Магазина, Наименования товара и Месяца и общих сумм для столбцов Сумма, Количество и Остаток по этим данным.

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

Тогда предпочтительнее применять агрегирование на основании имен столбцов в заголовке таблицы:

Агрегировать
• данные столбцов: Сумма,Количество,Остаток
  используя функцию: Сумма
• если совпадают данные:
  указанных столбцов: Магазин,Наименование товара,месяц
• Для определения столбцов использовать: Имена столбцов в заголовке таблицы (первая строка)

Также см.:
Как собрать данные с нескольких листов или книг?
Как объединить несколько текстовых файлов в один?
Создание отдельных книг из листов текущей книги

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

Можно сформировать новые итоги по исходным параметрам, поменяв строки и столбцы местами. Можно произвести фильтрацию данных, показав разные элементы. А также наглядно детализировать область.

Сводная таблица в Excel

Для примера используем таблицу реализации товара в разных торговых филиалах.

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

Самое рациональное решение – это создание сводной таблицы в Excel:

1. Выделяем ячейку А1, чтобы Excel знал, с какой информацией придется работать.
2. В меню «Вставка» выбираем «Сводная таблица».



3. Откроется меню «Создание сводной таблицы», где выбираем диапазон и указываем место. Так как мы установили курсор в ячейку с данными, поле диапазона заполнится автоматически. Если курсор стоит в пустой ячейке, необходимо прописать диапазон вручную. Сводную таблицу можно сделать на этом же листе или на другом. Если мы хотим, чтобы сводные данные были на существующей странице, не забывайте указывать для них место. На странице появляется следующая форма:




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

Просто, быстро и качественно.

Важные нюансы:

• Первая строка заданного для сведения данных диапазона должна быть заполнена.
• В базовой табличке каждый столбец должен иметь свой заголовок – проще настроить сводный отчет.
• В Excel в качестве источника информации можно использовать таблицы Access, SQL Server и др.



Как сделать сводную таблицу из нескольких таблиц

Часто требуется создавать сводные отчеты из нескольких таблиц. Есть пара табличек с информацией. Нужно объединить их в одну общую. Для науки придумаем остатки на складах в двух магазинах.

Порядок создания сводной таблицы из нескольких листов такой же.

Создадим отчет с помощью мастера сводных таблиц:

1. Вызываем меню «Мастер сводных таблиц и диаграмм». Для этого щелкаем кнопку настройки панели быстрого доступа и нажимаем «Другие команды». Здесь на вкладке «Настройка» находим «Мастер сводных таблиц». Добавляем инструмент в панель быстрого доступа. После добавления:





2. Ставим курсор на первую табличку и нажимаем инструмент «Мастера». В открывшемся окне отмечаем, что создать таблицу хотим в «нескольких диапазонах консолидации». То есть нам нужно объединить несколько мест с информацией. Вид отчета – «сводная таблица». «Далее».



3. Следующий этап – «создать поля». «Далее».



4. Прописываем диапазон данных, по которым будем формировать сводный отчет. Выделяем первый диапазон вместе с шапкой – «добавить». Второй диапазон вместе с названием столбцов – снова «добавить».



5. Теперь в списке выбираем первый диапазон. Ставим птичку у единицы. Это первое поле сводного отчета. Даем ему имя – «Магазин 1». Выделяем второй диапазон данных – ставим птичку у цифры «2». Название поля – «Магазин 2». Нажимаем «Далее».



6. Выбираем, где расположить сводную таблицу. На существующем листе или новом. Лучше выбрать новый лист, чтобы не было наложений и смещений. У нас получилось так:

Как видите всего в несколько кликов можно создавать сложные отчеты из нескольких листов или таблиц разного объема информации.

Как работать со сводными таблицами в Excel

Начнем с простейшего: добавления и удаления столбцов. Для примера рассмотрим сводную табличку продаж по разным отделам (см. выше).

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

Добавим в сводную таблицу еще одно поле для отчета. Для этого установим галочку напротив «Даты» (или напротив «Товара»). Отчет сразу меняется – появляется динамика продаж по дням в каждом отделе.

Сгруппируем данные в отчете по месяцам. Для этого щелкаем правой кнопкой мыши по полю «Дата». Нажимаем «Группировать». Выбираем «по месяцам». Получается сводная таблица такого вида:

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

А вот что получится, если мы уберем «дату» и добавим «отдел»:

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

Чтобы название строки сделать названием столбца, выбираем это название, щелкаем по всплывающему меню. Нажимаем «переместить в название столбцов». Таким способом мы переместили дату в столбцы.

Поле «Отдел» мы проставили перед наименованиями товаров. Воспользовавшись разделом меню «переместить в начало».

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

В открывшемся меню выбираем поле с данными, которые необходимо показать.

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

Проверка правильности выставленных коммунальных счетов

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

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

Для примера мы сделали сводную табличку тарифов для Москвы:

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

Первый столбец = первому столбцу из сводной таблицы. Второй – формула для расчета вида:

= тариф * количество человек / показания счетчика / площадь

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

Наши формулы ссылаются на лист, где расположена сводная таблица с тарифами.

Скачать все примеры сводной таблицы

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

---

В следующем пошаговом примере показано, как создать сводную таблицу из нескольких листов в Excel.

Шаг 1: введите данные

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

1 неделя:

Неделя 2:

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

Шаг 2. Объедините данные в один лист

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

Для этого мы можем использовать следующую формулу FILTER :

=FILTER(week2!A2:C11, week2!A2:A11<>"")

Мы можем ввести эту формулу в ячейку A12 листа week1 :

Эта формула указывает Excel вернуть все строки из листа week2 , где значение в диапазоне A2: A11 этого листа не является пустым.

Все строки из листов неделя1 и неделя2 теперь объединены в один лист.

Шаг 3: Создайте сводную таблицу

Чтобы создать сводную таблицу, щелкните вкладку « Вставка », затем щелкните « Сводная таблица» в группе « Таблицы ».

В появившемся новом окне введите следующую информацию и нажмите OK :

На панели « Поля сводной таблицы », которая появляется в правой части экрана, перетащите « Магазин » в поле «Строки», перетащите « Продукт » в поле «Столбцы» и перетащите « Продажи » в поле «Значения».

Автоматически будет создана следующая сводная таблица:

Окончательная сводная таблица включает данные как из листов неделя 1, так и за неделю 2.

Дополнительные ресурсы

В следующих руководствах объясняется, как выполнять другие распространенные операции в Excel:

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