Pasar datos de columna a fila masivamente

[Victoriabap]

Hola, tengo la siguiente duda, necesito pasar de columna a fila de manera masiva, ejemplo:

Lo que tengo:

4321; A04

4321; A03

4321; A04

8765; A01

8765; A02

8765; A03

Y lo que necesito es:

4321; A03; A03; A04

8765: A01; A02; A03

Son  varios códigos distintos (4321, 8765q), con distintos datos que cambiar de columna a fila, ocupar la función trasponer me ocupara mucho tiempo.

 

 

[JasallBcn]

buenos días, los datos son filas diferentes ?

están los datos en una única celda ?

el salto de linea es visual o realmente hay una linea en blanco entre datos ?

Lo mismo con el resultado, acaban en una sola celda , con delimitador ; ? o el delimitador ; se refiere a cambio de celda

 

saludos

 

[JasallBcn]

Buenas de nuevo, si la opción es los datos están en una misma celda ( ejemplo B3 ) , te dará el resultado en B4 y B5

Sub transformar()

Dim lista() As String
Dim i As Double, x As Double
Range("A4:xfd6") = ""
' los datos estan en la celda B3
lista = Split(Replace(Range("b3"), Chr(10), ";"), ";")

For i = 0 To UBound(lista)
If lista(i) <> "" Then
 Range("b4").Offset(0, x) = lista(i) ' te lista en columnas
 Range("b5") = Range("b5") & lista(i) & ";" ' te lista en una sola celda
 x = x + 1
End If

Next i

End Sub

saludos.

[Antoni]

Abre el adjunto y pulsa sobre la flecha azul.

Transponer grupo.xlsm