Manipulating strings

Hi
You can try this approach with this code in a module

Option Explicit

Function ExpandStr_Col(ByVal rng As Range, col As Integer) As Variant

On Error Resume Next

    Dim s As String, f As String, r As String
    Dim i As Integer, j As Integer, k As Integer, m As Integer, w As Integer
    
    s = rng.Value: k = 1: f = ""
    Do
        i = InStr(k, s, "("): r = Mid(s, k, i - k): j = InStr(i + 1, s, ")")
        f = f & r & "("
        For m = i + 1 To j
            If Mid(s, m, 1) = "," Then f = f & ")," & r & "(" Else f = f & Mid(s, m, 1)
        Next m
        If m < Len(s) Then f = f & ","
        k = m + 1
    Loop Until k >= Len(s)
    w = Len(s) - Len(Replace(s, ",", "")) + 1
    For i = w To col: f = f & ",": Next i
    
    ExpandStr_Col = Split(f, ",")
    
End Function

and using a array formula (need to be enter with Ctrl+Shift+Enter)
Select C2:Q2 and use this formula

Formula:

=ExpandStr_Col(A2,15)

where 15 is the maximum length of the array. (you can change that)
Select C2:Q2 and copy down

See the file