excel - VBA에서 배열 풀기 및 배열에 항목 추가

사전 항목의 사본에서만 Preserve로 ReDim을 수행 할 수 있습니다. 분명히 변형 배열 사전 항목을 다시 정의하는 것은 허용되지 않습니다 ..

Sub meh()
    Dim i As Long, itm As Variant, dict As Object
    Set dict = CreateObject("scripting.dictionary")
    dict.Add Key:=("a"), Item:=Array(1, 2, 3)
    For i = LBound(dict.Item("a")) To UBound(dict.Item("a"))
        Debug.Print dict.Item("a")(i)
    Next i
    itm = dict.Item("a")
    ReDim Preserve itm(LBound(itm) To UBound(itm) + 1)
    itm(UBound(itm)) = "new"
    dict.Item("a") = itm
    For i = LBound(dict.Item("a")) To UBound(dict.Item("a"))
        Debug.Print dict.Item("a")(i)
    Next i
End Sub