Note: The other languages of the website are Google-translated. Back to English

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

doc transponer cada 5 filas 1

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


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:

doc transponer 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 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:

doc transponer cada 5 filas 3


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!

doc transponer cada 5 filas 10

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!


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:

doc transponer cada 5 filas 4

4. Luego haga clic OKy seleccione una celda donde desea poner el resultado en otro cuadro emergente, vea la captura de pantalla:

doc transponer cada 5 filas 5

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:

doc transponer cada 5 filas 6

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


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:

doc transponer cada 5 filas 8

3. Y luego haz clic Ok , en el cuadro emergente, seleccione una celda para generar el resultado, vea la captura de pantalla:

doc transponer cada 5 filas 9

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:

doc transponer cada 5 filas 6

¡Descargue y pruebe Kutools para Excel ahora!


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!

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-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
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

  • 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!
officetab parte inferior
Comentarios (15)
5 clasificado de 5 · 1 calificaciones
Este comentario fue minimizado por el moderador en el sitio
¡Hola! ¿Puedo preguntarle cómo agregar registros delimitados por celdas en blanco, en lugar de 5, ya que los datos que estoy manejando no tienen un número fijo de filas? Creo que la parte que debo cambiar puede estar alrededor de esta parte del código: For i = 1 To xLRow Paso 5 xRg.Cells(i).Resize(5).Copy xOutRg.Offset(xNRow, 0).PasteSpecial Paste: =xlPegarTodo, Transponer:=Verdadero xNRow = xNRow + 1 Mejor
Este comentario fue minimizado por el moderador en el sitio
¿Obtuviste una respuesta para lo mismo que tengo el mismo problema, las columnas no están fijadas en números, qué debo hacer, puedo usar un carácter en particular como delimitador que rompe el ciclo y cuenta la siguiente línea y el nuevo conjunto de datos?
Este comentario fue minimizado por el moderador en el sitio
Tengo el mismo problema, donde las columnas no son fijas y hay líneas vacías, pero tengo el mismo carácter y el mismo final de cada conjunto de datos, es decir, "=" puedo usar esto como delimitador, que rompe el bucle, y ¿La siguiente línea se considera como un nuevo conjunto de datos?
Este comentario fue minimizado por el moderador en el sitio
¿Qué fórmula para transponer cada 5 filas a una sola columna?
Este comentario fue minimizado por el moderador en el sitio
¡Muchas gracias! Fue realmente útil. :)
Este comentario fue minimizado por el moderador en el sitio
¡Fue grandioso! ¡Gracias! ¡Me ahorraste horas de trabajo manual!
Este comentario fue minimizado por el moderador en el sitio
= ÍNDICE ($ A: $ A, FILA (A1) * 5-5 + COLUMNA (A1))
Fue muy simple y realmente útil. Muchas gracias
Este comentario fue minimizado por el moderador en el sitio
Esto es jodidamente IMPRESIONANTE!!! Muchas gracias. Su ejemplo era exactamente lo que necesitaba y funcionó maravillosamente.
Este comentario fue minimizado por el moderador en el sitio
Probé solo la opción de fórmula y funcionó muy bien. Hasta ahora hemos estado usando (Fórmula de transposición con ctrl + shift + enter) pero existe la desventaja de que hemos eliminado muchas filas adicionales. cuando las filas que se transpondrán son grandes en el orden de lakhs, eliminarlas en Excel es imposible o lleva mucho tiempo.
este enfoque hizo la vida más fácil al copiar solo las filas requeridas ... Gracias
Este comentario fue minimizado por el moderador en el sitio
Muchas gracias _/\_ Impresionante trabajo con =INDEX($A:$A,ROW(B1)*5-5+COLUMN(B1))
funcionó perfectamente
Este comentario fue minimizado por el moderador en el sitio
Hola, ¿Cómo hacer esto para Colms a las filas. Gracias
Este comentario fue minimizado por el moderador en el sitio
He reescrito el comando a este:
=ÍNDICE($A:$A,FILA(A1)+((COLUMNA(A1)-2)*5))
Esto lo ejecuta invertido.
De modo que:
1
2
3
4
5
6
7
8
9
...
se convierte en
1, 6
2, 7
3, 8
4, 9
5, ...
Este comentario fue minimizado por el moderador en el sitio
Intento hacer esto tal como está escrito, y todo lo que obtengo es Error: 508
Este comentario fue minimizado por el moderador en el sitio
Eres un genio. ¡Gracias!
5 clasificado de 5
Este comentario fue minimizado por el moderador en el sitio
Hola,

J'ai, dans mon unique colonne de données, des cellules placees aléatoirement toutes les x lignes et qui contiennent une suite de caractères.

Je voudrait que cette cellule soit dans la première colonne de la ligne transposée, avec, dans les colonnes suivantes, la transposition des lignes qui la suivent, jusqu'à la répétition de ma chaine de caractères, qui signerait le début de la ligne suivante. ..

Breve, Heeeelllp...

Gracias de antemano
Stéphane
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL