Шаг 1: Подготовка данных

Убедитесь, что заголовки столбцов на всех листах, которые вы хотите объединить, идентичны.

Шаг 2: Создание запроса

Откройте новый пустой лист или книгу. Перейдите на вкладку Данные -> Получить данные -> Из файла -> Из книги Excel.

Шаг 3: Выбор листов

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

Шаг 4: Объединение запросов

В редакторе Power Query перейдите на вкладку Главная -> Объединить -> Добавить запросы -> Добавить запросы как новые.

Шаг 5: Загрузка данных

После объединения, нажмите Закрыть и загрузить -> Закрыть и загрузить в... и выберите, куда поместить результат (например, в новую таблицу на существующем листе).

Шаг 1: Подготовка

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

Шаг 2: Запуск консолидации

Перейдите на вкладку Данные -> Консолидация.

Шаг 3: Настройка

В диалоговом окне выберите функцию (например, ‘Сумма’). Добавьте каждый диапазон данных с разных листов, нажимая Добавить.

Шаг 4: Параметры

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

Шаг 5: Результат

Нажмите ОК.

Пример 1: Объединение текста/чисел из одной ячейки на разных листах

На новом листе в ячейке

A1

введите

='Лист1'!A1

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

=ТЕКСТСОЕД(;'Лист1'!A1;'Лист2'!A1)

.

Пример 2: Суммирование данных с разных листов

Для суммирования ячейки

A1

со всех листов в диапазоне от ‘Лист1’ до ‘ЛистN’:

=СУММ(Лист1:ЛистN!A1)

.

Пример 3: Поиск данных (VLOOKUP/XLOOKUP/ИНДЕКС+ПОИСКПОЗ)

Если вам нужно найти данные на разных листах по определенному критерию, можно использовать связку формул. Например, для поиска значения в ‘Лист2’ по значению из ‘Лист1’:

=ЕСЛИОШИБКА(ВПР(A2;'Лист2'!A:B;2;ЛОЖЬ);'Не найдено')

или более современный

=ПРОСМОТРX(A2;'Лист2'!A:A;'Лист2'!B:B;'Не найдено')

. Если вы сталкиваетесь с проблемами при работе с текстовыми функциями, такими как ДЛСТР, убедитесь, что форматы данных соответствуют ожидаемым.

Шаг 1: Открытие редактора VBA

Нажмите Alt + F11.

Шаг 2: Вставка модуля

В окне ‘Проект VBA’ выберите вашу книгу, затем Вставка -> Модуль.

Шаг 3: Код макроса

Вставьте следующий код:

Sub ОбъединитьЛисты()\n  Dim ws As Worksheet\n  Dim wsDest As Worksheet\n  Dim LastRow As Long\n  Dim StartRow As Long\n\n  ' Создаем новый лист для объединенных данных, если его нет\n  On Error Resume Next\n  Set wsDest = ThisWorkbook.Sheets("ОбъединенныеДанные")\n  On Error GoTo 0\n\n  If wsDest Is Nothing Then\n    Set wsDest = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))\n    wsDest.Name = "ОбъединенныеДанные"\n  Else\n    ' Очищаем существующий лист перед добавлением новых данных\n    wsDest.Cells.ClearContents\n  End If\n\n  StartRow = 1 ' Строка, с которой начинаются данные (1, если есть заголовки)\n\n  ' Копируем заголовки с первого листа (предполагаем, что они одинаковые)\n  ThisWorkbook.Sheets(1).Rows(StartRow).Copy Destination:=wsDest.Rows(1)\n  LastRow = 1 ' Первая свободная строка на листе назначения\n\n  ' Проходим по всем листам в книге\n  For Each ws In ThisWorkbook.Worksheets\n    ' Пропускаем лист с объединенными данными и, возможно, другие служебные листы\n    If ws.Name <> wsDest.Name Then\n      ' Определяем последнюю строку с данными на текущем листе\n      Dim CurrentSheetLastRow As Long\n      CurrentSheetLastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row\n\n      If CurrentSheetLastRow >= StartRow Then ' Проверяем, есть ли данные для копирования\n        ' Копируем данные, начиная со StartRow + 1 (если StartRow = 1, то со 2-й строки)\n        ' Если StartRow = 0 (нет заголовков), то копируем с 1-й строки\n        ws.Range(ws.Cells(StartRow + 1, 1), ws.Cells(CurrentSheetLastRow, ws.UsedRange.Columns.Count)).Copy _\n          Destination:=wsDest.Cells(LastRow + 1, 1)\n        LastRow = wsDest.Cells(wsDest.Rows.Count, 1).End(xlUp).Row ' Обновляем последнюю строку на листе назначения\n      End If\n    End If\n  Next ws\n\n  MsgBox "Данные успешно объединены на листе 'ОбъединенныеДанные'!", vbInformation\nEnd Sub

Шаг 4: Запуск макроса

Закройте редактор VBA. На вкладке Разработчик (если нет, включите через Файл -> Параметры -> Настроить ленту) -> Макросы. Выберите

ОбъединитьЛисты

и нажмите Выполнить.