将值存储到多维数组中答案

【问题标题】：Storing values into a multidimensional array将值存储到多维数组中
【发布时间】：2017-05-18 09:53:00
【问题描述】：

我正在尝试 Redim 具有多个列的数组，例如：

Dim f() as Variant
ReDim f(0 To 0, 0 To 0) As Variant
ReDim Preserve f(0 To UBound(f), 0 To UBound(f))

要获得这样的东西：

[15   34   70]

当我尝试存储到数组中时，我正在这样做：

f(0,i) = ...
f(1,i) = ...
f(2,i) = ...

代码有什么问题？

【问题讨论】：

UBound(f) 为零。当你把它的大小精确到 3 时？它也是一维的 [15 34 70]。多维是什么意思？
对于每一列我使用不同的公式。
完全不清楚你在问什么。显示实际代码和实际问题。
已经解决了。当多维数组已经标注ReDim f(0 To 0, 0 To 0) As Variant时，我试图ReDim Preserve f(0 To UBound(f), 0 To Ubound(f))
如果解决了，请告诉我们答案。发布答案！

标签： arrays vba multidimensional-array

【解决方案1】：

我想创建一个 1 行 3 列的数组，其中列数可以增加。首先，我需要重新定义空数组 (Dim f() As Variant) 的尺寸，如下所示 (ReDim f(0 To a, 0 To 3))。上面的代码不起作用，因为我试图 Redim 已经确定尺寸的数组。

其次，我希望数组返回：

f(0,i) = "Bring the value from, for instance, cells A9"
f(0,i+1) = "Bring the value from, for instance, cells A16"
f(0,i+2) = "Bring the value from, for instance, cells G16"

【讨论】：