Филтрирајте своје Екцел листе помоћу макронаредбе на такав начин да се више уноса појави само једном на новој циљној листи и тако очистите податке.
Многе листе садрже дупле уносе. Понекад је важно филтрирати ове уносе са листе. На пример, можете користити продајну листу за креирање листе у којој се сваки купац појављује само једном - то може бити важно за анализе тржишта, на пример.
Табела са следеће слике приказује малу Екцел листу са бројевима у колони Б.
Желите да креирате нову листу са ове листе у којој се бројеви више не појављују два пута. Број 21, који се може наћи у ћелијама Б3, Б5 и Б14 на оригиналној листи, појавио би се само једном на новој листи.
Постоји неколико начина на које то можете учинити помоћу програма Екцел. Ако желите да користите макро, можете користити следеће ВБА команде:
Под листа без дупликата ()
Дим Соурце Ас Ранге
Затамните циљ као домет
Постави извор = Опсег ("б1")
Подеси циљ = Домет ("д1")
Соурце.ЕнтиреЦолумн.АдванцедФилтер Ацтион: = клФилтерЦопи, _
Опсег критеријума: = Соурце.ЕнтиреЦолумн, ЦопиТоРанге: = Таргет, Уникуе: = Труе
Енд Суб
Након покретања макронаредбе, Екцел филтрира табелу и приказује нову табелу из ћелије Д1. Следећа слика приказује резултат:
Можете видети да се свака вредност појављује само једном на листи резултата.
Помоћу променљиве СОУРЦЕ наведите колону табеле у којој се налазе подаци из које желите да генеришете нову листу без дуплираних уноса. Макро увек користи целу колону која припада референци коју дефинишете помоћу СОУРЦЕ. Помоћу променљиве дефинишите било коју адресу ћелије у одговарајућој колони.
Помоћу променљиве ТАРГЕТ одређујете где Екцел записује вашу листу резултата. Нова листа почиње на позицији коју наведете овом променљивом.
Макро ради са активним радним листом и за изворно и за циљно подручје.
Да бисте уметнули макро у табелу, отворите одговарајућу радну свеску и притисните комбинацију тастера АЛТ Ф11 у свим верзијама програма Екцел да бисте покренули уређивач ВБА. Позовите команду ИНСЕРТ - МОДУЛЕ и уметните ВБА команде. Да бисте покренули макро из програма Екцел, користите комбинацију тастера АЛТ Ф8.