¿Cómo apilar rápidamente múltiples columnas en una sola columna en Excel?

En Excel, la función Texto a columnas puede dividir una celda en múltiples columnas basadas en un delimitador, pero ¿hay alguna manera de apilar múltiples columnas en una sola columna como se muestra en la captura de pantalla a continuación? En este artículo, presentaré algunos trucos para resolver esta tarea rápidamente.

Apilar múltiples columnas en una con fórmula

Apilar múltiples columnas en una con VBA

Apilar múltiples columnas en una con Transformar rango

Apilar múltiples columnas en una con fórmula

1. Seleccione el rango que desea apilar y vaya a la Caja de nombres para darle un nombre a este rango y presione Enter tecla. Ver captura de pantalla:

2. Luego seleccione una celda en blanco donde desea colocar los resultados, ingrese esta fórmula =INDEX(MyData,1+INT((ROW(A1)-1)/COLUMNS(MyData)),MOD(ROW(A1)-1+COLUMNS(MyData),COLUMNS(MyData))+1), presione la tecla Entery arrastre el controlador de relleno hacia abajo hasta que se muestre un error. Ver captura de pantalla:

Apilar múltiples columnas en una con VBA

Aquí hay un código VBA que también puede ayudarte.

1. Presione las teclas Alt + F11 para mostrar la ventana Microsoft Visual Basic para Aplicaciones.

2. Haga clic en Insertar > Módulo, pegue el siguiente código en el Módulo.

VBA: Apilar columnas en una

Sub ConvertRangeToColumn()
'UpdatebyExtendoffice
Dim Range1 As Range, Range2 As Range, Rng As Range
Dim rowIndex As Integer
xTitleId = "KutoolsforExcel"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
rowIndex = 0
Application.ScreenUpdating = False
For Each Rng In Range1.Rows
    Rng.Copy
    Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
    rowIndex = rowIndex + Rng.Columns.Count
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

3. Presione la tecla F5 para ejecutar el código, aparece un cuadro de diálogo para seleccionar los datos de origen y haga clic en Aceptar, para seleccionar una celda donde colocar los resultados. Ver captura de pantalla:

4. Haga clic en Aceptar. Ahora las columnas se han apilado en una sola columna.

Apilar múltiples columnas en una con Transformar rango

Aplicar la utilidad Transformar rango de Kutools para Excel también puede ayudarte a resolver rápidamente este problema.

Después de instalar gratuitamente Kutools para Excel, por favor haz lo siguiente:

1. Seleccione los datos de las columnas que utiliza y haga clic en Kutools > Rango > Transformar rango. Ver captura de pantalla:

2. En el cuadro de diálogo Transformar rango marque la opción Rango a columna única y haga clic en Aceptar, luego seleccione una celda para colocar los resultados. Ver captura de pantalla:

3. Haga clic en Aceptar. Ahora las columnas se han apilado en una sola columna.