Function using dictionary to delete repeated rows in array

[Guinaba]

Hi all,

The function below deletes repeated rows in a simple array. Someone could tell me how to adjust it in order to delete a multidimension dynamic array?

Function RemoveDupesDict(arr1 As Variant) As Variant
Dim i As Long
Dim dic As Object
Set dic = CreateObject (“Scripting.Dictionary”)
With dic
For i = LBound(arr1) To UBound(arr1)
If IsMissing(arr1(i)) = False Then
.item(arr1(i)) = 1
End If
Next
RemoveDupesDict = .Keys
End With
End Function

Sub RemoveDuplicatesDemo_Dictionary()
Dim arr1() As Variant
Dim arr2() As Variant
arr1 = Array("Cow", "Cat", "Cow", "Frog", "Pig", "Cat")
arr2 = RemoveDupesDict(arr1) 'Dictionary Method
End Sub

 

[VBasic2008]

I think you need to explain what you mean by multidimensional. Do you mean a 2D array? Then will you evaluate all columns, several or only one? Or do you just mean a 2D one-based one-column array like the one you get from copying from a worksheet e.g. Data = Range("A1:A10").

Just a Thought

You don't need to use arr2. You can just do:

Sub RemoveDuplicatesDemo_Dictionary()
    Dim arr1() As Variant
    arr1 = Array("Cow", "Cat", "Cow", "Frog", "Pig", "Cat")
    arr1 = RemoveDupesDict(arr1) 'Dictionary Method
    Debug.Print Join(arr1, vbLf)
End Sub

where Debug.Print Join(arr1, vbLf) is just a simple way to display the contents of a 1D array.

And a Question

What is the following supposed to do?

If IsMissing(arr1(i)) = False Then