Sadržaj
Ovaj vodič će vas naučiti kako ukloniti duplikate iz niza u VBA.
Uklonite duplikate
Najjednostavniji način za uklanjanje duplikata iz VBA niza je dodjeljivanje vrijednosti niza VBA zbirci, a zatim prosljeđivanje vrijednosti natrag u niz. Zbirke ne dopuštaju dvostruke vrijednosti, pa pomoću zbirke možemo ukloniti duplikate iz niza. Izradili smo funkciju za izvršavanje ovog zadatka:
| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061 | Funkcija ArrayRemoveDups (MyArray kao varijanta) kao varijantaDim nFirst As Long, nLast As Long, i As LongZatamni stavku kao nizDim arrTemp () Kao nizDim Coll kao nova kolekcija'Osvojite prve i posljednje pozicije nizanFirst = LBound (MyArray)nLast = UBound (MyArray)ReDim arrTemp (nPrvi do nPosljednji)'Pretvori niz u nizZa i = nPrvi do nZadnjiarrTemp (i) = CStr (MyArray (i))Sljedeći i'Napuni privremenu zbirkuUključeno Slijedi nastavak greškeZa i = nPrvi do nZadnjiColl.Adr arrTemp (i), arrTemp (i)Sljedeći iGreška.JasnoUključeno Greška Idi na 0'Promijeni veličinu nizanLast = Coll.Count + nFirst - 1ReDim arrTemp (nPrvi do nPosljednji)'Niz populacijeZa i = nPrvi do nZadnjiarrTemp (i) = Coll (i - nFirst + 1)Sljedeći i'Izlazni nizArrayRemoveDups = arrTempZavršna funkcijaSub ArrTest ()Dim strNames (1 To 4) As StringZatamni izlazArray () Kao nizDim i As LongPriguši stavku kao varijantu'Postavite početne vrijednosti nizastrNames (1) = "Shelly"strNames (2) = "Steve"strNames (3) = "Neema"strNames (4) = "Steve"'Call Dup funkcijaoutputArray = ArrayRemoveDups (strNames)'Izlazne vrijednosti u neposredni prozor (CTRL + G)Za svaku stavku u izlaznom nizuOtklanjanje pogrešaka. Ispis stavkeSljedeća stavkaKraj podm |
Napomena: U primjeru smo prisilili naš niz da počne s 1 (ne 0). Ako vaš niz počinje s 0, morat ćete malo izmijeniti kôd.
Uočite da sadržaj niza pretvaramo u niz. Ako je potrebno, možete dovršiti nizove nakon što je proces dovršen.
