¿Cómo apilar rápidamente varias columnas en una columna en Excel?
en Excel, la función Texto a columnas puede dividir una celda en varias columnas según el delimitador, pero ¿hay alguna forma de apilar varias columnas en una columna como se muestra a continuación? En este artículo, presentaré algunos trucos para resolver esta tarea rápidamente.
Apila varias columnas en una con fórmula
Apila varias columnas en una con VBA
Apila varias columnas en una con Transform Range
Apila varias columnas en una con fórmula
1. Seleccione el rango que desea apilar y vaya a la Nombre de buzón para darle un nombre a este rango y presione Participar llave. 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), prensa Enter y arrastre el controlador de relleno hacia abajo hasta que aparezca un error. Ver captura de pantalla:
Apila varias columnas en una con VBA
Aquí hay un código VBA que también puede ayudarlo.
1. Prensa Alt + F11 teclas para mostrar Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic en recuadro > Módulo, pegue el código siguiente en el Módulo.
VBA: apila columnas a 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. Prensa F5 para ejecutar el código, aparece un cuadro de diálogo para seleccionar los datos de origen y hacer clic en OK, para seleccionar una celda para colocar los resultados. Ver captura de pantalla:
4. Hacer clic en OK. Ahora las columnas se han apilado en una columna.
Apila varias columnas en una con Transform Range
Aplicar Kutools for Excel, Transformar rango La utilidad también puede ayudarlo a resolver rápidamente este problema.
Kutools for Excel, con más de 300 funciones prácticas, facilita su trabajo. | ||
Después instalación gratuita Kutools para Excel, haga lo siguiente:
1. Seleccione los datos de las columnas que usa y haga clic en Kutools > Gama de Colores > Transformar rango. Ver captura de pantalla:
2. En el Transformar rango diálogo, comprobar Rango a una sola columna opción, y haga clic Ok, luego seleccione una celda para colocar los resultados. Ver captura de pantalla:
3. Hacer clic en OK. Ahora las columnas se han apilado en una sola columna.
Apila varias celdas en una columna
Las mejores herramientas de productividad de oficina
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...
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!