在Excel中为VB设置脚本字典

Sub SetScriptingDictionary()
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    
    ' 添加键值对
    dict.Add "key1", "value1"
    dict.Add "key2", "value2"
    dict.Add "key3", "value3"
    
    ' 修改值
    dict("key2") = "new value2"
    
    ' 获取值
    Dim value As String
    value = dict("key1")
    
    ' 删除键值对
    dict.Remove "key3"
    
    ' 检查键是否存在
    Dim exists As Boolean
    exists = dict.Exists("key2")
    
    ' 获取字典中的所有键
    Dim keys As Variant
    keys = dict.Keys
    
    ' 获取字典中的所有值
    Dim values As Variant
    values = dict.Items
    
    ' 清空字典
    dict.RemoveAll
End Sub