【VBA】Dictionaryのセット｜CreateObject(“Scripting.Dictionary”)

Private Sub Test()

    Dim dic As Object: Set dic = CreateObject("Scripting.Dictionary")

    If Not dic.Exists(xx) Then  'キー(xx)がdicに存在しなければ
        dic.Add xx, yy  'キー(xx)と要素(yy)を追加する
    End If
End Sub