Separa datos de una celda

hola, Oscar !

En la celda A1 tengo varios datos separados por coma: dato1, dato2, dato3...
Necesito separar estos datos y poder cada uno en una celda de manera que quede:
A1 dato1
A2 dato2
A3 dato3
..
asi hasta separar todos los datos. puede haber hasta 100 datos sugerencias?

como quieres afectar la celda misma donde esta el dato que vas a separar, se requiere usar macros (p.e.)

Sub Distribuye()
Dim Matriz As Variant
Matriz = Split(Range("a1"), ",")
Range("a1").Resize(UBound(Matriz)).Value = Application.Transpose(Matriz)
End Sub

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.