Hi
Paste these codes in the macro window ( Alt F11) and run the macro
Sub nathan()
Dim a As Long, b As Long, c As Long
Dim x As String
For a = 1 To Cells(Rows.Count, 6).End(xlUp).Row
x = Cells(a, 6)
b = InStr(x, ",")
c = InStrRev(x, ",")
Cells(a, 7) = Left(x, b - 1)
Cells(a, 8) = Mid(x, b + 1, c - b - 1)
Cells(a, 9) = Right(x, Len(x) - c)
Next a
MsgBox "complete"
End Sub
It splits the strings in col F into left, Middle and right and puts them in col G,H & I
You can experiment with it by changing one parameter at a time and observing how it affects the results.
Ravi
Bookmarks