¿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 Enviar 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
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.
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!
