Отфильтруйте списки Excel с помощью макроса таким образом, чтобы несколько записей появлялись в новом целевом списке только один раз и, таким образом, очищали ваши данные.
Многие списки содержат повторяющиеся записи. Иногда важно отфильтровать эти записи из списка. Например, вы можете использовать список продаж для создания списка, в котором каждый покупатель появляется только один раз - это может быть важно, например, для анализа рынка.
В таблице на следующем рисунке показан небольшой список Excel с числами в столбце B.
Вы хотите создать новый список из этого списка, в котором числа больше не будут появляться дважды. Число 21, которое можно найти в ячейках B3, B5 и B14 в исходном списке, появится в новом списке только один раз.
Есть несколько способов сделать это с помощью Excel. Если вы хотите использовать макрос, вы можете использовать следующие команды VBA:
Подсписок без дубликатов ()
Источник тусклого света как диапазон
Тусклая цель как дальность
Установить источник = Диапазон ("b1")
Установить цель = Диапазон ("d1")
Source.EntireColumn.AdvancedFilter Действие: = xlFilterCopy, _
CriteriaRange: = Source.EntireColumn, CopyToRange: = Target, Unique: = True
Конец подписки
После запуска макроса Excel фильтрует таблицу и отображает новую таблицу из ячейки D1. На следующем рисунке показан результат:
Вы можете видеть, что каждое значение появляется в списке результатов только один раз.
Используйте переменную SOURCE, чтобы указать столбец вашей таблицы, в котором находятся данные, из которого вы хотите создать новый список без повторяющихся записей. Макрос всегда использует весь столбец, принадлежащий ссылке, которую вы определяете с помощью SOURCE. Используйте переменную, чтобы определить любой адрес ячейки в соответствующем столбце.
С помощью переменной TARGET вы определяете, куда Excel записывает ваш список результатов. Новый список начинается с позиции, указанной вами с помощью этой переменной.
Макрос работает с активным листом как для исходной, так и для целевой области.
Чтобы вставить макрос в таблицу, откройте соответствующую книгу и нажмите комбинацию клавиш ALT F11 во всех версиях Excel, чтобы запустить редактор VBA. Вызовите команду INSERT - MODULE и вставьте команды VBA. Чтобы запустить макрос из Excel, используйте комбинацию клавиш ALT F8.