Paste VBA массив

Question

У меня есть этот код, который будет заполнять массив

Sub rangearray() 

    Dim arr() As Variant 
    Dim Rng As Range 
    Dim myCell As Range 
    Dim i As Integer 

    Set Rng = ActiveSheet.Range("G10:G14") 

    For Each myCell In Rng 
     ReDim Preserve arr(i) 
     arr(i) = myCell 
     i = i + 1 
    Next myCell 

    ActiveSheet.Range("H10:H14") = arr() 

End Sub 

Здесь вы можете увидеть, что значения в окне просмотра то, что было загружено в

Кроме этого, Когда я добавляю массив обратно в рабочую книгу, он только отбрасывает первый элемент массива.

Можно ли вставить весь массив в лист без петли через массив?

UPDATE После взглянуть на ссылке с Sorceri я изменен код, чтобы использовать функцию .Transpose, поэтому мои поправки код выглядеть следующим образом:

Sub rangearray() 

    Dim arr() As Variant 
    Dim Rng As Range 
    Dim myCell As Range 
    Dim i As Integer 

    Set Rng = ActiveSheet.Range("A1:A5") 

    For Each myCell In Rng 
     ReDim Preserve arr(i) 
     arr(i) = myCell 
     i = i + 1 
    Next myCell 

    ActiveSheet.Range("B1:B5") = WorksheetFunction.Transpose(arr) 

End Sub 

Answer 1

вы хотите использовать транспонированная рабочая таблица http://msdn.microsoft.com/en-us/library/office/ff196261.aspx

См. ниже. Вы должны присвоить его значение в диапазоне в

Sub rangearray() 

Dim arr() As Variant 
Dim Rng As Range 
Dim myCell As Range 
Dim i As Integer 

Set Rng = ActiveSheet.Range("A1:A5") 

For Each myCell In Rng 
    ReDim Preserve arr(i) 
    arr(i) = myCell 
    i = i + 1 
Next myCell 

ActiveSheet.Range("B1:B5").Value = WorksheetFunction.Transpose(arr) 

End Sub 

Answer 2

Как я уже говорил в моем комментарии выше, что вам не нужен массив, чтобы выполнить действие, которое вы пытаетесь сделать, но до сих пор, если вы хотите только раствор массива, то вы не нужно проходить длинный путь заполнения массива в цикле. Непосредственно присвойте значение диапазона массиву. Он создаст 2D-массив, который вам не нужно транспонировать.

Sub rangearray() 
    Dim arr 
    Dim Rng As Range 

    With ActiveSheet 
     Set Rng = ActiveSheet.Range("G10:G14") 

     arr = Rng.Value 

     .Range("H10").Resize(UBound(arr, 1)).Value = arr 
    End With 
End Sub