Remove All Instances Of Key Item Pairs From Dictionary

[goss]

Hi all,

Using excel 2010.

I definitely have duplicate values in keys and unique values in items in a dictionary
I tried to loop through a control array and i fthe key exists in the dictionary remove it.
Not working correctly, 8 items are removed from the dictionary, but the array has 10 items in it

thx
w

Please Login or Register  to view this content.

[Norie]

Do you mean you are trying to create a dictionary of unique items but you are ending up with duplicates?

[abousetta]

Not sure why you're having this problem

Please Login or Register  to view this content.

For testing purposes, put something repeated in Range("A1:A6") and run this:

Please Login or Register  to view this content.

abousetta

[AB33]

You may have 10 items but 8 keys, which means you have two duplicate items and can have a single key.
Or when you assign the range in to the variant aControl, you are missing two rows. As the code loops through the array, these two items are missing.

[goss]

Thanks everyone,

I'm still a little stumped trying to compare values in the dictionary to a control array and it could partly be just because I expect different output
For example, the first element of the control array is 41.
I think should search the dictionary, if found, write result to immediate window

Found : 41 6

But you can see below, it is listed 5th in the sequence

Additionally, there are a couple of items listed as Found, but are not in the Control array, but they are in the dictionary

It seems that the .Exists Method of the Dictionary Object is looking at the item and not the key?
If my assumption is correct, is it possible to look at the key to determine if it exists?

The workbook is attached

thx
w

Please Login or Register  to view this content.

[abousetta]

Here's a simplified approach that works for me:

Please Login or Register  to view this content.

Notice I don't check if the key exists or not. If you try to add it, it will only add it to the keys if it is not already present.

abousetta

[jindon]

Please Login or Register  to view this content.