Scripting.Dictionary Question

So I have this code which uses the dictionary object to find unique values in column F. Some of the code was pieced together from internet examples and my current knowledge. I understand how it works except for this line.

DXNRY(CStr(Range("F" & z))) = 1

. What does the "= 1" do? Does it matter what that is set to? Any information is appreciated. Below is the full code:

Function unique()

Dim a As Long, z As Long
Dim v As Variant
Dim DXNRY As Object

Set DXNRY = CreateObject("Scripting.Dictionary")

'-------------------------------------------------------------------
'Makes sure the Formatting Page is activated.
Worksheets("Formatting").Activate
'Counts and stores data length
a = Range("A" & Rows.Count).End(xlUp).Row
'-------------------------------------------------------------------

For z = 1 To a
    DXNRY(CStr(Range("F" & z))) = 1
Next z

For Each v In DXNRY.Keys
    Debug.Print v
Next v

DXNRY.RemoveAll
Set DXNRY = Nothing

End Function

Thanks Leith. What does that mean in the grand scheme of things? Can you conjure that list of values with something like this then?

DXNRY.Keys(1)

Originally Posted by msolari

DXNRY.Keys(1)

You can write like that only if you set the reference to "Microsoft Scripting Runtime".
e.g

Sub test()
    Dim DXNRY As Scripting.Dictionary, i As Long
    Set DXNRY = New Dictionary
    DXNRY.Add "a", 2
    DXNRY.Add "b", 1
    For i = 0 To DXNRY.Count - 1
        MsgBox DXNRY.Keys(i), , "key"
        MsgBox DXNRY.Items(i), , "item"
    Next
End Sub

Ok..kind of understanding here. Sorry I'm new to the dictionary thing. How would you debug.print a single key? Also, can a single key hold multiple strings?

Thanks jindon, that is enlightening. And answers a few questions for me. But I still have my original question

DXNRY(CStr(Range("F" & z))) = 1

What does the "= 1" do? I realize it sets its value to one but what does that let you do? Does it need to be there? Does it matter even what that is set to? Could I have it set to

DXNRY(CStr(Range("F" & z))) = Whydoesthisneedtobehere??

Thanks in advance

So the value at the end does not affect the data stored in the dictionary? It doesn't matter at all what that is set to?

Using code from jindon, I realize now that the "=1" sets the item number for that particular key. Thanks. Makes so much sense now.

DXNRY(CStr(Range("F" & z))) = 1

Let's assume the value of CStr(Range("F" & z)) = "x"

The line is setting Item property of dictionary for "x" to 1
In other words, it is equivalent to

DXNRY.Add CStr(Range("F" & z).Value), 1

It is not an Index, so 1 could be anything.

THANK YOU THANK YOU THANK YOU!!! You confirmed it. Been staring at this forever. Such a relief