Excel - Convertir Filas en Columnas

 
Vista:
sin imagen de perfil
Val: 6
Ha disminuido su posición en 14 puestos en Excel (en relación al último mes)
Gráfica de Excel

Convertir Filas en Columnas

Publicado por Michael Elvis mecd_14@outlook.com (2 intervenciones) el 19/09/2019 23:26:39
Buenas tardes, tengo una tabla en excel de 20 columnas y 5000 filas, el código viene en la primera columna y el resto son datos ingresados según atención, quiero que esta tabla tenga solo 3 columnas, osea hacer que las 3 columnas se queden en su misma posición y las 17 restantes pasen a la siguientes filas pero sin perder el código principal para las demás filas.

Ejemplo: esta seria la tabla inicial

0001 pedro zapato televisor dulces fideos camote, etc

debe ser así

0001 pedro zapato
0001 pedro televisor
0001 pedro dulces
0001 pedro fideos,etc

todo este trabajo realizarlo con macros vba
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 3.862
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Convertir Filas en Columnas

Publicado por Antoni Masana (1293 intervenciones) el 20/09/2019 08:11:04
Lo que desea es hacer un movimiento de datos y lo mejor es hacer una macro que tome los datos de la hoja origen ( la que tiene las 20 columnas ) y los escriba en una nueva hoja.

Aqui te dejo la macro. Seguramente tendrás que hacer algún ajuste:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Option Explicit
 
Sub copiar()
    Dim Fila_Orig As Long, Colu_Orig As Integer, _
        Fila_Dest As Long
 
    Sheets("HOJA1").Select
    Fila_Orig = 1
    Fila_Dest = 0
 
    While Cells(Fila_Orig, "A") <> ""
        Colu_Orig = 3
        While Cells(Fila_Orig, Colu_Orig) <> ""
            Fila_Dest = Fila_Dest + 1
            With Sheets("HOJA2")
                .Cells(Fila_Dest, "A") = Cells(Fila_Orig, "A")
                .Cells(Fila_Dest, "B") = Cells(Fila_Orig, "B")
                .Cells(Fila_Dest, "C") = Cells(Fila_Orig, Colu_Orig)
            End With
            Colu_Orig = Colu_Orig + 1
        Wend
        Fila_Orig = Fila_Orig + 1
    Wend
    MsgBox "Fin de la Macro"
End Sub

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil
Val: 6
Ha disminuido su posición en 14 puestos en Excel (en relación al último mes)
Gráfica de Excel

Convertir Filas en Columnas

Publicado por Michael Elvis (2 intervenciones) el 20/09/2019 21:45:15
MUCHAS GRACIAS, TE PASASTE Y SI ME FUNCIONA, ALGUNAS MODIFICACIONES LO REALIZARE.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar