how to remove duplicates from an array

so i have the following code which creates an array of "accounts" from 3 workbooks. now i want to remove duplicates from the array. i have searched the net for common code to remove the duplicates but the problem is that it doesn't do anything to the array (at least as far as i can see). so here is the code that works (in that it creates an array).

Please Login or Register  to view this content.

so here is code from wellsr.com

Please Login or Register  to view this content.

so if i understand the function, i should be able to do the following in the original code above:

Please Login or Register  to view this content.

so the code should print the upper bound of the array (before deduping)
then remove the duplicates (there are many)
then show the new upper bound of the array (less than the first ubound)

since i have tried many routines to remove the duplicates, i presume that i am missing something. What is it?

Why not just put the values straight into the dictionary, rather than using an array?

so thanks CK and Fluff.

fluff - im not so proficient with dictionaries, might want some help. can you modify my code above to do just that?

ck - so lets say my array is such arr(1)=1, arr(2) = 1, arr(3) = 2, arr(4) = 3, arr(5) = 2, will it remove all the 1's and 2's or leave 1 of each? when i ran what you posted, my array was much less that what it should be. does the array have to be sorted first?

How about

Please Login or Register  to view this content.

Instead of creating an array with duplicates just avoid to add a duplicate within the array !

Just use Application.Match for example, it returns an error (check with IsError) if a value does not exist in an array …

thanks ck and marc, i will investigate your solutions.

fluff,

when i tried to add using dic.add item, it didn't return the item after adding it. don't know why, but your solution works. thanks

You're welcome & thanks for the feedback