Как собрать только число из строки и составить их список?

Question

У меня есть столбец ячеек, например: [[[3,0, [5,0, 6,0]], [6,0, 6,0], [3,0, [6,0, 5,0]]] Как разбить его строку так, чтобы каждый числовой значение из этой ячейки будет добавлено в список / массив с VBA?

Answer 1

Посмотрите на приведенный ниже пример:

Sub Test()

    q = "[[[3.0, [5.0, 6.0]], [6.0, 6.0], [3.0, [6.0, 5.0]]]"
    Do
        w = Len(q)
        q = Replace(q, "[[", "[")
        q = Replace(q, "]]", "]")
    Loop Until w = Len(q)
    q = Replace(q, "], [", "|")
    q = Replace(q, ", [", "|")
    q = Replace(q, "],", "|")
    q = Mid(q, 2, Len(q) - 2)
    a = Split(q, "|")

End Sub

Полученный массив: