Necesito copiar tantas columnas como datos separados tengo en una celda

estepanuno · el 3 de diciembre

Hola a todos

necesitaria,como podeis ver en el libro de ejemplo que acompaño,un macro que me copiara el resto de las filas pero que esa en concreto me la separar por el signo+ y que me la fuera copiando consecutivamente

gracias a todos por vuestro tiempo

Prueba .xls

Antoni · el 3 de diciembre

________________________________________________________

Añade una hoja con el nombre Hoja2 y ejecuta esta macro desde la Hoja1.

Sub ExplotarColumnaE()

fila = 2

For x = 2 To Range("A" & Rows.Count).End(xlUp).Row

  líneas = Split(Range("F" & x), "+")

  For y = 0 To UBound(líneas)

      Range("A" & x & ":E" & x).Copy Hoja2.Range("A" & fila)

      Hoja2.Range("F" & fila) = líneas(y)

      fila = fila + 1

  Next

Next

End Sub[/CODE]

________________________________________________________

.