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.

Ok. muchas gracias


"Héctor Miguel" escribió en el mensaje de
noticias news:

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.

Hola! mi estimado Héctor M. Te agradecería que verifiques si

Resize(UBound(Matriz))

es suficiente...

Me parece que se requiere:

Resize(1 + UBound(Matriz))


¿Podrías verlo?
Saludos, Cacho.

hola, Cacho !

... Te agradeceria que verifiques si Resize(UBound(Matriz)) es suficiente...
Me parece que se requiere: Resize(1 + UBound(Matriz))
Podrias verlo?

es correcta tu observacion... omiti comentar que la prueba la realice sobre excel 97
(donde no hay funcion split en vba, ya que esta se incluye hasta la version 6 de VB)
y la funcion (split) construida devuelve matrices con base-1 (no con base-0 como VBA6)

mis disculpas por la omision, y gracias Cacho por la observacion ;)

saludos,
hector.