Создать словарь списков в vba

Ответ 1

Массивы в VBA более или менее похожи друг на друга с различными особенностями:

• Возможно переназначение массива (хотя это и не требуется).
• Большинство свойств массива (например, Sheets массив в рабочей книге) основаны на 1. Хотя, как справедливо отметили @TimWilliams, пользовательские массивы на самом деле основаны на 0. Массив ниже определяет строковый массив длиной 11 (10 указывает верхнюю позицию).

Помимо этого и особенностей, относящихся к обозначениям, вы не должны обнаруживать никаких проблем с массивами VBA.

Dim stringArray(10) As String
stringArray(1) = "first val"
stringArray(2) = "second val"
'etc.

Относительно того, что вы запрашиваете, вы можете создать словарь в VBA и включить в него список (или эквивалент VBA: Collection), здесь у вас есть пример кода:

Set dict = CreateObject("Scripting.Dictionary")
Set coll = New Collection
coll.Add ("coll1")
coll.Add ("coll2")
coll.Add ("coll3")
If Not dict.Exists("dict1") Then
    dict.Add "dict1", coll
End If

Dim curVal As String: curVal = dict("dict1")(3) '-> "coll3"

Set dict = Nothing 

Ответ 2

В словарях могут быть словари. Нет необходимости использовать массивы или коллекции, если у вас нет конкретной необходимости.

Sub FillNestedDictionairies()

    Dim dcParent As Scripting.Dictionary
    Dim dcChild As Scripting.Dictionary
    Dim rCell As Range
    Dim vaSplit As Variant
    Dim vParentKey As Variant, vChildKey As Variant

    Set dcParent = New Scripting.Dictionary

    'Don't use currentregion if you have adjacent data
    For Each rCell In Sheet2.Range("A1").CurrentRegion.Cells
        'assume the text is separated by a space
        vaSplit = Split(rCell.Value, Space(1))

        'If it already there, set the child to what there
        If dcParent.Exists(vaSplit(0)) Then
            Set dcChild = dcParent.Item(vaSplit(0))
        Else 'create a new child
            Set dcChild = New Scripting.Dictionary
            dcParent.Add vaSplit(0), dcChild
        End If
        'Assumes unique post-space data - text for Exists if that not the case
        dcChild.Add CStr(vaSplit(1)), vaSplit(1)
    Next rCell

    'Output to prove it works
    For Each vParentKey In dcParent.Keys
        For Each vChildKey In dcParent.Item(vParentKey).Keys
            Debug.Print vParentKey, vChildKey
        Next vChildKey
    Next vParentKey

End Sub

Ответ 3

Я не знаком с С++ и Python (был долгое время), поэтому я не могу говорить о различиях с VBA, но могу сказать, что работа с массивами в VBA не особенно сложна.

По моему собственному скромному мнению, лучший способ работать с динамическими массивами в VBA - это измерение его до большого количества и сжимать его, когда вы закончите добавлять к нему элементы. Действительно, Redim Preserve, где вы перенастраиваете массив при сохранении значений, имеет огромную стоимость исполнения. Вы никогда не должны использовать Redim Preserve внутри цикла, выполнение будет болезненно медленным

Примените следующий фрагмент кода, приведенный в качестве примера:

Sub CreateArrays()

Dim wS As Worksheet
Set wS = ActiveSheet

Dim Flanged_connections()
ReDim Flanged_connections(WorksheetFunction.CountIf(wS.Columns(1), _
    "Flanged_connections"))

For i = 1 To wS.Cells(1, 1).CurrentRegion.Rows.Count Step 1

    If UCase(wS.Cells(i, 1).Value) = "FLANGED_CONNECTIONS" Then   ' UCASE = Capitalize everything

        Flanged_connections(c1) = wS.Cells(i, 2).Value

    End If

Next i

End Sub