¿Cómo transponer cada 5 o n filas de una columna a varias columnas?
Supongamos que tiene datos largos en la columna A y ahora desea transponer cada 5 filas de la columna A a varias columnas, como transponer A1: A5 a C6: G6, A6: A10 a C7: G7, y así sucesivamente como se muestra la siguiente captura de pantalla. ¿Cómo podría hacer frente a esta tarea sin copiar y pegar repetidamente en Excel?
Transponer cada 5 o n filas de una columna a varias columnas con fórmula
Transponer cada 5 o n filas de una columna a varias columnas con código VBA
Transponer cada 5 o n filas de una columna a varias columnas con Kutools para Excel
Transponer cada 5 o n filas de una columna a varias columnas con fórmula
En Excel, puede aplicar la siguiente fórmula para transponer cada n filas de una columna a varias columnas, haga lo siguiente:
1. Ingrese la siguiente fórmula en una celda en blanco donde desea colocar el resultado, C1, por ejemplo, = ÍNDICE ($ A: $ A, FILA (A1) * 5-5 + COLUMNA (A1)), ver captura de pantalla:
Note: En la fórmula anterior, AUTOMÓVIL CLUB BRITÁNICO es la referencia de columna que desea transponer y A1 es la primera celda de la columna utilizada, el número 5 indica la cantidad de columnas que ubicarán sus datos, puede cambiarlas según sus necesidades. Y la primera celda de la lista debe ubicarse en la primera fila de la hoja de trabajo.
2. Luego, arrastre el controlador de relleno a la derecha a cinco celdas y continúe arrastrando el controlador de relleno hacia abajo hasta el rango de celdas hasta que muestre 0, vea la captura de pantalla:
Transforme cada 5 o n filas de una columna a varias columnas:
Para transformar cada 5 o n filas de una columna a varias columnas, Kutools for Excel's Transformar rango La utilidad puede ayudarlo a resolver este trabajo lo más rápido posible. También puede ayudarlo a transponer un rango de datos a una sola fila o columna. ¡Haga clic para descargar Kutools para Excel! Kutools for Excel: con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. ¡Descarga y prueba gratis ahora! |
Transponer cada 5 o n filas de una columna a varias columnas con código VBA
Si no puede aplicar la fórmula correctamente, el siguiente código VBA también puede ayudarlo.
1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.
Código de VBA: transponer cada 5 o n filas de una columna a varias columnas:
Public Sub TransposeData()
'updateby Extendoffice
Dim xLRow As Long
Dim xNRow As Long
Dim i As Long
Dim xUpdate As Boolean
Dim xRg As Range
Dim xOutRg As Range
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select data range(only one column):", "Kutools for Excel", xTxt, , , , , 8)
Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
If xRg Is Nothing Then Exit Sub
If (xRg.Columns.Count > 1) Or _
(xRg.Areas.Count > 1) Then
MsgBox "the used range only contain one column", , "Kutools for Excel"
Exit Sub
End If
Set xOutRg = Application.InputBox("please select output range(specify one cell):", "Kutools for Excel", xTxt, , , , , 8)
If xOutRg Is Nothing Then Exit Sub
Set xOutRg = xOutRg.Range(1)
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
xLRow = xRg.Rows.Count
For i = 1 To xLRow Step 5
xRg.Cells(i).Resize(5).Copy
xOutRg.Offset(xNRow, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
xNRow = xNRow + 1
Next
Application.ScreenUpdating = xUpdate
End Sub
3. Después de pegar el código, presione F5 para ejecutarlo, y aparecerá un cuadro emergente para recordarle que seleccione la columna que desea transponer, vea la captura de pantalla:
4. Luego haga clic OKy seleccione una celda donde desea poner el resultado en otro cuadro emergente, vea la captura de pantalla:
5. Y haga clic en OK, los datos de la columna se han convertido a las cinco columnas que necesita, vea la captura de pantalla:
Note: En el código anterior, puede cambiar el número 5 a otro número que necesite.
Transponer cada 5 o n filas de una columna a varias columnas con Kutools para Excel
Si tiene Kutools for Excel, Con su Transformar rango utilidad, puede transponer rápidamente una columna o fila a varias columnas y filas.
Kutools for Excel : con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. |
Después de instalar Kutools for Excel, haga lo siguiente:
1. Seleccione los datos en la columna y luego haga clic en Kutools > Gama de Colores > Transformar rango, ver captura de pantalla:
2. En la Transformar rango cuadro de diálogo, seleccione Columna única para rango Bajo el Tipo de transformación, y luego verifique Valor fijo bajo el Filas por registro, luego especifique el número de columnas a las que desea transponer en el Valor fijo cuadro, ver captura de pantalla:
3. Y luego haz clic Ok , en el cuadro emergente, seleccione una celda para generar el resultado, vea la captura de pantalla:
4. Luego haga clic OK y los datos de la columna se han transpuesto cada 5 filas como se muestra en la siguiente captura de pantalla:
¡Descargue y pruebe Kutools para Excel ahora!
Demostración: transponga cada 5 o n filas de una columna a varias columnas con Kutools para Excel
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!