KutoolsforOffice — Una solución, cinco potentes herramientas.Lograr más con menos esfuerzo.Venta de marzo: 20 % de descuento

¿Cómo transponer o convertir columnas y filas en una sola fila?

AutorXiaoyang Fecha de modificación

¿Cómo combinar varias filas y columnas en una única fila larga? Quizá esto le parezca sencillo: podría copiar los datos uno a uno y unirlos manualmente en una sola fila. Sin embargo, si tiene cientos de filas y columnas, este método resultará lento y tedioso. A continuación, le presento algunos trucos rápidos para resolverlo.

Transponer / Convertir columnas y filas en una sola fila con fórmula

Transponer / Convertir columnas y filas en una sola fila con código VBA

Transponer / Convertir columnas y filas en una sola fila con Kutools para Excel


Transponer / Convertir columnas y filas en una sola fila con fórmula

Supongamos que tiene un rango de datos como el que se muestra en la siguiente captura de pantalla; puede transformar esos datos en una sola fila en una hoja de cálculo nueva mediante una fórmula extensa.

doc-convert-range-to-row1

Aplique la siguiente fórmula:

1. En una hoja de cálculo nueva del libro de trabajo actual, haga clic en la celda A1 y copie y pegue esta fórmula:=DESREF(Hoja1!$A$1,((FILA()-1)*5)+(MULTIPLO.INFERIOR(COLUMNA()-1,4)/4),(COLUMNA()-1)-(MULTIPLO.INFERIOR(COLUMNA()-1,4)))

Nota: Hoja1!$A$1 son las referencias de hoja de cálculo y rango que desea utilizar.

FILA()-1)*5 en la fórmula anterior, el 5 representa el número de fila; y en COLUMNA()-1,4)/4, el 4 representa el número de columna. Puede ajustarlos según sus necesidades.

2. A continuación, arrastre el controlador de relleno hacia la derecha hasta que aparezca el número 0. En ese momento, todos los datos del rango se habrán transpuesto en una sola fila en una hoja de cálculo nueva. Vea la captura de pantalla:

doc-convert-range-to-row2


Transponer / Convertir columnas y filas en una sola fila con código VBA

El siguiente código VBA también le permite transformar un rango de datos en una única fila.

1. Mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haga clic en Insertar > Módulo y pegue el siguiente código en la ventana del Módulo.

Sub TransformOneRow()
'Updateby20131120
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Ranges to be transform :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Paste to (single cell):", xTitleId, Type:=8)
Application.ScreenUpdating = False
xRows = InputRng.Rows.Count
xCols = InputRng.Columns.Count
For i = 1 To xRows
    InputRng.Rows(i).Copy OutRng
    Set OutRng = OutRng.Offset(0, xCols + 0)
Next
Application.ScreenUpdating = True
End Sub

3. Pulse después la tecla F5 para ejecutar el código. Aparecerá un cuadro de diálogo en el que podrá seleccionar el rango de contenido que desea convertir en una fila; haga clic en Aceptar. A continuación, aparecerá otro cuadro de diálogo para que elija una celda única donde colocar el resultado. Vea las capturas de pantalla:

captura de pantalla de convertir rango a fila con VBA
captura de pantalla de convertir rango a fila con VBA flecha
captura de pantalla de convertir rango a fila con VBA 2

A continuación, haga clic en Aceptar; los contenidos del cuadro «Seleccionar rango» se habrán convertido en una fila. Vea la captura de pantalla:

captura de pantalla de convertir rango a fila con VBA datos originales
captura de pantalla de convertir rango a fila con VBA flecha 2
captura de pantalla de convertir rango a fila con VBA resultado

Nota: En Establecer RangoSalida = RangoSalida.Desplazar(0, xCols + 0), puede cambiar 0 por cualquier número que se ajuste a sus necesidades.

Por ejemplo, si desea separar los resultados según las filas originales mediante una columna, puede cambiar Establecer RangoSalida = RangoSalida.Desplazar(0, xCols + 0) por Establecer RangoSalida = RangoSalida.Desplazar(0, xCols + 1). Los resultados se muestran a continuación:

