¿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:

<b>Nota</b>: 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:

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:

<b>Nota</b>: 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 tienes Kutools for Excel, Con su Transformar rango utilidad, puede transponer rápidamente una columna o fila a varias columnas y filas.

Después de instalar Kutools for Excel, haga lo siguiente:

1. Seleccione los datos en la columna y luego haga clic en Kutools > Gama o Rango > 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 la 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

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

• Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
• Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
• Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
• Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
• Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
• Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
• Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
• Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
• Más de 300 potentes funciones. Compatible con Office / Excel 2007-2019 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Características completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.

Leer más ... Descarga gratis... Compra... 

---

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!

Leer más ... Descarga gratis... Compra...