VBA dict add函数

在VBA中，使用字典（Dictionary）对象的 `Add` 方法可以向字典中添加新的键值对。`Add` 方法接受两个参数，第一个参数是要添加的键（Key），第二个参数是对应的值（Item）。

下面是使用 `Add` 方法向字典添加键值对的示例：

Sub AddToDictionary()
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    
    ' 向字典中添加键值对
    dict.Add "Key1", "Value1"
    dict.Add "Key2", "Value2"
    
    ' 检查字典中的键值对
    Debug.Print dict("Key1")  ' 输出：Value1
    Debug.Print dict("Key2")  ' 输出：Value2
    
    Set dict = Nothing  ' 释放字典对象
End Sub

上述示例中，首先创建了一个字典对象 `dict`，然后使用 `Add` 方法向字典中添加了两个键值对。之后，通过 `dict("Key1")` 和 `dict("Key2")` 可以分别获取对应键的值，并通过 `Debug.Print` 方法将其输出到Immediate窗口。

需要注意的是，在使用 `Add` 方法添加键值对时，如果指定的键已经存在于字典中，则会抛出运行时错误。为了避免这种情况，可以先使用 `Exists` 方法检查键是否已经存在，或者使用 `Item` 属性进行赋值操作，它会自动添加新的键值对或更新已有键的值。例如：

If Not dict.Exists("Key1") Then
    dict("Key1") = "NewValue1"  ' 添加或更新键值对
End If

这样可以避免重复添加相同的键。