Saltar al contenido principal

¿Cómo apilar columnas de izquierda a derecha en una columna en Excel?

Suponiendo que hay varias columnas, el trabajo es apilar las columnas de izquierda a derecha en una sola columna como se muestra a continuación. Excepto que mueva manualmente las columnas una por una, ¿hay algún truco para resolver esto en Excel?
columnas de pila de documentos de izquierda a derecha 1

Apilar columnas de izquierda a derecha en una columna con VBA

Apila columnas de izquierda a derecha en una columna con Kutools para Excel


Apilar columnas de izquierda a derecha en una columna con VBA

En Excel, no hay una función incorporada que pueda manejar este trabajo, pero el código VBA puede ayudarlo.

1. Prensa Alt + F11 llaves, luego en el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo para crear un nuevo módulo en blanco.

2. Copie y pegue el código siguiente en el Módulo.

VBA: apila columnas en una

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

columnas de pila de documentos de izquierda a derecha 2

3. Prensa F5 para ejecutar el código, aparece un cuadro de diálogo para que seleccione las columnas que apilará en una.
columnas de pila de documentos de izquierda a derecha 3

4. Hacer clic en OK, seleccione una celda para colocar el resultado.
columnas de pila de documentos de izquierda a derecha 4

5. Hacer clic en OK para terminar. Ahora las columnas seleccionadas se han apilado en una sola columna.
columnas de pila de documentos de izquierda a derecha 5


Apila columnas de izquierda a derecha en una columna con Kutools para Excel

Si tiene Kutools for Excel instalado en Excel, puede utilizar el Transform Range utilidad para manejar este trabajo.

Kutools for Excel, con más de 300 funciones prácticas, facilita su trabajo. 

Después de instalar Kutools para Excel, haga lo siguiente:(¡Descarga gratis Kutools para Excel ahora!)

1. Seleccione las columnas que desea apilar, haga clic en Kutools > Gama de Colores > Transform Range.
columnas de pila de documentos de izquierda a derecha 6

2. En el Transform Range diálogo, comprobar Range to single row casilla de verificación, haga clic en Ok.
columnas de pila de documentos de izquierda a derecha 7

3. En el cuadro de diálogo emergente, seleccione una celda para colocar el resultado, haga clic en OK.
columnas de pila de documentos de izquierda a derecha 8

Ahora las columnas se han transformado en una sola fila.
columnas de pila de documentos de izquierda a derecha 9

4. Seleccione la fila única, presione Ctrl + C para copiarlo, y seleccione otra celda que colocará la columna de la pila, haga clic derecho para seleccionar Transpose(T) en el menú contextual.
columnas de pila de documentos de izquierda a derecha 10

Ahora la fila única se ha transpuesto a una columna de pila.
columna de pila de documentos de izquierda a derecha 11

Las mejores herramientas de productividad de oficina

Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples    Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas    Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas    Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   +50 Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

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

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!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Does anyone know how to replace/hardcode the columns (not bring up the message box for selection)?So, set the XSRg to be something like: Set xSRg = Range("A1").CurrentRegion.Select(which does not work because of type mismatch)thanks
This comment was minimized by the moderator on the site
I will be eternally grateful to you. Thank you so much!
This comment was minimized by the moderator on the site
A Word cheat to do the same:
- copy all your rows and lines in Excel
- paste without into a Word doc
- ctrl + h (find and replace)
- copy a tabulation space between two rows
- paste into search bar
- replace by tabs by line breaks "^l"

All your cells are now in column in your Word doc.
Copy paste them into Excel: done!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations