Фільтруйте списки Excel за допомогою макросу таким чином, щоб кілька записів з’являлися лише один раз у новому списку цілей і таким чином очищали ваші дані.
Багато списків містять повторювані записи. Іноді важливо відфільтрувати ці записи зі списку. Наприклад, ви можете використовувати список продажів, щоб створити список, у якому кожен клієнт з’являється лише один раз - це може бути важливим, наприклад, для аналізу ринку.
Таблиця з наведеного нижче малюнка показує невеликий список Excel з номерами у стовпці B.
Ви хочете створити новий список із цього списку, в якому числа більше не відображатимуться двічі. Число 21, яке можна знайти у комірках B3, B5 та B14 у початковому списку, з’являтиметься лише раз у новому списку.
Є кілька способів зробити це за допомогою Excel. Якщо ви хочете використовувати макрос, ви можете використовувати такі команди VBA:
Додатковий список без дублікатів ()
Джерело затемнення як діапазон
Затемнити ціль як діапазон
Встановити джерело = Діапазон ("b1")
Встановити ціль = Діапазон ("d1")
Source.EntireColumn.AdvancedFilter Дія: = xlFilterCopy, _
CriteriaRange: = Source.EntireColumn, CopyToRange: = Target, Unique: = True
End Sub
Після запуску макросу Excel фільтрує таблицю та відображає нову таблицю з комірки D1. Наступний малюнок показує результат:
Ви можете побачити, що кожне значення відображається лише один раз у списку результатів.
Використовуйте змінну SOURCE, щоб вказати стовпець вашої таблиці, в якій знаходяться дані, з яких потрібно створити новий список без повторюваних записів. Макрос завжди використовує весь стовпець, що належить до посилання, яке ви визначаєте за допомогою SOURCE. Використовуйте змінну, щоб визначити будь -яку адресу комірки у відповідному стовпці.
За допомогою змінної TARGET ви визначаєте, де Excel записує ваш список результатів. Новий список починається з позиції, яку ви вказуєте за допомогою цієї змінної.
Макрос працює з активним аркушем як для вихідної, так і для цільової області.
Щоб вставити макрос у таблицю, відкрийте відповідну книгу та натисніть комбінацію клавіш ALT F11 у всіх версіях Excel, щоб запустити редактор VBA. Викличте команду INSERT - MODULE і вставте команди VBA. Щоб запустити макрос з Excel, використовуйте комбінацію клавіш ALT F8.
