Excel VBA：在一行中添加一行到变体数组

我想添加一行到一个变种数组：

Dim arrMod As Variant arrMod(numberOfRow) = Array(myValue1, myValue2, myvalue3) 

这段代码的执行导致一个exception：错误13：types不匹配我怎样才能做到这一点，而不需要迭代每一列？

谢谢，

问候

Answer 1

你的variablesarrMod不是一个数组。 您需要使用圆括号在VBA中将其定义为数组：

 Dim arrMod(0) As Variant 

显然用你所拥有的最大行数replace0，或者用redim preservedynamicresize。

Answer 2

你需要这样的东西：

 Dim arrMod() For i = 1 To 5 ReDim Preserve arrMod(i) arrMod(i) = i MsgBox Join(arrMod, vbCrLf) Next i