Быстрое преобразование размерности массива в COM без потери данных.

Sub TestArrayDtoD()
Dim r As New BedvitCOM.VBA 'раннее связывание
Dim t, arr, i
arr = [a1:a1000000]
t = Timer
For i = 1 To 1000000
    r.Array2Dto1D arr 'в одномерный (нижняя граница = 0 - по умолчанию)
    r.Array1Dto2D arr, 1, 1 'в двухмерный с 1м столбцом, нижние границы измерений = 1
Next
Debug.Print "Time: " & Timer - t & " sec."
End Sub

Sub TestArrayDtoD_()
    'Dim bVBA As New BedvitCOM.VBA 'раннее связывание
    Dim bVBA As Object: Set bVBA = CreateObject("BedvitCOM.VBA") 'позднее связывание
    Dim arr
    arr = [a1:b10] ' забираем массив 2 столбца, 10 строк
    bVBA.Array2Dto1D arr 'в одномерный (нижняя граница = 0 - по умолчанию)
    bVBA.Array1Dto2D arr, 1, 1, 10 'преобразуем в двухмерный с 10ю столбцами и 2 строками, нижние границы измерений = 1, порядок данных сохраняется исходный
    Cells(1, 1).Resize(UBound(arr, 1), UBound(arr, 2)) = arr 'нового размера массив со старым порядком данных
End Sub