Заметки — Игорь К.: заметки с тегом эксель

Как я помог подготовить диплом по аналитике данных: от разрознённых файлов до законченного проекта

Thu, 13 Nov 2025 13:01:54 +0300

Ко мне обратился студент, который проходил обучение по направлению «Бизнес-аналитика и визуализация данных» в рамках профессиональной программы повышения квалификации.
Студент уже работал по специальности — аналитиком в коммерческой компании, где регулярно сталкивался с большими наборами данных, Excel-моделями и необходимостью строить отчёты для руководства.

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

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

Исходная ситуация

Аудит исходных материалов показал, что студент располагает: разрозненными Excel-расчётами, несколькими неполными PBIX-файлами, отсутствующей моделью данных, незавершённым текстом диплома, рабочей гипотезой без аналитической структуры.

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

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

Какие задачи нужно было решить

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

Построить аналитическую модель. Создание Power BI-отчёта. Построение полноценной схемы связей. Разработка DAX-мер и показателей. Формирование дашбордов для итоговой презентации.

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

Подготовить материал к защите Презентация. Экспорт визуализаций. Структурированная итоговая папка проекта.

Хронология проекта

Первое обращение — 15 сентября 2025. Студент прислал архив с исходниками и запросил оценку.
Аудит файлов — 15—17 сентября (2 дня). Изучение Excel, .pbix, логики расчётов и структуры данных.
Подготовка данных — 18—28 сентября (11 дней). Чистка, нормализация, объединение таблиц, создание корректных датасетов.
Разработка Power BI-модели — 29 сентября—7 октября (9 дней). Построение схемы данных, настройка связей, создание мер DAX, визуализации, итоговый дашборд.
Подготовка текстовой части — 8—16 октября (9 дней). Оформление трёх глав, описание методики, аналитическая часть, вставка графиков, выводы.
Подготовка к защите — 17—20 октября (4 дня). Презентация, экспорт графиков, финальная упаковка проекта.

Итоговая длительность: 36 дней.

Исходные данные находятся на Яндекс диске, все таблицы описаны с проблемами которые встречаются

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

Отдельно прописано как вычисляются меры и что они означают

Модель данных PowerBi

Дашборды с объяснением

Что было сделано

Подготовка Excel-моделей. Объединение разрозненных таблиц. Создание единой структуры данных. Нормализация и валидация. Проверка расчётов и формул.

Создание Power BI-отчёта. Разработка схемы данных, настройка связей (one-to-many, many-to-one), создание мер для KPI и метрик, визуализации в нескольких итерациях (до финальной версии 06v14), подготовка интерактивного дашборда.

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

Подготовка материалов для защиты. Финальный документ, презентация, экспорт диаграмм Power BI и систематизация всех файлов.

Проект включал:

Финальный `.pbix` (версия 06v14) — готовый Power BI-отчёт с полностью настроенной моделью данных, мерами DAX, визуализациями и финальным дашбордом, использовавшийся в дипломе и презентации.

Excel-файлы с расчётами — очищенные и нормализованные таблицы, включающие исходные данные, промежуточные расчёты, справочники, показатели и подготовленные датасеты, которые легли в основу Power BI-модели.

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

README с указанием структуры проекта — служебный файл, который фиксировал версии отчётов, расположение данных, описание изменений и структуру итоговой папки, чтобы проект можно было легко воспроизвести или проверить.

Как объединить разукомплектовочную ведомость и штрихкоды из 1С в единую систему Google Таблиц

Wed, 12 Nov 2025 19:11:34 +0300

Ко мне обратился мебельный магазин, который сотрудничает с Мебельной фабрикой «МИФ — Мебель Интерьер Форма».

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

Исходные файлы можно скачать прямо с сайта фабрики: https://mebelmif.ru/specifications

Ситуация

Фабрика регулярно передаёт партнёрам Excel-выгрузки из 1С.
Это две большие таблицы, не связанные между собой:

Разукомплектовочная ведомость — включает и изделия, и упаковки подряд, без чётких признаков, что к чему относится.
Штрихкоды — отдельный список, где указаны коды упаковок (штрих и QR), но названия часто отличаются от тех, что в ведомости.

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

Фрагмент разукомплектовочной ведомости — видно что все вперемешку и очень трудно отделить одно от другого

Фрагмент штрихкодов — нет деления но штрих-код и QR-код

