访问存储在单个单元中的数组

所以，我在工作簿中的单元格（1,1）中放置了一个数组={1,2,3} 。

我怎样才能把这个分配给VBA中的一个variables数组，比如dim i() as integer ？

同样，我怎样才能在VBA中获取数组并将其分配给工作表中的单个单元格？

Answer 1

要将数组放入VBA中，可以这样做：

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

并把arrays回来：

 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, ",")