How to load an array?

[jshirts]

How do you load a 1D array using a 2D array in one line of code?

I tried the following:

Dim a1(5,10) as Variant
Dim a2(10) as Variant

...load a1 with values...

For x=0 to UBound(a1,2)-1
a2=a1(x)()
Next x

But it didn't work, and I would like to avoid loading a2 one element at a time. Any ideas?

 

[Damon Ostrander]

Hi shirts,

You didn't mention which row of a1 you want to load into a2. Here's what is should be if you want to load row 1:

For x=0 to UBound(a1,2)-1
a2(x)=a1(1,x)
Next x

Damon