Hi,
Welcome to the forum 
See the attached workbook for a macro....
Sub SplitData()
Dim rC As Range
Dim x As Long
Dim i As Long
Dim a As Long
Dim c As Long
Application.ScreenUpdating = False
c = Range("A" & Rows.Count).End(xlUp).Row
For Each rC In Range("A2:A" & c).Cells
x = Len(rC.Value) - Len(Replace(rC.Value, ",", ""))
For i = 1 To x + 1
a = Split(rC.Value, ",")(i - 1)
Cells(rC.Row, a + 1).Value = 1
Next i
Next rC
On Error Resume Next
Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks).Value = 0
Application.ScreenUpdating = True
End Sub
Bookmarks