Dim arr As Variant
Dim lastRow As Integer
For i = 1 To lastRow
    lastRow =  Sheets("Sheet1").Range("B1").End(xlDown).Row
    arr = Split(Sheets("Sheet1").Cells(i, 2), ",")
    For Each things In arr
       'Do something
    Next
Next