В Office 365 я бы использовал преимущества сводных возможностей в Power Query, а не пытался писать код VBA. Если вы не знакомы с мощным запросом, он создаст множество повторно используемых преобразований, очень похожих на макрос. Но он очень настроен на манипулирование наборами данных и делает этот вид работы более эффективным, чем макрос-скрипты.
Единственное, что не понравится, если у вас более одной строки с одинаковыми идентификатором, типом и отделом. Он не будет выполнять агрегирование и просто сообщит об ошибке в этих строках.
Предполагая, что многие пользователи не очень хорошо знакомы с Power запросами, я сделал пошаговое руководство. Без обид, если вы уже привыкли к этому.
1) Преобразуйте область, в которой находятся ваши исходные данные, в таблицу данных, выбрав диапазон и нажав «Формат таблицы» в группе «Стили» на ленте «Домой».
[
2) Откройте таблицу в Power Query, выделив ячейку в таблице и перейдя на ленту данных, щелкнув «Из таблицы / диапазона» в группе «Получить и преобразовать данные».
[
3) Отдел фильтров. Я буду использовать 'Maint' для примеров. Нажмите на фильтр черного треугольника, как если бы вы использовали фильтры на обычных листах.
4) После того как мы выполнили фильтрацию, нам не нужен столбец отдела - он не будет в нашем конечном результате. Поэтому щелкните правой кнопкой мыши заголовок столбца и выберите «Удалить».
5) Теперь самое интересное. Сначала выберите столбец «Тип», нажав на заголовок столбца. Затем перейдите к ленте Transform. Найдите и нажмите кнопку «Сводный столбец» в группе кнопок «Любой столбец». Во всплывающем окне вы увидите фразу «Использовать имена в столбце« Тип »для создания новых столбцов». Если указан какой-либо другой столбец, отмените его, убедитесь, что у вас выделен Тип, и снова щелкните столбцы сводки. Установите для столбцов значений значение Скорость, а в разделе дополнительных параметров выберите «Не объединять»
и вы должны увидеть трансформацию!
Вернитесь на домашнюю вкладку, нажмите «Закрыть и загрузить», и результат будет добавлен в новый лист.
Таким образом, вы можете повторить этот процесс для каждого отдела и получить необходимые вам таблицы.
Когда вы вводите новые строки в ваши необработанные данные, все три зависимые таблицы будут обновляться новой информацией, когда вы нажимаете кнопку Обновить все на вкладке данных, когда вы открываете электронную таблицу, или вы можете выбрать обновление правой кнопкой мыши. контекстное меню на каждой таблице.