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

¿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

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 (3)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
Un truco de Word para hacer lo mismo:
- copie todas sus filas y líneas en Excel
- pegar sin en un documento de Word
- ctrl + h (buscar y reemplazar)
- copiar un espacio de tabulación entre dos filas
- pegar en la barra de búsqueda
- reemplazar por tabulaciones por saltos de línea "^l"

Todas sus celdas ahora están en columna en su documento de Word.
Copie y péguelos en Excel: ¡listo!
Este comentario fue minimizado por el moderador en el sitio
Te estaré eternamente agradecido. ¡Muchas gracias!
Este comentario fue minimizado por el moderador en el sitio
¿Alguien sabe cómo reemplazar/codificar las columnas (no mostrar el cuadro de mensaje para la selección)? Por lo tanto, configure el XSRg para que sea algo como: Establezca xSRg = Range("A1").CurrentRegion.Select (que no funciona porque de tipo no coinciden) gracias
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