captura de pantalla de convertir rango a fila con VBA ejemplo


Transponer / Convertir columnas y filas en una sola fila con Kutools para Excel

Parece que los dos métodos anteriores pueden resultar algo complicados para usuarios principiantes de Excel. A continuación, le presentamos una herramienta práctica: Kutools para Excel.

Kutools para Excel incluye más de 300 herramientas prácticas para Excel. ¡Pruébelo gratis sin limitaciones durante 30 días! Obténgalo ahora

Con la utilidad Transformar rango de Kutools para Excel, podrá convertir rápidamente un rango en una sola fila. Siga estos pasos:

1. Seleccione el rango que desea transponer.

2. Haga clic en Kutools > Rango > Transformar rango.

3. En el cuadro de diálogo Transformar rango, seleccione la opción Rango a fila única. Vea la captura de pantalla:

captura de pantalla de convertir rango a fila con kutools for Excel cuadro de diálogo

4. Luego, haga clic en Aceptar y seleccione una celda en el cuadro emergente para colocar el resultado.

captura de pantalla de convertir rango a fila con kutools for Excel cuadro de diálogo de rango de salida

5. Haga clic en Aceptar y los datos del rango se transpondrán en una sola fila. Vea las capturas de pantalla:

doc-convert-range-to-row1
-1
doc-convert-range-to-row7

Si desea obtener más información sobre esta función, visite Transformar rango.


Artículos relacionados:

¿Cómo intercambiar una fila por una columna en Excel?

¿Cómo transponer o convertir una sola columna en varias columnas en Excel?

¿Cómo transponer o convertir columnas y filas en una sola columna?

Las mejores herramientas de productividad para Office

🤖KUTOOLS AI Asistente: Revolucione Análisis de datos basándose en:Ejecución Inteligente   |  Generar código|  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos|  Invocar Funciones mejoradas
Funciones populares:Buscar, resaltar o Marcar duplicados   |  Eliminar filas en blanco   |  Combinar Columnas o celdas sin perder datos   |   Redondeo sin usar fórmulas...
Super BUSCARV:Búsqueda vertical (VLookup) con múltiples criterios  |  Búsqueda vertical (VLookup) con múltiples valores  |   Búsqueda vertical (VLookup) entre varias hojas   |   Coincidencia difusa....
Lista desplegable avanzada:Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple....
Gestor de columnas:Añadir un número específico de columnas|Mover columnas|Alternar el estado de visibilidad de columnas ocultas|Comparar rangos y columnas...
Funciones destacadas:Cuadrícula de enfoque   |  Vista de diseño   |Barra de fórmulas mejorada   | Gestor de libros y hojas   |  Biblioteca de recursos(Texto automático)|  Selector de Fecha   |  Combinar Hojas de Cálculo  |  Cifrar/Descifrar celdas   | Enviar correos electrónicos desde una lista   |  Super Filtro   |   Filtro especial(Filtrar celdas con fuente en negrita/cursiva/tachado...) ...
Principales conjuntos de herramientas 15:12 Herramientasde texto(Agregar texto,Eliminar caracteres específicos, ...)|   50+Tiposde gráfico(Diagrama de Gantt, ...)|   40+ Fórmulas prácticas(Calcular la edad basada en la fecha de nacimiento, ...)|   19 Herramientasde inserción(Insertar Código QR,Insertar imagen desde ruta, ...)|   12 Herramientasde conversión(Convertir a palabras,Conversión de moneda, ...)|   7 Herramientasde combinación y división(Combinar filas avanzado,Dividir celdas, ...)|...y muchas más
Use Kutools en su idioma preferido: compatible con inglés, español, alemán, francés, chino y 40+ más idiomas.¡

Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...


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

  • Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
  • ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!

Todos los complementos de Kutools en un solo instalador.

Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.

ExcelWordOutlookTabsPowerPoint
  • Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
  • Un instalador, una licencia— configuración en minutos (compatible con MSI)
  • Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
  • Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
  • La mejor relación calidad-precio— ahorre frente a la compra individual de complementos