VBA

Visual Basic for Applications

SeparateString

Parse comma-delimited string into columns:

Sub SeperateString()
Dim fullname As String, commaposition As Integer, i As Integer
For i = 3 To 7
fullname = Cells(i, 2).Value
commaposition = InStr(fullname, ",")
Cells(i, 3).Value = Mid(fullname, commaposition + 2)
Cells(i, 4).Value = Left(fullname, commaposition - 1)
Next i
End Sub