REPETIR CADENA CELDA EN FILAS TANTAS VECES SE REPITA LA CADENA

[Lydia]

Hola!!

A ver si alguien me puede ayudar con una macro, necesito transponer  los registros que están contenido en una celda que tienen un separador "|".

Pongo un ejemplo:

Inicialmente tengo esto 2 columnas:

refe  productos

A       1|2|3|4|5

B       6|7

Y quiero que la macro en cuestión me lo haga así:

refe productos

A      1

A      2

A      3

A      4

A      5

B     6TRANSPONER CADENA TANTAS VECES SE REPITA.xlsx

B     7

 

Muchas gracias de antemano.

Un saludo.

[Antoni]

Sub Transponer()
Application.ScreenUpdating = False
fila = 1
For x = 2 To Range("A" & Rows.Count).End(xlUp).Row
   cadena = Split(Range("B" & x), "|")
   For y = 0 To UBound(cadena)
      fila = fila + 1
      Range("D" & fila) = Range("A" & x)
      Range("E" & fila) = cadena(y)
   Next
Next
End Sub

 

[Lydia]

Muchas gracias!!! Funciona a la perfección.

Un saludo