¿Cómo transponer y apilar datos en Excel de forma rápida y sencilla?
Por ejemplo, algunos datos aparecen agrupados y ahora quiero transponer el rango y apilar los datos de cada columna, tal como se muestra en la siguiente captura de pantalla. En este artículo, te presento los métodos para llevar a cabo esta tarea en Excel.
Transponer y apilar datos con VBA
Transponer y apilar datos con la herramienta Transponer tabla Dimension de Kutools 
Transponer y apilar datos con VBA
Puede aplicar un código VBA para transponer y apilar los datos.
1. Seleccione los datos (excepto las cabeceras de columna) y pulse las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo y pegue el siguiente código en el Módulo.
VBA: Transponer y apilar datos
Sub ConvertTableToList()
'UpdatebyExtendoffice20161121
Const TEST_COLUMN As String = "A"
Dim i As Long, j As Long
Dim iLastRow As Long
Dim iLastCol As Long
Application.ScreenUpdating = False
With ActiveSheet
iLastRow = .Cells(.Rows.Count, TEST_COLUMN).End(xlUp).Row
For i = iLastRow To 2 Step -1
iLastCol = .Cells(i, .Columns.Count).End(xlToLeft).Column
For j = iLastCol To 3 Step -1
.Rows(i + 1).Insert
.Cells(i + 1, 2).Value = .Cells(i, j).Value
.Cells(i, j).Value = ""
Next j
Next i
.Rows(1).Delete
End With
Application.ScreenUpdating = True
End Sub
3. Pulse la tecla F5 y los datos ya habrán sido transpuestos y apilados. Vea la captura de pantalla:
Nota: En el código VBA, la letra A indica que los datos transpuestos se colocarán en la columna A de la hoja de cálculo actual, reemplazando los datos originales de dicha columna.
Transponer y apilar datos con la herramienta Transponer tabla Dimension de Kutools
Si desea transponer y apilar rápidamente un rango de datos sin usar código VBA, puede utilizar la utilidad Kutools para Excel’s Transponer tabla Dimension.
1. Seleccione los datos que va a utilizar y haga clic en Kutools > Rango > Convertir Dimensión de Tabla. Vea la captura de pantalla:
2. En el cuadro de diálogo, active la opción Convertir Tabla Bidimensional a Tabla Unidimensional y seleccione una celda en la que desee colocar los datos transpuestos en el cuadro de texto Rango de resultados (celda única). Vea la captura de pantalla:
3. Haga clic en Aceptar. Ahora, el rango se ha transpuesto y apilado en columnas.
Kutools para Excel: potencie Excel con más de 300 herramientas esenciales, agilice y simplifique su trabajo, y aproveche las funciones de IA para un procesamiento de datos más inteligente y una mayor productividad.Consígalo ahora
Demostración: Transponer rango y apilar datos con la herramienta Transponer tabla Dimension de Kutools
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos