貼り付け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