Option Explicit
Sub abc()
Dim a, i, j, t(2)
a = Range("e5:e" & [e5].End(xlDown).Row).Value
t(0) = Split("(,(,),)", ",")
For i = 1 To UBound(a)
For j = 0 To UBound(t(0)) Step 2
a(i, 1) = Replace(a(i, 1), t(0)(j), t(0)(j + 1))
Next
t(1) = Split(a(i, 1), "】")
For j = 1 To UBound(t(1))
t(2) = t(2) & Split(t(1)(j), "【")(0)
Next
t(2) = Replace(t(2), Space(1), vbNullString)
If Len(t(2)) Then a(i, 1) = Evaluate(t(2)) Else a(i, 1) = vbNullString
t(2) = vbNullString
Next
[f5].Resize(UBound(a)) = a
End Sub