Найти в Дзене
Просто Excel

Я заменил 3 часа ручной работы на одну кнопку в Excel. Вот как

Знакома ситуация: нужно собрать, обработать и подготовить отчёт. Данные из нескольких источников, вручную сводишь их в таблицу, потом фильтруешь, проверяешь формулы, копируешь нужное в шаблон. И так каждый раз. Уходит 2–3 часа, а то и больше. Я так жил — пока не автоматизировал всё одной кнопкой. Вкладка "Данные" → "Получить данные" → "Из файла" → указываем путь к нужным Excel-файлам. Power Query позволяет: Настроили — и закрыли редактор. Excel сам сохраняет все шаги как сценарий. В следующий раз просто нажимаешь Обновить — и всё повторяется. Если хочется сделать всё совсем красиво: Пример кода: Sub ОбновитьОтчет()
ActiveWorkbook.RefreshAll
Sheets("Отчёт").Range("A1").Select
End Sub Теперь отчёт собирается за 10 секунд, а не за 3 часа. Ошибок меньше, рутины — ноль. Если работаешь с Excel каждый день — это инвестиция, которая окупается сразу. Хочешь пошаговую инструкцию для своего случая? Напиши в комменты — сделаю шаблон.
Оглавление

Знакома ситуация: нужно собрать, обработать и подготовить отчёт. Данные из нескольких источников, вручную сводишь их в таблицу, потом фильтруешь, проверяешь формулы, копируешь нужное в шаблон. И так каждый раз. Уходит 2–3 часа, а то и больше.

Я так жил — пока не автоматизировал всё одной кнопкой.

Что раньше приходилось делать вручную

  • Скопировать данные из двух файлов Excel с разными форматами
  • Объединить таблицы
  • Удалить дубликаты
  • Отфильтровать по дате и нужным отделам
  • Подсчитать суммы и средние значения
  • Вставить результаты в шаблон отчёта

Как это работает одной кнопкой

1. Power Query — сердце автоматизации

Вкладка "Данные" → "Получить данные" → "Из файла" → указываем путь к нужным Excel-файлам.

Power Query позволяет:

  • Подгружать данные с разных листов и книг
  • Приводить названия столбцов к одному формату
  • Объединять источники (Append Queries)
  • Удалять дубликаты
  • Фильтровать по дате (например, за текущий месяц)
  • Группировать и считать суммы или средние значения

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

2. Макрос на кнопку (по желанию)

Если хочется сделать всё совсем красиво:

  • Создай кнопку на листе: "Вставка" → "Форма" → Кнопка
  • Назначь макрос, который запускает обновление Power Query и копирует результат в нужное место

Пример кода:

Sub ОбновитьОтчет()
ActiveWorkbook.RefreshAll
Sheets("Отчёт").Range("A1").Select
End Sub

Результат

Теперь отчёт собирается за 10 секунд, а не за 3 часа. Ошибок меньше, рутины — ноль.

Если работаешь с Excel каждый день — это инвестиция, которая окупается сразу.

Хочешь пошаговую инструкцию для своего случая? Напиши в комменты — сделаю шаблон.