Задача

Собрать полностью автоматическую систему, где Google Таблицы:

сами определяют, где изделие, где упаковка;
к каждой упаковке подтягивают её родительский товар;
извлекают штрихкод и QR-код даже при сложном формате строки;
объединяют всё в единую таблицу по артикулам и характеристикам;
позволяют добавлять новые выгрузки без переделки формул.

Реализация

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

Листы таблицы

Исходные данные (RawData) —Чистая выгрузка из 1С (разукомплектовочная ведомость). Сюда клиент просто вставляет новые данные.
Распознавание структуры (StructureMap) — Формулы ARRAYFORMULA + REGEXMATCH определяют, какие строки — изделия, какие — упаковки, и протягивают связи.
Штрихкоды (BarcodesRaw) — Таблица с кодами упаковок. Извлекаются штрихкоды (13 цифр) и QR (всё остальное, включая пробелы).
Штрихкоды обработанные (BarcodesReady) — Фильтрация и очистка: остаются только строки, где заполнены и название, и коды.
Комплектность (Completeness)— К упаковкам автоматически подставляются изделия, характеристики, размеры, вес и количество.
Выбор комплектности (Summary) — Финальный лист — объединённая таблица со всеми данными для анализа и выгрузки.

Схема связей между листами

[RawData]
    │
    ▼
[StructureMap] ─────────────┐
                            │
                     (по названию и характеристике)
                            │
          [BarcodesRaw] → [BarcodesReady]
                            │
                            ▼
                       [Completeness]
                            │
                            ▼
                       [Summary]

RawData → StructureMap — определение структуры и связей изделий с упаковками.
BarcodesRaw → BarcodesReady — извлечение и нормализация кодов.
StructureMap + BarcodesReady → Completeness — объединение упаковок и кодов.
Completeness → Summary — итоговая таблица с готовыми данными.

Технические решения

ARRAYFORMULA для автообработки без ручного протягивания.
REGEXMATCH и LOOKUP для логического связывания изделий и упаковок.
REGEXEXTRACT для разделения штрихкодов и QR, даже если они в одной ячейке.
XLOOKUP по двум полям (Пакет + Характеристика) для точного сопоставления.
Формулы работают динамически — достаточно просто вставить новые данные в RawData.

Фрагмент разделения комплекности на упаковку и изделие, делается в автоматическом режиме

Фрагмент готовых сштрихкодов, в автоматическом режиме штрихкод отделяется от QR-кода

Результат

Теперь достаточно загрузить в таблицу два файла с сайта МИФ —
и на листе «Выбор комплектности» (Summary) автоматически появляется итоговая сводная таблица:

изделия, их упаковки, размеры и количество;
коды (штрих и QR) из актуальной выгрузки;
всё обновляется без участия разработчика.

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

Таблица «Учет рабочего времени»

Thu, 18 Jul 2024 15:22:35 +0300

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

Вариант решения:
Сделать гугл форму, в ней два поля:

первое поле: Фамилия
второе поле: Пришел или ушел

Тогда сотрудник перед началом работы заполняет форму, что он пришел, а после окончания работы что ушел.

Остальные подсчеты выполняются автоматически

Результаты заполнения формы

На основании заполнения мы можем рассчитать недели и все остальные расчеты

После этого можно получить итоговую таблицу

Автоматический расчет стоимости хранения в фулфилменте

Thu, 18 Jul 2024 15:09:19 +0300

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

Задача Освободить время менеджера на подсчет подсчет платных единиц хранения.

Для решение задачи Придумать и реализовать метод подсчета стоимости хранения, используя допущения что первые 7 дней хранение продукции бесплатно

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

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

Таблица прихода. Нас интересуют поля «Дата», «Баркод», «Количество»

Таблица отгрузки. Нас интересуют поля «Дата отгрузки», «Баркод», «Количество»

Объединяем данные в один лист, для автоматического объединения можно использовать query или filter

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

Делаем вспомогательный лист по расчетам оплаты

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

Делаем расчеты стоимости хранения

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

Если вам нужна помощь с гугл таблицами — @fossko.

QR коды в гугл таблицах. Год 2024

Wed, 08 May 2024 11:25:53 +0300

В мае 2024 года Гугл перестал поддерживать свой сервис по генtрации qr-кодов chart.googleapis.com

