Pasar de columnas a filas en excel
Alguien sabrá como pasar las columnas a filas.
Ejemplo: tengo la siguiente tabla
ColID col1 col2 col3 1 as qw zx 2 ad qe zc 3 af qr zv 4 ag qt zb
colid 1 col1 as 1 col2 qw 1 col3 zx 2 col1 ad 2 col2 qe 2 col3 zc 3 col1 af 3 col2 qr 3 col3 zv 4 col1 ag 4 col2 qt 4 col3 zb
y que me de este resultado.
1 Respuesta
Respuesta de Dante Amor
2
Ejecuta la siguiente macro.
Pon tu información en la "Hoja1", los títulos deben empezar en la celda A1 y los datos en la celda A2, el resultado quedará en la "Hoja2"
Sub Pasar_a_Filas()
'Por Dante Amor
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
'
h2.Cells.Clear
k = 2
For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row
For j = 2 To h1.Cells(1, Columns.Count).End(xlToLeft).Column
h2.Cells(k, "A").Value = h1.Cells(i, "A").Value
h2.Cells(k, "B").Value = h1.Cells(1, j).Value
h2.Cells(k, "C").Value = h1.Cells(i, j).Value
k = k + 1
Next
Next
h2.Select
MsgBox "Fin"
End Sub'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. '.[Avísame cualquier duda
