Преобразовать двухмерный массив в одномерный — Visual Basic(Бейсик)

Dim iMassiv As Variant, iNewMassiv As Variant
 
iMassiv = Range("A1:A10").Value
iNewMassiv = Application.Transpose(iMassiv)
Если нет необходимости в использовании первой переменной, содержащей массив значений указанного диапазона, то транспонировать массив можно напрямую :

iMassiv = Application.Transpose(Range("A1:A10").Value)
 
iMassiv = [Transpose(A1:A10)]