将单元格中的值分隔到数组中答案

【问题标题】：Separate values in cell into an array将单元格中的值分隔到数组中
【发布时间】：2020-05-28 00:46:13
【问题描述】：

我有多个包含以逗号分隔的值的单元格。其中一些单元格以撇号或逗号开头，而另一些则以数字开头。我尝试使用arrNew = range("A1").value（其中单元格 A1 包含要放入数组的数据），但这只会返回一个包含整个字符串的变量。

有没有办法使用 VBA 来拆分数据，以便单元格中的每个值都正确地作为单独的元素在数组中？

【问题讨论】：

Split 可能会有所帮助。
您有实际样本数据和预期回报吗？另外，VBA 是必须的吗？
@JvdV VBA 是必须的，因为单元格中有数千行数据和数百个值。还有 VBA，因为没有其他语言（python 等可用）。

【解决方案1】：

试试这个：

Public Function parsee(s As String)
    Dim arr, temp, i As Long
    arr = Split(s, ",")
    ReDim temp(1 To 1, LBound(arr) To UBound(arr))
    For i = LBound(arr) To UBound(arr)
        temp(1, i) = arr(i)
    Next i

    parsee = temp
End Function

只需选择与 A1 相邻的单元格块并数组 - 输入公式。

因为我使用的是Excel 365，所以公式不需要数组输入；它只是水平溢出。

【讨论】：