Филтрирайте списъците си в 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.
