Как в VBA создать ассоциативный массив?

[Depressive]

Имеется примерно такая таблица, содержащая названия стран и относящихся к ним туристических объектов (для простоты - городов)



Требуется создать двумерный ассоциативный массив, например, в РНР это будет выглядеть так:

PHP код:

$a = Array(
    "АВСТРИЯ" => Array(
        "АЙЗЕНШТАДТ",
        "ВЕНА",
        "ВЕНСКИЙ ЛЕС",
        "ГРАЦ",
        "ДОЛИНА ВАХАУ",
        "ДОЛИНА ГАШТАЙН",
        "ЗАЛЬЦБУРГ",
        "ЗАМКИ ВЕНЫ",
        "ИНСБРУК"),
    "БЕЛЬГИЯ" => Array(
        "БРЮГГЕ",
        "БРЮССЕЛЬ"),
    "БОЛГАРИЯ" => Array(
        "ГАБРОВО",
        "ОТДЫХ В БОЛГАРИИ",
        "СОФИЯ",
        "ТЫРНОВО",
        "ШИПКА"),
); 


чтобы в дальнейшем обращаться к его элементам, примерно так:

PHP код:

$a["АВСТРИЯ"][2] 


чтобы произвольно сортировать его, искать в массиве объекты

Пожалуйста подскажите, как это реализовать средствами VBA для Excel?

Заранее благодарю за ответ!

[IgorGO]

два варианта на выбор (типы только в программном модуле надо обьявить)

  Type SameArr1
    nm As String
    nms(1 To 100) As String
  End Type
  
  Type SameArr2
    nm As String
    nms As New Collection
  End Type

Sub bb()
  Dim NArr(10) As SameArr1, NCol(10) As SameArr2

  NArr(1).nm = "АВСТРИЯ"
  NArr(1).nms(1) = "АЙЗЕНШТАДТ"
  NArr(1).nms(2) = "ВЕНА"
  NArr(1).nms(3) = "ВЕНСКИЙ ЛЕС"
  NArr(1).nms(4) = "ГРАЦ"
  NArr(2).nm = "БЕЛЬГИЯ"
  NArr(2).nms(1) = "БРЮГГЕ"
  NArr(2).nms(2) = "БРЮССЕЛЬ"
  NArr(3).nm = "БОЛГАРИЯ"
  NArr(3).nms(1) = "ГАБРОВО"
  
  For i = 1 To 2
    MsgBox NArr(2).nm & ", " & NArr(2).nms(i)
  Next
  
  NCol(1).nm = "АВСТРИЯ"
  NCol(1).nms.Add "АЙЗЕНШТАДТ"
  NCol(1).nms.Add "ВЕНА"
  NCol(1).nms.Add "ВЕНСКИЙ ЛЕС"
  NCol(1).nms.Add "ГРАЦ"
  NCol(2).nm = "БЕЛЬГИЯ"
  NCol(2).nms.Add "БРЮГГЕ"
  NCol(2).nms.Add "БРЮССЕЛЬ"
  NCol(3).nm = "БОЛГАРИЯ"
  NCol(3).nms.Add "ГАБРОВО"
  
  For Each ns In NCol(1).nms
    MsgBox NCol(1).nm & ", " & ns
  Next
End Sub

[Depressive]

Спасибо, IgorGO!
Синтаксис несколько неудобен, но думаю, привыкну

[Depressive]

Что-то я совсем туплю...

Пытаюсь перебрать такой массив в двойном (вложенном) цикле:

NCol(1).nm = "АВСТРИЯ"
    NCol(1).nms.Add "АЙЗЕНШТАДТ"
    NCol(1).nms.Add "ВЕНА"
    NCol(1).nms.Add "ВЕНСКИЙ ЛЕС"
    NCol(1).nms.Add "ГРАЦ"
NCol(2).nm = "БЕЛЬГИЯ"
    NCol(2).nms.Add "БРЮГГЕ"
    NCol(2).nms.Add "БРЮССЕЛЬ"
NCol(3).nm = "БОЛГАРИЯ"
    NCol(3).nms.Add "ГАБРОВО"

    For i = 1 To UBound(NCol)
        For j = 1 To UBound(NCol(i))
            MsgBox "i=" & i & " : " & "j=" & j & " :: " & NCol(i).nm & ", " & ns
        Next
    Next

но VBA ругается на UBound(NCol(i).nm), что "ожидается массив", но разве NCol(i).nm в данном случае не рассматривается, как массив?

[doober]

  For i = 1 To UBound(NCol)
        For j = 1 To NCol(i).nms.Count
            MsgBox "i=" & i & " : " & "j=" & j & " :: " & NCol(i).nm & ", " & NCol(i).nms(j)
        Next
    Next

[slan]

да можно и без типов:

Sub t()
Dim sancol As New Collection, sanarr() As String, country, san
ReDim sanarr(1 To 1)
sanarr(1) = "айзенштадт"
ReDim Preserve sanarr(1 To UBound(sanarr) + 1)
sanarr(2) = "вена"
sancol.Add sanarr, "австрия"
ReDim sanarr(1 To 1)
sanarr(1) = "габрово"
sancol.Add sanarr, "болгария"
For Each country In sancol
    For Each san In country
    Debug.Print san
Next san, country
MsgBox sancol("австрия")(2)
End Sub

[slan]

но никто не мешает и так:

Sub ar()
Dim arr
arr = Array(Array(1, 2), Array(1, 2, 3))
End Sub

[Depressive]

Спасибо, doober!
Почти то, что надо!
Не понятно, является ли в конце-концов, NCol(i).nms массивом. Например, можно ли применять к нему сортировку, т.е. вначале отсортировать по первой размерности - страны (колонка "А"), затем по второй - туробъекты (колонка "В"). См. скриншот в начале топика.