I am not sure about splitting the data among different worksheets, but I can provide a Macro which can help you to split data among columns. Hope by modifying it you can
get the result which you are expecting.
Code:
Range ("A1"). Select
Application.ScreenUpdating = False
'Running the macro
Do While Not IsEmpty (ActiveCell)
"First we look at which cell we are,
'To return to her once tidy row
dondeestoy = ActiveCell.Address
'Decompose the string into substrings,
'To which indicate the delimiter "#"
ActiveCell = Replace (ActiveCell, "/", "#")
'ActiveCell = Replace (ActiveCell, "'", "#")
'ActiveCell = Replace (ActiveCell, "" "" "#")
data = Split (ActiveCell, "#")
For i = 0 To UBound (data)
'We each data array in a column
ActiveCell = data (i)
'We move to the adjacent column (at right)
ActiveCell.Offset (0, 1). Select
Next 'continue with the loop
'We are back where we were initially
Range (dondeestoy). Select
'Pass to the next row, and go back to the loop
ActiveCell.Offset (1, 0). Select
Loop
'Show all over again
Application.ScreenUpdating = True
End Sub
Bookmarks