Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿Cómo transponer cada 5 o n filas de una columna a múltiples columnas?

doc transpone cada 5 filas 1

Supongamos que tiene datos largos en la columna A, y ahora desea transportar cada fila de 5 de la columna A a múltiples columnas, como transponer A1: A5 a C6: G6, A6: A10 a C7: G7, etc. siguiente captura de pantalla mostrada. ¿Cómo podría lidiar con esta tarea sin copiar y pegar repetidamente en Excel?

Transponer cada 5 o n filas de una columna a múltiples columnas con fórmula

Transponer cada 5 o n filas de una columna a múltiples columnas con código VBA

Transponer cada 5 o n filas de una columna a múltiples columnas con Kutools para Excel


Transforma cada 5 o n filas de una columna a múltiples columnas:

Para transformar cada 5 o n filas de una columna a múltiples columnas, Kutools for Excel's Transform Range la utilidad puede ayudarlo a resolver este trabajo lo más rápido que pueda. También puede ayudarlo a transponer un rango de datos a una sola fila o columna.

doc transpone cada 5 filas 10

Kutools for Excel: con más de 200 útiles complementos de Excel, de prueba sin límite en días 60. Descargar y prueba gratis ahora!



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 poner el resultado, C1, por ejemplo, = INDICE ($ A: $ A, ROW (A1) * 5-5 + COLUMN (A1)), mira la captura de pantalla:

doc transpone cada 5 filas 2

Nota: 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 el número de columnas que localizarán sus datos, puede cambiarlos según sus necesidades. Y la primera celda de la lista debe estar ubicada en la primera fila de la hoja de trabajo.

2. A continuación, arrastre el controlador de relleno hacia la derecha hasta cinco celdas y siga arrastrando el controlador de relleno hasta el rango de celdas hasta que aparezca 0, vea la captura de pantalla:

doc transpone cada 5 filas 3


Si no puede aplicar la fórmula correctamente, el siguiente código VBA también puede ayudarlo.

1. Mantenga presionado 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 Módulo Ventana.

Código de VBA: Transponga cada 5 o n filas de una columna a múltiples columnas:

Public Sub TransposeData()
'updateby Extendoffice 20151207
    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 tecla para ejecutarlo, y un cuadro emergente emergerá para recordarle que seleccione la columna que desea transponer, vea la captura de pantalla:

doc transpone cada 5 filas 4

4. Luego haga clic OK, y seleccione una celda donde desee poner el resultado en otra casilla reventada, vea la captura de pantalla:

doc transpone cada 5 filas 5

5. Y haga clic en OK, los datos en la columna se han convertido en cinco columnas que necesita, vea la captura de pantalla:

doc transpone cada 5 filas 6

Nota: En el código anterior, puede cambiar el número 5 a otro número que necesita


Si usted tiene Kutools for Excel, Con su Transform Range utilidad, puede transponer rápidamente una columna o fila a múltiples columnas y filas.

Kutools for Excel : con más de 300 útiles complementos de Excel, de prueba sin límite en días 60.

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

1. Seleccione los datos en la columna, y luego haga clic Kutools > Rango > Transform Range, mira la captura de pantalla:

doc transpone cada 5 filas 7

2. En la Transform Range cuadro de diálogo, seleccione Una columna a rango Bajo el Tipo de transformación, y luego verificar Valor fijo bajo la Filas por registro, luego especifique la cantidad de columnas a las que desea transponer Valor fijo caja, ver captura de pantalla:

doc transpone cada 5 filas 8

3. Y luego haz clic Ok botón, en el recuadro emergente, seleccione una celda para mostrar el resultado, vea la captura de pantalla:

doc transpone cada 5 filas 9

4. Luego haga clic OK y los datos de su columna se han transpuesto a cada fila de 5 como se muestra en la siguiente captura de pantalla:

doc transpone cada 5 filas 6

Descargue y pruebe de forma gratuita Kutools for Excel Now!


Kutools for Excel: con más de 200 útiles complementos de Excel, de prueba sin límite en días 60. Descargar y prueba gratis ahora!


Kutools for Excel: la mejor herramienta de productividad de Office aumenta su productividad en un 80%

  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células 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 Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Funciona con Office 2007-2019 y 365, y es compatible con todos los idiomas. Es fácil de implementar en su empresa. Funciones completas de prueba gratuita de 60-day.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Maha · 2 months ago
    Thanks alot _/\_ Awesome job with =INDEX($A:$A,ROW(B1)*5-5+COLUMN(B1))
    worked perfectly
  • To post as a guest, your comment is unpublished.
    Arun Balaji VN · 3 months ago
    I tried only the the formula option and it worked great. Till now have been using (Transpose formula with ctrl+shift+enter) but there the disadvantage for we have delete many extra rows. when the rows to be transposed for large in the order of lakhs, then deleting them in excel is either impossible or takes a lot of time.
    this approach made the life easier by only copying the required rows... Thanks
  • To post as a guest, your comment is unpublished.
    Sian · 1 years ago
    This is fricking AWESOME!!! Thank you SO much. Your example was exactly what I needed and it worked beautifully.
  • To post as a guest, your comment is unpublished.
    hamidreza · 1 years ago
    =INDEX($A:$A,ROW(A1)*5-5+COLUMN(A1))
    It was very simple and really useful. Thank you so much
  • To post as a guest, your comment is unpublished.
    Thank · 1 years ago
    It was great! Thank you! You saved me hours of manual work!
  • To post as a guest, your comment is unpublished.
    xplode · 2 years ago
    Thank you so much!
    It was really helpful. :)
  • To post as a guest, your comment is unpublished.
    MTVN · 2 years ago
    What formula to transpose every 5 rows to a single column?
  • To post as a guest, your comment is unpublished.
    hgimongu · 2 years ago
    Hi!

    May I ask you how to add Blank cell delimits records, instead of 5 as the data I am handling hasn't got fix number of rows. I believe the part which I should change may be around this part of the code:

    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

    Best