Преглед садржаја
Овај водич ће вас научити како уклонити дупликате из низа у ВБА.
Уклоните дупликате
Најлакши начин за уклањање дупликата из ВБА низа је додељивање вредности низа ВБА колекцији, а затим враћање вредности у низ. Збирке не дозвољавају дуплиране вредности, па помоћу збирке можемо уклонити дупликате из низа. Направили смо функцију за обављање овог задатка:
| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061 | Функција АрраиРемовеДупс (МиАрраи као варијанта) као варијантаДим нФирст Ас Лонг, нЛаст Ас Лонг, и Ас ЛонгЗатамни ставку као низДим аррТемп () Ас СтрингДим Цолл као нова колекција'Заузмите прве и последње позиције низанФирст = ЛБоунд (МиАрраи)нЛаст = УБоунд (МиАрраи)РеДим аррТемп (нФирст То нЛаст)'Претвори низ у низЗа и = нПрви до нПоследњиаррТемп (и) = ЦСтр (МиАрраи (и))Затим сам'Напуни привремену збиркуНа Грешка Настави даљеЗа и = нПрви до нПоследњиЦолл.Адд аррТемп (и), аррТемп (и)Затим самЕрр.ЦлеарОн Еррор ГоТо 0'Промени величину низанЛаст = Цолл.Цоунт + нФирст - 1РеДим аррТемп (нФирст То нЛаст)'Низ популацијеЗа и = нПрви до нПоследњиаррТемп (и) = Цолл (и - нФирст + 1)Затим сам'Излазни низАрраиРемовеДупс = аррТемпЗавршна функцијаСуб АррТест ()Дим стрНамес (1 То 4) Ас СтрингДим оутпутАрраи () Ас СтрингДим и Ас ЛонгПригуши ставку као варијанту'Подесите почетне вредности низастрНамес (1) = "Схелли"стрНамес (2) = "Стеве"стрНамес (3) = "Неема"стрНамес (4) = "Стеве"'Цалл Дуп функцијаоутпутАрраи = АрраиРемовеДупс (стрНамес)'Излазне вредности у непосредни прозор (ЦТРЛ + Г)За сваку ставку у излазном низуДебуг.Принт итемСледећа ставкаЕнд Суб |
Напомена: У примеру смо приморали наш низ да почне са 1 (не 0). Ако ваш низ почиње са 0, мораћете мало да измените код.
Уочите да садржај низа претварамо у низ. Ако је потребно, можете да конвертујете низове назад у целе бројеве након што се процес заврши.
