Назначение 1D массивов для 2D-массива в VBA

Question

Я ищу способы реализовать следующие функции в моем макросе VBA. У меня есть 2D-массив размером (xx, yy), который я хочу динамически заполнить. Проблема в том, что возвращаемые значения функции возвращают 1D массивы. с обратным размером (yy, 1) вместо (1, yy). Есть ли способ динамически назначать следующие строки, используя массивы, возвращаемые fuction. Псевдо-код, реализующий функциональность ниже:

Dim X() As Double 
ReDim X(1 to xx, 1 to yy) 
Dim i As Long 

For i=1 To xx 
    X(i,)= FunctionReturningArrayOfSize(1 to yy, 1 to 1) 
Next i 

EDIT: Просто чтобы ясно - каждая строка моего результирующего массива X возвращается в исполнении FunctionReturningArrayOfSize (в цикле).

Answer 1

Вы используете Excel, поэтому вы можете использовать функцию Transpose от VBA.

Transpose автоматически преобразует 1D-массив в 2D-массив.

Sub Test() 

    Dim a1D() As Variant 
    'Assign a 1D array 
    a1D = Array(1, 2, 3, 4, 5, 6) 

    Dim a2D As Variant 
    'Transpose to a 2D array 
    a2D = Application.WorksheetFunction.Transpose(a1D) 

End Sub 

Answer 2

Вы можете назначить 1D массив для 2D Range, но не для части другого массива.

Dim X() ' has to be Variant array 
With Range("A1").Resize(xx, yy) 
    .Value2 = FunctionReturningArrayOfSize(1 to yy, 1 to 1) 
    X = .Value2 ' or X = WorksheetFunction.Transpose(.Value2) to rotate it 
End With