Какой тип данных VBA лучше всего использовать: ключ = ›значение для сохранения данных, как в массиве PHP

Вы смотрели объект словаря?

Он доступен как часть среды выполнения сценариев Microsoft. Наглядный пример того, как это добавить, дается этим SO-ответом.

Sub DictExample1()

Dim dict As Dictionary
Dim v As Variant

    'Create the dictionary          
    Set dict = New Dictionary

   'Add some (key, value) pairs
    dict.Add "John", 34
    dict.Add "Jane", 42
    dict.Add "Ted", 402

    'How many items do we have?
    Debug.Print "Number of items stored: " & dict.Count

    'We can retrieve an item based on the key
    Debug.Print "Ted is " & dict.Item("Ted") & " years old"


   'We can test whether an item exists
    Debug.Print "We have Jane's age: " & dict.Exists("Jane")
    Debug.Print "We have Zak's age " & dict.Exists("Zak")

    'We can update a value by replacing it
   dict.Item("Ted") = dict.Item("Ted") / 10

    Debug.Print "Ted's real age is: " & dict.Item("Ted")

   'We can add more items
    dict.Add "Carla", 23

   'And we can iterate through the complete dictionary
    For Each v In dict.Keys
        Debug.Print "Name: " & v & "Age: "; dict.Item(v)
    Next

End Sub

(Источник: http://www.techbookreport.com/tutorials/vba_dictionary.html )

Вышеуказанный ответ не будет работать из-за неправильного синтаксиса, вам нужно добавить Scripting Keword, прежде чем также включить Microsoft Sripting Run Time. Я пробовал его с использованием сценария и без него. до Dictionary в MS Word (2016) и без дозы не работает, даже если вы включили среду выполнения Microsoft Scripting

 Dim dict As Scripting.Dictionary
 Set dict = New Scripting.Dictionary
 dict.Add "John", 34
 dict.Add "Jane", 42
 dict.Add "Ted", 402

 Debug.Print "Number of items stored: " & dict.Count
 Debug.Print "Ted is " & dict.Item("Ted") & " years old"