Кнопка в Excel, которая собирает данные из всех листов в одну таблицу. Показываю макрос VBA, который автоматически собирает данные из разных листов Excel в один отчет. Подходит для отчетов, реестров и больших таблиц.
Работа с несколькими листами в Excel часто превращается в одинаковый сценарий. Есть файл, где на каждой вкладке хранится часть данных. Например:
- Январь
Февраль
Март
Апрель
И нужно собрать всё это в одну итоговую таблицу. Большинство пользователей делает это вручную:
- копирует данные
вставляет
проверяет строки
снова копирует
снова вставляет
Если листов десять — это уже раздражает. Если листов двадцать — это становится настоящей рутиной. Но Excel умеет делать это одной кнопкой.
Когда такая автоматизация особенно полезна
Этот макрос удобно использовать в задачах, где данные разбиты по листам:
- ежемесячные отчёты
таблицы продаж по регионам
данные по отделам
журналы заявок
складские таблицы
Каждый лист хранит свою часть информации, а итог нужно получить в одной таблице.
Что делает макрос
После запуска макрос:
- проходит по всем листам книги
берёт данные из таблиц
копирует их
добавляет в общий лист
В результате появляется единая таблица со всеми данными.
VBA-макрос для объединения листов
Sub СобратьДанные()
Dim ws As Worksheet
Dim ИтоговыйЛист As Worksheet
Dim ПоследняяСтрока As Long
Dim СтрокаИтога As Long
Set ИтоговыйЛист = Worksheets("Итог")
ИтоговыйЛист.Cells.Clear
СтрокаИтога = 1
For Each ws In Worksheets
If ws.Name <> "Итог" Then
ПоследняяСтрока = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
ws.Range("A1:D" & ПоследняяСтрока).Copy
ИтоговыйЛист.Cells(СтрокаИтога, 1).PasteSpecial xlPasteValues
СтрокаИтога = ИтоговыйЛист.Cells(ИтоговыйЛист.Rows.Count, "A").End(xlUp).Row + 1
End If
Next ws
Application.CutCopyMode = False
MsgBox "Данные успешно объединены"
End Sub
Как работает этот код
Макрос последовательно проходит по каждому листу книги. Если лист не называется «Итог», он:
- находит последнюю строку
копирует таблицу
вставляет её в общий лист
Каждый следующий лист добавляется ниже предыдущего, поэтому формируется единая таблица.
Как запустить макрос
- Alt + F11
- Insert → Module
- вставьте код
- вернитесь в Excel
- запустите макрос
Можно также добавить кнопку на лист, чтобы запускать объединение одним нажатием.
Где можно использовать этот приём
Этот макрос часто применяют в рабочих файлах:
- отчёты по месяцам
сбор данных по филиалам
объединение таблиц менеджеров
агрегация данных из разных вкладок
Когда файл растёт, такая автоматизация экономит десятки минут. А иногда и часы.