如何从vba中的数组获得一维vector

有谁知道如何从VBA中的一列数组中获得一个真正的向量？ 我已经完成了以下步骤：

'' read one column from 2D array Dim ixy() ixy = Application.Index(ts.Vertices, , 1) 

而且一切都看起来很好，直到我想ReDimvector，并添加一个更多的价值到最后：

 ReDim Preserve ixy(LBound(ixy) To UBound(ixy) + 1, 1 To 1) ixy(UBound(ixy)) = ts.Vertices(1, 1) 

这根本行不通，因为我不能ReDim非数组的最后一维。 那么如何通过从数组中读取一列来获得一个向量呢？ 在本地窗口variablesixy看起来+ : ixy : : Variant(1 to 32, 1 to 1)所以它不是1D数组。

我知道如何遵守循环，但只是想用最less的代码find清晰的解决scheme。 有什么build议么？

Answer 1

从INDEX函数备注部分：

如果将Row_num或Column_num设置为0（零），INDEX将分别返回整个列或行的值数组。

 ixy = Application.Index(ts.Vertices, 0, 1) 

要么

 ixy = Application.Transpose(ts.Vertices)