I am using a Macro to separate characters from a string in a cell using text to columns as shown below.
Sub Separate()
'
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False...