2017-03-02 23 views
1

配列には4列のデータがあります。 Excelに1行を貼り付けたいのですが。 (アレイ全体ではありませんが)多次元配列から特定の範囲へのVBA値

現在、私は4行のコードで処理していますが、代わりに単純な1行コードが存在する可能性があります。

 Cells(i, 1).Value = myArry(i, 1) 
     Cells(i, 2).Value = myArry(i, 2) 
     Cells(i, 3).Value = myArry(i, 3) 
     Cells(i, 4).Value = myArry(i, 4) 

シンプルなソリューションを提案できますか? ありがとうございます。

p.s.投稿への編集は歓迎です。

答えて

3

あなたは

Range(Cells(i, 1), Cells(i, 4)).Value = Application.Index(myArry, i) 
+1

うーん2次元配列のうちの行(または列)を抽出するためにIndexを使用することができます - 私は好きです! (配列が '1からxxへの次元になっているので、デフォルトでは' 0からxx'にならないように注意する必要があります) – YowE3K

+0

@ YowE3Kありがとうございます。コードはまだ '0'ベースの配列で動作します。しかし、私は明示的に '(Re)Dim(Lower To Upper ...)'を使用し、配列を範囲に移動するときに '1'の下限を使用します。 –

+0

@ YowE3K、どういう意味ですか?あなたは私のためにちょっとそれを愚かにすることはできますか? –

関連する問題