¿Cómo transponer datos de rango y pila de manera fácil y rápida en Excel?
Por ejemplo, hay algunos datos que se muestran en grupos, y ahora quiero transponer el rango y apilar los datos en cada columna como se muestra a continuación. En este artículo, presentaré los métodos de esta tarea en Excel.
Transponer y apilar datos con VBA
Transponer y apilar datos con Transpose Table Dimension
Transponer y apilar datos con VBA
Puede aplicar un código VBA para transponer y apilar datos.
1. Seleccione los datos excepto los encabezados de columna y presione Alt + F11 claves para habilitar Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic en recuadro > Móduloy pegue el código siguiente 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. Prensa F5 key, y luego los datos se han transpuesto y apilado. Ver captura de pantalla:
Nota: En el código VBA, A indica colocar los datos de transposición en la columna A de la hoja activa y reemplazar los datos originales en la columna A.
Transponer y apilar datos con Transpose Table Dimension
Si desea transponer rápida y fácilmente datos de rango y pila sin código VBA, puede solicitar Kutools for Excel, Transponer la dimensión de la tabla utilidad.
Kutools for Excel, con más de 300 funciones prácticas, facilita su trabajo. |
Después de instalar Kutools para Excel, haga lo siguiente :(Descarga gratis Kutools para Excel ahora!)
1. Seleccione los datos que usa, haga clic en Kutools > Gama de Colores > Dimensiones de la mesa de transposición. Ver captura de pantalla:
2. En el cuadro de diálogo, marque Tabla cruzada para listar y seleccione una celda en la que desea colocar los datos transpuestos Rango de resultados (celda única) caja de texto. Ver captura de pantalla:
3. Hacer clic en Ok. Ahora el rango ha sido transpuesto y apilado en columnas.
Transponer datos de rango y pila
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite 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 de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!