VBA (Microsoft Access) Funktion zum Löschen von Duplikaten in Array

Question

Ich brauche eine Funktion, die doppelte Elemente in einem Array in VBA löschen wird, habe ich gesucht, aber keine der angegebenen Funktionen funktionierte für mich, sie geben immer eine Art von Error. So können sagen, ich habe ein Array von Strings:

Dim strArray() As String 
strArray = Split("word1, word2, word3, word1, word2, word4", ",") 

Ich brauche eine Funktion, die eine andere „gefilterten Reihe“ zurückkehren, die keine Duplikate enthalten, so wird es enthalten „word1, word2, word3, Word4“ Kann mir jemand helfen mich? Danke!

Answer 1

Function FilterWords(words() As String) As String() 
    Dim word As Variant 
    Dim newWords As String 

    For Each word In words 
     If InStr(newWords, word) = 0 Then newWords = newWords & word & "," 
    Next word 
    FilterWords = Split(Left(newWords, Len(newWords) - 1), ",") 
End Function 

zu wie

Sub main()  
    Dim strArray() As String, strFilteredArray() As String 

    strArray = Split("word1,word2,word3,word1,word2,word4", ",")   
    strFilteredArray = FilterWords(strArray) 
End Sub