Раньше чтобы сгенерировать QR код из текста ячейки A1 нужно было написать следующую формулу

=image("https://chart.googleapis.com/chart?chs=200×200&cht=qr&chl="&A1)

Сейчас эта формула не работает

Замена сервис quickchart.io — бесплатный сервис

=IMAGE("https://quickchart.io/qr?text=" & A1)

Генерация qr-кода моего блога, адрес блога записан в ячейку A1

С помощью API можно генерировать qr-коды, графики, диаграммы
Описание API quickchart.io

Онлайн генератор qr кодов https://quickchart.io/qr-code-api/

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

Sun, 17 Mar 2024 12:56:31 +0300

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

Можно сделать через QUERY
ID_table_X — айдишник гугл таблицы

=QUERY({
IMPORTRANGE("https://docs.google.com/spreadsheets/d/ID_table_1";"База!A:W");
IMPORTRANGE("https://docs.google.com/spreadsheets/d/ID_table_2";"База!A:W");
IMPORTRANGE("https://docs.google.com/spreadsheets/d/ID_table_3";"База!A:W");
IMPORTRANGE("https://docs.google.com/spreadsheets/d/ID_table_4";"База!A:W")
},"select * where Col1 is not null")

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

=FILTER({
IMPORTRANGE("https://docs.google.com/spreadsheets/d/ID_table_1";"База!A:W");
IMPORTRANGE("https://docs.google.com/spreadsheets/d/ID_table_2";"База!A:W");
IMPORTRANGE("https://docs.google.com/spreadsheets/d/ID_table_3";"База!A:W");
IMPORTRANGE("https://docs.google.com/spreadsheets/d/ID_table_4";"База!A:W")
};
{
IMPORTRANGE("https://docs.google.com/spreadsheets/d/ID_table_1";"База!A:A");
IMPORTRANGE("https://docs.google.com/spreadsheets/d/ID_table_2";"База!A:A");
IMPORTRANGE("https://docs.google.com/spreadsheets/d/ID_table_3";"База!A:A");
IMPORTRANGE("https://docs.google.com/spreadsheets/d/ID_table_4";"База!A:A")
}<>"")

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

