excel - 如何使用包含方括号数组的 excel 单元格中的值初始化 VBA 中的数组？

Question

我想从一个充满用户选择的类(class)的单元格中获取一个数组:

["Java","Visual Basic for Applications"]

我想从 VBA 数组中的数组中复制元素:

Dim IndividualCourses(1 To 9) As String

来自 excel 单元格的数组可以保存至少 1 到 10 个值，并且通过 Wix 表单提供。

Answer 1

这应该有效。

Sub test()
    Dim data() As Variant
    Dim arrStr As String
    Dim dataItems As Long
    Dim i As Long
    Dim IndividualCourses(1 To 9) As String

    arrStr = Range("B2")
    arrStr = Replace(Replace(arrStr, "[", "{"), "]", "}")
    data = Application.Evaluate(arrStr)
    dataItems = Application.CountA(data)
    For i = 1 To dataItems
        IndividualCourses(i) = data(i)
    Next i
End Sub