將VBA計算值存儲在數組中

Question

尊敬的專家，我想將每個值存儲在VBA循環計算的VBA-Array中。 循環完成后，我想使用該VBA-Array進行進一步的計算。下面的示例將更具體地說明我的問題。

Sub macro3()

For x = 1 To 5
xx = 1 + x
Next

End Sub

基本上，每個從上面的循環派生出的ie（2,3,4,5,6）的答案都必須存儲在“特殊數組”中，或者存儲在某種幫助我使用每個值的ie（2,3,4,5,6）的東西中）再次進行進一步的計算。整個活動只能從VBA內存中完成。基本上我不想使用Excel Spreadsheet范圍來存儲每個Loop Value，然后將該電子表格范圍定義為Array。

Answer 1

如果知道元素的數量，則下面的代碼將創建一個名為“ answer”的數組（請參閱DIM語句），該數組包含五個評估：

Sub macro3()

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

End Sub

我懷疑您所追求的可能比這復雜一些，因此，請提供更多詳細信息。

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