…
{
IMPORTRANGE("https://docs.google.com/spreadsheets/d/ID_table_1";"База!A:W");
IMPORTRANGE("https://docs.google.com/spreadsheets/d/ID_table_2";"База!A2:W");
IMPORTRANGE("https://docs.google.com/spreadsheets/d/ID_table_3";"База!A2:W");
…

Используя QUERY, можно импортировать несколько столбцов, в разных порядках, используя номер столбцов Col4, Col5, Col1, Col15

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

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

Sun, 04 Feb 2024 16:33:21 +0300

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

Листы разделены по паркам: парк 1, 2, 3 и 4. Профи ру: помощь с выполнением тестового задания «помощник финансового менеджера»

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

Алгоритм объединения

Добавляем столбец имя листа на листы которые объединяем

=ARRAYFORMULA(if(A2:A<>"";"Парк1";""))

На новом листе вставляем оглавление, или просто копируем оглавление

=QUERY('Парк 1'!A1:U1;"SELECT *")

Данные можно вставить через Query или Filter: иногда filter работает быстрее query

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

={query('Парк 1'!A2:U;"SELECT *");query('Парк 2'!A2:U;"SELECT *");query('Парк 3'!A2:U;"SELECT *");query('Парк 4'!A2:U;"SELECT *")}

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

={filter('Парк 1'!A2:U;'Парк 1'!A2:A<>"");filter('Парк 2'!A2:U;'Парк 2'!A2:A<>"");filter('Парк 3'!A2:U;'Парк 3'!A2:A<>"");filter('Парк 4'!A2:U;'Парк 4'!A2:A<>"")}

Курс «Датасаенс на коленке» — о работе в Google-таблицах

Thu, 25 Jan 2024 15:28:12 +0300

В 2022 году проходил курс Алексея Куличевского «Датасаенс на коленке» — о работе в Google-таблицах: учимся считать метрики, делать сквозную аналитику и когортный анализ, составлять интерактивные дешборды, моделировать юнит-экономику.

После прохождения курса, я написал Алексею:

Это было очень интересно и полезно.
В блоке про когорты, понимаешь что от того как посчитаешь зависит результат. Причём отклонение в небольшую сторону порой дает противоположный результат.
Блок про дешборды один из самых интересных, после него понимаешь как устроены связи в таблицах, что из чего можно получить.
Самый главный навык, который тренируешь на курсе — умение гуглить. Разбиваешь на маленькие части и гуглишь.

Алексей выложил видеокурс в свободный доступ на ютубе — 29 уроков.

Бесплатный курс о работе в Google-таблицах — Ютуб плейлист

Содержание курса

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

Формат: год — номер недели

Thu, 21 Dec 2023 09:46:21 +0300

Номер недели можно считать не только с какого дня он начинается. Но и на какую неделю приходится первое января.

В Европе принят стандарт:

Система 2. Первой неделей года считается та, в которую попадает первый четверг в году. Ее порядковым номером будет 1. В основе этой системы лежит международный стандарт представления дат и времени (ISO 8601).

И тут начинается интересное: к какому году относить 1 января, когда нудно сделать формат: год-неделя.

Это видно в 23 году очень хорошо.

В гугл таблицах:

=ARRAYFORMULA(
  IF(
    (MONTH(A2:A) = 1) * (WEEKNUM(A2:A; 21) > 50);
    TEXT(YEAR(A2:A) - 1; "0000") & "-" & TEXT(WEEKNUM(A2:A; 21); "00");
    TEXT(YEAR(A2:A); "0000") & "-" & TEXT(WEEKNUM(A2:A; 21); "00")
  )
)

В PowerBI, DAX:

YEAR-WEEKNUM-2 =
VAR CurrentYear = YEAR('calendar'[date])
VAR IsSpecialDate =
    MONTH('calendar'[date]) = 1 &&
    WEEKNUM('calendar'[date], 21) > 50
RETURN
    FORMAT(
        IF(IsSpecialDate, CurrentYear - 1, CurrentYear),
        "0000"
    ) & "-" & FORMAT(WEEKNUM('calendar'[date], 21), "00")

Поиск пересечения столбца и строки через XLOOKUP

Tue, 19 Dec 2023 20:34:41 +0300

У нас есть большая двухмерная таблица расстояний между городами, раньше такие публиковались в картах.
Требуется составить формулу для поиска расстояния между городами, то есть пересечения столбца и стоки

Между Барнаулом и Владивостоком — 5945 км

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

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

Итоговая функция

=IFNA(XLOOKUP(C2;data!$A:$A;XLOOKUP(B2;data!$1:$1;data!$A$1:$GO));"")

Получившаяся таблица: Расстояние между городами России

Таблица расчета цены фулфилмента

Fri, 15 Dec 2023 13:21:47 +0300

Переделал таблицу для фулфилмента которой пользуются клиенты и сотрудники организации.

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

Таблица — это дашборд с заказами и финансами

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

Этапы работы:

Созвон для понимания задачи,
Работа над таблицей,
Созвод для презентации работы,
Получение замечаний,
Сдача работы.

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

Каждый заказ — отдельный лист в таблице

В товарах используют изображение, чтобы корректно работал vlookup, напоминаем, что для вставки изображения в ячейку: курсор ставим на ячейку, Меню — вставка — Изображение — Вставить изображение в ячейку

Лист «Товары» — база данных товаров данного клиента. Здесь много оранжевых ячеек, значит заполняются они клиентом вручную. Материал упаковки выбирается из рубрикатора, в который можно добавлять новые значения.

Лист «справочник» позволяет поменять основные значения, которые влияют на стоимость

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

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

Если поставить галочку «считаем приемку наборами» итоговая стоимость поменяется из-за изменения подсчета

В первой строке выводится основная информация о заказе: вес, объем, допы, стоимость предварительная и фактическая

Если вам нужна помощь с гугл таблицами — @fossko.

Макрос автоматического сохранения csv из экселя

Wed, 06 Dec 2023 21:26:06 +0300

Есть файл состоящий из одного листа ID, нужно автоматически разделить количество строк по 10 и сохранить каждый диапазон в csv файл

Cтолбец с ID, которые нужно сохранить в отдельные файлы

Делаем через макросы Разработчик — Visual basic.

Если вкладки «Разработчик» нет, ее нужно включить через настройки: Параметры — Настроить ленту — Разработчик.

Sub SplitAndSave()
    Dim SourceSheet As Worksheet
    Dim NewSheet As Worksheet
    Dim LastRow As Long
    Dim Group As Long
    Dim CurrentRow As Long
    Dim Path As String
    Dim DateTimeStr As String

    ' Укажите имя вашего исходного листа
    Set SourceSheet = ThisWorkbook.Sheets("Лист1")

    ' Укажите путь для сохранения файлов
    Path = "E:\work\csv\"

    ' Определите последнюю строку в столбце A
    LastRow = SourceSheet.Cells(SourceSheet.Rows.Count, "A").End(xlUp).Row

    ' Инциализируем переменные
    CurrentRow = 2 ' Начинаем с 2, так как, вероятно, у вас есть заголовок
    Group = 1

    Do While CurrentRow <= LastRow
        ' Создаем новый лист для текущей группы
        Set NewSheet = Sheets.Add(After:=Sheets(Sheets.Count))
        NewSheet.Name = "Group" & Group

      ' Копируем данные текущей группы на новый лист
        SourceSheet.Rows(CurrentRow & ":" & IIf(CurrentRow + 9 <= LastRow, CurrentRow + 9, LastRow)).Copy Destination:=NewSheet.Rows(1)
        
        ' Создаем переменную с текущей датой в формате год-месяц-день-часы-минуты
        DateTimeStr = Format(Now, "yyyy-mm-dd-hh-nn")
        
    ' Сохраняем новый лист в виде CSV файла с меткой времени
        NewSheet.SaveAs Path & DateTimeStr & "_" & "Group" & Group & ".csv", xlCSV

     ' Удаляем новый лист, если необходимо
        Application.DisplayAlerts = False
        NewSheet.Delete
        Application.DisplayAlerts = True

        ' Переходим к следующей группе
        CurrentRow = CurrentRow + 10
        Group = Group + 1
    Loop
End Sub

В папку csv загрузились разделенные файлы

Добавим разбиение с сохранением заголовка из ячейки A1.
Разбивать будем по RowsPerGroup равном 1400 значений

Sub SplitAndSaveWithHeaderVariable()
    Dim SourceSheet As Worksheet
    Dim NewSheet As Worksheet
    Dim LastRow As Long
    Dim Group As Long
    Dim CurrentRow As Long
    Dim Path As String
    Dim DateTimeStr As String
    Dim HeaderVariable As String
    Dim RowsPerGroup As Long

    ' Укажите имя вашего исходного листа
    Set SourceSheet = ThisWorkbook.Sheets("Лист1")

    ' Укажите путь для сохранения файлов
    Path = "E:\work\csv\"

   ' Определите последнюю строку в столбце A
    LastRow = SourceSheet.Cells(SourceSheet.Rows.Count, "A").End(xlUp).Row

    ' Инициализируйте переменные
    CurrentRow = 2 ' Начинаем с 2, предполагая, что у вас есть заголовок
    Group = 1

    ' Установите значение переменной заголовка из ячейки A1
    HeaderVariable = SourceSheet.Cells(1, 1).Value

    ' Установите количество строк в группе
    RowsPerGroup = 1400

    Do While CurrentRow <= LastRow
       ' Создаем новый лист для текущей группы
        Set NewSheet = Sheets.Add(After:=Sheets(Sheets.Count))
        NewSheet.Name = "Group" & Group

       ' Вставляем переменную заголовка в первую ячейку нового листа
        NewSheet.Cells(1, 1).Value = HeaderVariable

        ' Копируем данные текущей группы на новый лист
        SourceSheet.Rows(CurrentRow & ":" & IIf(CurrentRow + RowsPerGroup - 1 <= LastRow, CurrentRow + RowsPerGroup - 1, LastRow)).Copy Destination:=NewSheet.Rows(2)

       ' Получаем текущую дату и время в указанном формате
        DateTimeStr = Format(Now, "yyyy-mm-dd-hh-nn")

       ' Сохраняем новый лист в виде файла CSV с датой и временем в имени файла
        NewSheet.SaveAs Path & DateTimeStr & "_" & "Group" & Group & ".csv", xlCSV

        ' Удаляем новый лист, если необходимо
        Application.DisplayAlerts = False
        NewSheet.Delete
        Application.DisplayAlerts = True

       ' Переходим к следующей группе
        CurrentRow = CurrentRow + RowsPerGroup
        Group = Group + 1
    Loop
End Sub