存储VBA计算数组中的值

尊敬的专家，我想将每个值存储在由VBA循环计算的VBA数组中。 循环完成后，我想使用该VBA数组我的进一步计算。下面的例子更具体地解释我的问题。

Sub macro3() For x = 1 To 5 xx = 1 + x Next End Sub 

基本上，从上面的循环得到的每个答案（2,3,4,5,6）都必须存储在特定的数组或者帮助我使用每个值的东西（2,3,4,5,6 ）我的进一步计算。整个活动必须从VBA内存Only.Basically我不想使用Excel Spreadsheet范围来存储每个循环值，然后将该电子表格范围定义为数组。

Answer 1

如果知道元素的数量，那么下面将创build一个名为“answer”的数组（参见DIM语句），该数组包含五个评估：

 Sub macro3() Dim answer(1 To 5) For x = 1 To 5 answer(x) = 1 + x Next End Sub 

尽pipe如此，我怀疑你所追求的可能会比这更复杂一些，所以如果是这样的话，请详细说明一下。

Answer 2

除了CLR的答案 – 如果你不知道元素的数量，ReDim数组的基本公式会看起来像这样 –

 Sub macro3() Dim x As Integer Dim xx() As Variant For x = 1 To 5 ReDim Preserve xx(0 To x - 1) xx(x - 1) = 1 + x Next End Sub