VBA Excel. Отбор неповторяющихся значений

Отбор неповторяющихся значений из ячеек заданного диапазона с помощью кода VBA Excel. Пример отбора: исходные значения – 1, 2, 1, 3; результат – 2, 3.

Условие задачи

В диапазоне «A1:A30» содержатся значения, среди которых есть повторяющиеся. Необходимо отобрать из ячеек указанного диапазона неповторяющиеся значения и записать их в первые ячейки столбца «B». Неповторяющиеся значения – это те значения, которые содержатся в заданном диапазоне в единственном экземпляре.

Решение задачи

Будем решать задачу в два этапа:

  1. Проведем отбор уникальных значений из указанного диапазона с помощью объекта Collection.
  2. Проверим каждое уникальное значение из коллекции с помощью функции рабочего листа CountIf на количество вхождений в заданный диапазон и, если функция CountIf возвратит значение 1, запишем проверяемое значение в очередную ячейку столбца «B».

Код VBA Excel

Отбор неповторяющихся значений из ячеек указанного диапазона и запись их во второй столбец:


Содержание рубрики VBA Excel по тематическим разделам со ссылками на все статьи.

Добавить комментарий

Ваш комментарий будет опубликован после прохождения обязательной модерации. Исходящие ссылки не допускаются. Время модерации составит от нескольких минут до нескольких часов в зависимости от времени суток и занятости модератора.