Combining two arrays in VBA?

[NiicckkM]

I have an array that is looping:

Sub Test()
Dim FileLoop As Variant, Found As Range

For Each FileLoop In Array ("A", "B", "C", "D", "E") 

If FileLoop = [A1] then
MsgBox FileLoop

Next Fileloop

I need to create a new variable, based on the array value.

A = Alpha
B = Beta
C = Charlie
D = Delta
E = Echo

The only way I know how to assign this is below:

If FileLoop = A then FileLoop2 = Alpha
If FileLoop = B then FileLoop2 = Beta
If FileLoop = C then FileLoop2 = Charlie
If FileLoop = D then FileLoop2 = Delta
If FileLoop = E then FileLoop2 = Echo

I was hoping to find a way to do this that uses less lines of code. If I create a new array (like below), would I be able to assign values based on the locations in each array?

First Array: ("A", "B", "C", "D", "E")
Second Array: ("Alpha", "Beta", "Charlie", "Delta", "Echo")



Thanks

 

[Eric W]

There are several ways to accomplish this. Your idea could work like this:

MyArray1 = Array("A", "B", "C", "D", "E")
MyArray2 = Array("Alpha", "Beta", "Charlie", "Delta", "Echo")

For i = 0 to Ubound(MyArray1)
    FileLoop = MyArray1(i)
    FileLoop2 = MyArray2(i)
Next i

Another way:

' Initialize the arrays
MyArray1 = Array("A", "B", "C", "D", "E")
MyArray2 = Array("Alpha", "Beta", "Charlie", "Delta", "Echo")

' Save the data in a dictionary
Set MyDict = CreateObject("Scripting.Dictionary")

For i = 0 to Ubound(MyArray1)
   MyDict.Add MyArray1(i), MyArray2(i)
Next i

' Now you can pull out the associated item in one line
For Each FileLoop in MyArray1
    FileLoop2 = MyDict.Item(FileLoop)
Next i

There are other ways, but this should give you some ideas.

 

[NiicckkM]

Perfect. I should be set from here. Thanks a ton

 

[Eric W]

Happy to help.