Как назначить значения в одном массиве переменной в другом массиве

Question

Я пытаюсь присвоить 1 переменной firstCol, 2 переменной secondCol ...

Когда я начинаю цикл по colHeaders, переменная цикла Header не включается любое значение. Я знаю, что синтаксис неверен, и Header присваивается num, но я чувствовал, что это лучший способ объяснить, что я пытаюсь сделать.

Возможно ли l oop через переменные ?

Dim colHeaders() As Variant
Dim Dict As New Scripting.Dictionary
Set Dict = New Scripting.Dictionary

colHeaders = Array(firstCol, secondCol, thirdCol, fourthCol, fifthCol)

num = 1
For Each Header In colHeaders
    Header = num
    num = num + 1
Next Header

Answer 1

Dim Dict As New Scripting.Dictionary
Set Dict = New Scripting.Dictionary

Dim colHeaders() As Variant
colHeaders = Array("firstCol", "secondCol", "thirdCol", "fourthCol", "fifthCol")

Dim num As Long
num = 1

Dim header As Variant
For Each header In colHeaders
    Dict.Add header, num
    num = num + 1
Next header

Debug.Print Dict("secondCol")