Как "преобразовать" двухмерный массив в одномерный?

Категория: Basic

2012-09-21 16:42:16

code: #vba

Dim iMassiv As Variant, iNewMassiv As Variant
 
iMassiv = Range("A1:A10").Value
iNewMassiv = Application.Transpose(iMassiv)

Если нет необходимости в использовании первой переменной, содержащей массив значений указанного диапазона, то транспонировать массив можно напрямую :

code: #vba

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

Поделиться:

Sample Code