Vba_excel_ Tutorial: Dictionary types

The dictionary types in VBA need to add a Microsoft Scripting runtime reference, which is added under the Tools menu

Subtestdic ()DimStrv as String    DimKey as StringKey="name"    DimValue as Stringvalue="Guan Yu"        DimDic as Object    SetDIC =CreateObject("Scripting.Dictionary")        'Increase    IfDic.exists (key) =False  ThenDiC. Add Key, ValueEnd If        PagerRead (DIC)'Delete 1DiC. Remove (Key)PagerRead (DIC)'Delete 2: Remove all content 'DiC. RemoveAllPagerRead (DIC)End SubSubRead (dic as Object)    'Traversal Read     for  eachKinchDiC STRV=DiC. Item (k) Debug.Print StrvNextEnd Sub

Vba_excel_ Tutorial: Dictionary types