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

Public Function SetDIC()
    Set SetDIC = CreateObject("Scripting.Dictionary")
End Function

Private Sub Test()

    Dim i As Long
    Dim dic As Object: Set dic = SetDIC

    For i = 1 To 100
        If Not DicExists(dic, xx) Then  'キー(xx)がdicに存在しなければ
            Set dic = AddDicKeyValue(dic, xx, yy)  'キー(xx)と要素(yy)を追加する

            'なにかの処理
        End If
    Next i
End Sub