Excel VBA: 在一行中向变体数组添加一行

Question

我想向变体数组中添加一行：

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

执行这段代码出现异常：错误13：类型不匹配如何在不迭代每一列的情况下做到这一点？

谢谢，

此致

Answer 1

您的变量 arrMod 不是数组。您需要在 VBA 中使用括号将其定义为数组：

Dim arrMod(0) As Variant

显然用您拥有的最大行数替换 0，或者使用 redim preserve 动态调整大小。

Answer 2

你需要这样的东西吗：

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

Excel VBA: adding a row to a variant array in one line