Sub het meest dict_test ()
Schemerige rng als Waaier
Schemerige celle als Waaier
Schemerige dic_items als Variant
Schemerige I zoals lang
Schemerig x als Variant
Schemerige dic als Scripting.Dictionary
Reeks dic = Nieuwe Scripting.Dictionary
dic.CompareMode = 1
Met Bladen („Sheet1“)
Reeks rng = Waaier (. Cellen (1, „A“). Cellen (. Rows.Count, „A“). Eind (xlUp))
Voor Elke celle in rng
Als niet dic.exists (celle. Waarde) toen
dic. Voeg celle toe. Waarde, celle. Waarde
Eind als
Volgende celle
dic_items = dic. Punten
. [c: c] .ClearContents
. [c1]. Resize (dic. Telling, 1) = Application.Transpose (dic_items)
Eind met
Reeks dic = niets
Sub van het eind
|