The code below gathers numbers from a set range and then consolidates
them to one cell:
E F G ... V
1 No 3 ... 1,No,3,...

Sub StrgGen()
Set nana = Range("E12:T12")
Range("V12").ClearContents
increment = 1
For Each c1 In nana
If increment = 1 Then
Range("V12").Value = c1.Value
increment = 2
Else
Range("V12").Value = Range("V12").Value & "," & c1.Value
End If
Next c1
End Sub

I am curious to know if there is a way to disassemble the generated
string. The values of the cells are not restricted and thus the
string will vary in length. Does anyone have any solutions? Any help
will be greatly appreciated.