Excel словарь с несколькими значениями?

Question

В Python я привык иметь что-то вроде defaultdict, где я могу просто добавить много значений к данному ключу. В Excel кажется, что если я использую объект Dictionary из Runtime Scripting, я могу добавить только один элемент за ключ.

Есть ли способ, что я могу сделать что-то вроде этого:

1. Если в словаре отсутствует ключ, добавить список (первый элемент) под Dict [ключ]
2. Если в словаре есть ключ, добавьте элемент в уже существующий список под dict [ключ]

Надеюсь, что я достаточно ясен. Может быть, вместо списка я имею в виду массив, не уверен.

Попытка:

 Dim collect As New collection 

     If Not dict.Exists(key) Then 
      dict.Add key, collect 
     End If 

     collect = dict.Item(key) 
     collect.Add (val) 

     dict.Item(key) = collect 

Answer 1

Вы пропускаете Set ключевое слово, необходимое в VBA для назначения объектов. Однако вы можете обойти их с гораздо более компактным форматом в любом случае:

If Not dict.Exists(Key) Then dict.Add Key, New Collection 

dict.Item(Key).Add Val 

---

Если вы хотите сохранить старый формат, то это, как:

Dim collect As New collection 

    If Not dict.Exists(key) Then 
     dict.Add key, collect 
    End If 

    Set collect = dict.Item(key) 
    collect.Add (val) 

    Set dict.Item(key) = collect 

Но более компактный формат выше работает отлично также.