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