Ребята, всем привет! 👋
Продолжаем изучать Excel. В одном из уроков мы уже рассматривали как создать список уникальных неповторяющихся (без дубликатов) значений.
В продолжение темы сегодня рассмотрим еще один способ позволяющий удалить повторяющиеся строки.
✍️ Если вы только начинаете осваивать VBA Excel мы уверены, каждый может найти для себя что-то новое!
✨ А прежде, чем мы начнем 📣 напомню, теперь у нас на канале есть удобный рубрикатор 👉 Быстрый поиск решения. Путеводитель по Excel, а все видео 📽 предыдущих уроков доступны и на YouTube.
📢 Скачать исходник с примером кода вы можете в конце статьи 🔽
Предположим, у вас есть набор данных содержащий повторяющиеся значения:
Наша задача удалить все повторяющиеся записи на основе столбца A.
Решить данную задачу вы можете легко используя короткий код VBA приведенный ниже 🔽 добавить его на панель быстрого доступа и тем самым выполнить удаление повторяющихся строк одним щелчком мыши.
Итак, рассмотрим решение пошагово.
⏩ ШАГ 1. Пишем код
Исходник с примером кода вы можете скачать в конце статьи
В условиях вашей задачи
- открыв редактор Visual Basic добавьте новый стандартный модуль(Module)
- скопируйте приведенный код и вставьте его в окно модуля:
Этот код использует встроенную команду VBA для удаления дубликатов в объектах списка. Он принимает выбранный диапазон, а также столбцы, на которых вы хотите основывать удаление дубликатов. Затем код удаляет все строки из диапазона, содержащие повторяющиеся значения.
🔔 В приведенном выше коде указан столбец 1 (в коде мы указали Columns:=Array(1)). Вы можете изменить его на любой другой в зависимости от условия вашей задачи.
Например, если вы хотите удалить дубликаты на основе более чем одного столбца, вы можете указать номера столбцов в последней строке кода.
Например, если вы хотите выполнить поиск на основе столбцов 1 и 2, ваша последняя строка будет:
Rng.RemoveDuplicates Columns:=Array(1,2), Header:=xlYes
Так же в коде указано Header:=xlYes, чтобы сообщить Excel, что первая строка нашего выбранного диапазона содержит заголовки столбцов.
📢 ВАЖНО! ПОМНИТЕ - Вы не можете отменить изменения, внесенные кодом VBA, поэтому мы рекомендуем вам сохранить резервную копию вашего набора данных перед запуском кода.
⏩ ШАГ 2. Добавить значок макроса его на панель быстрого доступа
Напомню, наша задача - выполнить удаление повторяющихся строк одним щелчком мыши.
Сам макрос мы уже написали, теперь нам следует его запустить.
Существует несколько способов запуска макроса в Microsoft Excel.
Безусловно мы можем задать сочетание клавиш или вывести кнопку на лист для запуска макроса, но есть еще один способ - это запуск макроса иконкой.
Подробно о том, как добавить иконку для запуска макроса мы рассматривали в предыдущем уроке:
⏩ ШАГ 3. Запуск макроса
Теперь, все что нам нужно это:
- выбрать диапазон ячеек, с которыми вы хотите работать (в рассматриваемом примере это А2:С9):
- жмем значок на панели быстрого доступа:
✔️ Результат
Теперь все строки, содержащие дубликаты удалены:
А на этом сегодня все. 👏 Теперь вы знаете как удалить повторяющиеся строки. Я надеюсь, что вы нашли этот урок полезным.
Продолжение следует...
Подписывайтесь на канал, чтобы не пропустить новые уроки и полезные фишки Excel. Сэкономьте сумасшедшее количество времени, используя VBA. Следите за нашими новостями и вы узнаете больше о VBA и Excel в частности.
Понравился урок!? не забываем оставлять комментарий 📝Нам очень важна Ваша обратная связь 💝
И конечно же, за лайк 👍 благодарочка 💖 и респект 🤝 каждому!