VBAで配列に値を代入する方法はありますか？

Question

私はいくつかのexcel-VBAを書いています。インデックス1から11の配列に整数の数（合計11）を割り当てています。今は一度に1つのインデックスを作成しています。 Matlabのように1行で行う方法と似ています。私はそれが配列として変数を定義することなく行うことができることを認識しています

Dim cols(1 To 11) As Integer 

cols = [2,3,5,6,7,9,10,13,14,15,16] 

、しかし：

Dim cols(1 To 11) As Integer 

cols(1) = 2 
cols(2) = 3 
cols(3) = 5 
cols(4) = 6 
cols(5) = 7 
cols(6) = 9 
cols(7) = 10 
cols(8) = 13 
cols(9) = 14 
cols(10) = 15 
cols(11) = 16 

を、私はそれをしたいと思っ方法：どのように私はそれを今やっている

Variant配列がOKであれば

Dim cols As Variant 

cols = Array(2,3,5,6,7,9,10,13,14,15,16] 

Answer 1

：それは私のために望ましくない10のインデックス0の配列を返します

Dim cols() 
cols = [{2,3,5,6,7,9,10,13,14,15,16}] 

Answer 2

あなたの代わりに1行の2行で大丈夫であれば、あなたはこれを試すことができます。

Dim cols As Variant 

cols = Array(2,3,5,6,7,9,10,13,14,15,16) 
ReDim Preserve cols(1 To UBound(cols) + 1)