訪問存儲在單個單元格中的數組

Question

因此，我在工作簿的cell（1,1）中放置了一個數組={1,2,3} 。

我如何將其分配給VBA中的變量數組，例如，將dim i() as integer ？

同樣，如何在VBA中采用數組並將其分配給工作表中的單個單元格？

Answer 1

要將陣列放入VBA，可以執行以下操作：

Dim i As Variant
i = Split(Mid(Replace(Cells(1, 1).Formula, "}", ""), 3), ",")

並放回數組：

Cells(2, 1).Formula = "={" & Join(i, ",") & "}"

Answer 2

這將直接為您提供一個數組：

Sub TT()

    Dim arr
    arr = Selection.Parent.Evaluate(Selection.Formula) '={1,2,3}

    Debug.Print TypeName(arr)             'Variant()
    Debug.Print LBound(arr), UBound(arr)  '1, 3

End Sub

Answer 3

這些：

aArray = Split(rRange, ",")
rRange = Join(aArray, ",")