¿Cómo transponer y apilar datos fácil y rápidamente en Excel?

Por ejemplo, hay algunos datos mostrados en grupos, y ahora quiero transponer el rango y apilar los datos en cada columna, como se muestra en la captura de pantalla a continuación. En este artículo, presentaré los métodos para realizar esta tarea en Excel.

Transponer y apilar datos con VBA

Transponer y apilar datos con Transpose Table Dimension de Kutools

Transponer y apilar datos con VBA

Puedes aplicar un código VBA para transponer y apilar datos.

1. Selecciona los datos excepto los encabezados de columna, y presiona las teclas Alt + F11 para habilitar la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega 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. Presiona F5 y luego los datos se habrán transpuesto y apilado. Ver captura de pantalla:

Nota: En el código VBA, A indica colocar los datos transpuestos en la columna A de la hoja activa y reemplazar los datos originales de la columna A.

Transponer y apilar datos con Transpose Table Dimension de Kutools

Si deseas transponer el rango y apilar datos rápidamente y sin usar código VBA, puedes aplicar la utilidad Transpose Table Dimension de Kutools para Excel.

1. Selecciona los datos que usas, haz clic en Kutools > Rango > Convertir Dimensión de Tabla. Ver captura de pantalla:

2. En el cuadro de diálogo, marca la opción Convertir Tabla Bidimensional a Tabla Unidimensional y selecciona una celda donde deseas colocar los datos transpuestos en Rango de resultados (por celda) cuadro de texto. Ver captura de pantalla:

3. Haz clic en Aceptar. Ahora el rango se ha transpuesto y apilado en columnas.

Demostración: Transponer Rango y Apilar Datos con Transpose Table Dimension de Kutools