EXCEL Necesito invertir los datos de una tabla
¿Cómo están?
Estoy necesitando transformar la siguiente tabla dada, ya no se como hacerlo, lo intente de todas las formas .
Tabla Madre:
Tabla resultante :
¿Me ayudan?
3 respuestas
Si lo que quieres decir es lo que yo he entendido, o sea, colocar las columnas como filas y viceversa, sería así:
- Seleccionar el rango completo de tu tabla
- Colocar el cursor en la celda donde vas a pegar la tabla invertida
- Copiar + Pegado Especial
- Transponer
- Pegar
Gracias por la respuesta, pero Trasponer no me funciona, creo que me exprese mal, no seria una trasposicion sino más bien una reorganización de la información.
La info llega en columnas, Columna legajos, columna de horas, columna de días. La informaron estoy necesitando estructurarla de la siguiente forma:
Una columna que tenga los legajos, otro columna que tenga los conceptos, en este caso HORAS, DÍAS, ETC, y después una tercer columna que muestre el valor que tiene para cada empleado y su respectivo concepto.
Vamos a ver.
Quien tiene que tener claro cuántas columnas quieres y cómo las quieres, eres tú.
En función de eso, los demás te podemos resolver dudas. Pero esa decisión es únicamente tuya.
Yo solamente te puedo decir lo que yo haría en tu lugar, si es que te he entendido bien, sería crear una fila superior por encima de las cabeceras que tienes de la forma que muestra la foto:
A las columnas laterales le tendrás que asignar un nombre distinto al que yo he puesto.
[Hola
Te paso la macro
Valora la respuesta como excelente para finalizar
Sub Organizar_datos()
'Por Adriel Ortiz
'
Set h1 = Sheets("Hoja1") 'hoja origen
Set h2 = Sheets("Hoja2") 'hoja destino
'
h2.Rows("2:" & Rows.Count).Clear
k = 4
h2.Cells(3, "D").Value = "LEGAJO"
h2.Cells(3, "E").Value = "CONCEPTO"
h2.Cells(3, "F").Value = "VALOR"
For i = 3 To h1.Range("D" & Rows.Count).End(xlUp).Row
For j = 4 To h1.Cells(i, Columns.Count).End(xlToLeft).Column - 1
'
h2.Cells(k, "D").Value = h1.Cells(i, "D").Value
h2.Cells(k, "E").Value = h1.Cells(2, j + 1).Value
h2.Cells(k, "F").Value = h1.Cells(i, j + 1).Value
k = k + 1
Next
Next
MsgBox "Fin"
End Sub