¿Cómo apilar columnas de izquierda a derecha en una sola columna en Excel?
Supongamos que tienes varias columnas y quieres apilarlas de izquierda a derecha en una sola columna, tal como se muestra en la siguiente captura de pantalla. Más allá de moverlas manualmente una por una, ¿hay algún truco para lograrlo en Excel?
Apilar columnas De izquierda a derecha en una columna con VBA
Apilar columnas De izquierda a derecha en una columna con Kutools para Excel
Apilar columnas De izquierda a derecha en una columna con VBA
Excel no incluye ninguna función integrada para realizar esta tarea, pero el código VBA sí puede ayudarle.
1. Pulse las teclas Alt + F11. A continuación, en la ventana de Microsoft Visual Basic para Aplicaciones, haga clic en Insertar > Módulo para crear un nuevo módulo en blanco.
2. Copie y pegue el siguiente código en el Módulo.
VBA: Apilar columnas en una sola
Sub StackColumns()
'UpdatebyExtendoffice20180814
Dim xSRg, xDRg As Range
Dim xDWS As Worksheet
Dim xIntDR, xIntDC, xI As Long
Dim xFNumR, xFNumC As Long
On Error GoTo Err1
Set xSRg = Application.InputBox("Select Columns:", "Kutools for Excel", xTxt, , , , , 8)
If xSRg Is Nothing Then
Err1:
Application.ScreenUpdating = True
Exit Sub
End If
Set xDRg = Application.InputBox("Select a cell to place result:", "Kutools for Excel", xTxt, , , , , 8)
If xDRg Is Nothing Then
Exit Sub
End If
Application.ScreenUpdating = False
Set xDWS = xDRg.Worksheet
xIntDR = xDRg.Row
xIntDC = xDRg.Column
xI = 0
For xFNumC = 1 To xSRg.Columns.Count
For xFNumR = 1 To xSRg.Rows.Count
Set xDRg = xDWS.Cells(xIntDR + xI, xIntDC)
xDRg.Value = xSRg.Cells(xFNumR, xFNumC).Value
xI = xI + 1
Next xFNumR
Next xFNumC
Application.ScreenUpdating = True
End Sub
3. Pulse la tecla F5 para ejecutar el código; aparecerá un cuadro de diálogo que le permitirá seleccionar las columnas que desea apilar en una sola.
4. Haga clic en Aceptar y seleccione una celda donde colocar el resultado.
5. Haga clic en Aceptar para finalizar. Ahora, las columnas seleccionadas se han combinado en una sola columna.
Apilar columnas De izquierda a derecha en una columna con Kutools para Excel
Si tiene instalado Kutools para Excel en Excel, puede utilizar la utilidad Transform Range para realizar esta tarea.
Tras instalar Kutools para Excel, siga los pasos siguientes:
1. Seleccione las columnas que desea apilar y haga clic en Kutools > Rango > Transformar rango.
2. En el cuadro de diálogo Transform Range, active la casilla de verificación Range to single row y haga clic en Aceptar.
3. En el cuadro de diálogo emergente, seleccione la celda en la que desea colocar el resultado y haga clic en Aceptar.
Ahora, las columnas se han convertido en una única fila.
4. Seleccione la fila única, pulse Ctrl + C para copiarla, seleccione otra celda donde colocar la columna apilada, haga clic con el botón derecho y elija Transpose (T) en el menú contextual.
Ahora, la fila única se ha transpuesto en una columna apilada.
Las mejores herramientas de productividad para Office
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.
- 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