Como coletar apenas um número de uma string e construir uma lista deles?

Question

Eu tenho uma coluna de células como: [[[3,0, [5,0, 6,0]], [6,0, 6,0], [3,0, [6,0, 5,0]]] Como quebro sua string para que cada valor numérico dessa célula seja anexado a uma lista / array com VBA?

    

Answer 1

Veja o exemplo abaixo:

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

A matriz resultante: