VBA (Microsoft Access) Function to delete duplicates in Array

Question

I need a function which will delete duplicate elements in an array in VBA, I have searched for this but none of the given functions worked for me, they always give some kind of error. So lets say I have an array of strings:

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

I need a function which will return another "filtered array" which will contain no duplicates so it will contain "word1, word2, word3, word4" Can anyone help me? Thanks!

that code gives me "Wrong number of arguments or invalid property assignment" — Markazol
– Markazol, Commented Nov 12, 2016 at 10:53

user3598756 · Accepted Answer · 2016-11-12 10:43:20Z

2

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

to be used like

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

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

answered Nov 12, 2016 at 10:43

user3598756

29.5k4 gold badges20 silver badges30 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

VBA (Microsoft Access) Function to delete duplicates in Array

1 Answer 1

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related