Array内の「空」の用法（）

Question

aProducts(lRow) = Array("Id Product", "Value A", "Value B") 

'To copy value A 
aProducts(lRow) = Array(.Cells(aPos(1)).Value2, .Cells(aPos(2)).Value2, Empty) 

'To copy value B 
aProducts(lRow) = Array(.Cells(aPos(1)).Value2, Empty, .Cells(aPos(3)).Value2) 

こんにちはみんな、

私はいくつかの値とそのIDをコピーするループ内のコードのこの部分を使用していますが、とにかく、今私が理解したいのですがより多くの価値を追加するためにこのコードで "Empty"を使用する

私が試した：

aProducts(lRow) = Array("Id Product", "Value A", "Value B", "Value C") 

'To copy value A 
aProducts(lRow) = Array(.Cells(aPos(1)).Value2, .Cells(aPos(2)).Value2, Empty) 

'To copy value B 
aProducts(lRow) = Array(.Cells(aPos(1)).Value2, Empty, .Cells(aPos(3)).Value2) 

'To copy value C 
aProducts(lRow) = Array(.Cells(aPos(1)).Value2, Empty, Empty, .Cells(aPos(4)).Value2) 

"Execusiionエラー9"

事前のおかげで、私のおおよその英語のため申し訳ありません：/

EDIT 1

をあなたが得ることができますファイル：https://drive.google.com/file/d/0B5DpGwPWsIfbWWlJRDAzZldYek0/view?usp=sharing

あなたのすべてにの

EDIT 2

おかげで、私はちょうど私が

ReDim Preserve aProducts(lRow) 

Answer 1

は、次のように書く：

Option Explicit 

Sub TestMe() 

    Dim arr_var  As Variant 

    arr_var = Array(Empty, Empty, 5) 
    Stop 
End Sub 

そして、それを実行します。 arr_varをマウスでクリックし、Shift + F2を押すと、次のように表示されます。 "Leer"はドイツ語で "Empty"を意味します。

Answer 2

いあなたのためにこの作品を削除するのを忘れてきたことがわかりましたか？コピーしたときに最後のものを更新するのを忘れたようです。

aProducts(lRow) = Array("Id Product", "Value A", "Value B", "Value C") 

'To copy value A 
aProducts(lRow) = Array(.Cells(aPos(1)).Value2, .Cells(aPos(2)).Value2, Empty, Empty) 

'To copy value B 
aProducts(lRow) = Array(.Cells(aPos(1)).Value2, Empty, .Cells(aPos(3)).Value2, Empty) 

'To copy value C 
aProducts(lRow) = Array(.Cells(aPos(1)).Value2, Empty, Empty, .Cells(aPos(4)).Value2) 

私はまた、あなたの代わりに3の4を持っている.Cells(aPos(4)).Value2)を更新したいと思います。