¿Cómo dividir una columna larga en varias columnas en Excel?
Divida la columna larga en varias columnas con VBA
Divida una columna larga en varias columnas con Kutools para Excel
Divida la columna larga en varias columnas con VBA
1. Prensa Alt + F11 llaves juntas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic en recuadro > Módulo y copie el siguiente código VBA en la ventana emergente.
VBA: divide la columna larga en varias columnas.
Sub SplitColumn()
'Updateby20141106
Dim rng As Range
Dim InputRng As Range
Dim OutRng As Range
Dim xRow As Integer
Dim xCol As Integer
Dim xArr As Variant
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type: = 8)
xRow = Application.InputBox("Rows :", xTitleId)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type: = 8)
Set InputRng = InputRng.Columns(1)
xCol = InputRng.Cells.Count / xRow
ReDim xArr(1 To xRow, 1 To xCol + 1)
For i = 0 To InputRng.Cells.Count - 1
xValue = InputRng.Cells(i + 1)
iRow = i Mod xRow
iCol = VBA.Int(i / xRow)
xArr(iRow + 1, iCol + 1) = xValue
Next
OutRng.Resize(UBound(xArr, 1), UBound(xArr, 2)).Value = xArr
End Sub
3. Hacer clic en Ejecutar botón o prensa F5 para ejecutar el VBA, y apareció un cuadro de diálogo para seleccionar la lista de datos, y luego haga clic en OK para ir a especificar cuántas filas en una columna necesita en el siguiente cuadro de diálogo, luego haga clic en OK y seleccione una celda para generar el resultado. Ver capturas de pantalla:
4. Hacer clic en OK, entonces puede ver que la columna larga está dividida en varias columnas y cada columna tiene 15 celdas.
Divida una columna larga en varias columnas con Kutools para Excel
Tal vez a algunos de ustedes no les guste usar el código VBA, afortunadamente, pueden usar el Transformar rango utilidad de Kutools for Excel para convertir rápida y fácilmente una columna larga en un número fijo de columnas.
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 los datos de la columna que desea dividir y haga clic en Kutools > Gama de Colores > Transformar rango. Ver captura de pantalla:
2. En el cuadro de diálogo emergente, marque Columna única para rango opción, luego marque Valor fijo opción y escriba el número de columnas que necesita en el cuadro de texto. Ver captura de pantalla:
3. Hacer clic en Ok y seleccione una sola celda para publicar los datos divididos. Ver captura de pantalla:
4. Hacer clic en OK para finalizar las operaciones. Ahora los datos de la columna larga se han dividido en tres columnas.
¿Es más fácil que el código VBA? Con Trango de transformación utilidad, puede convertir una fila en un rango, un rango en una fila o una columna.
Transponer una sola columna / fila a un rango o viceversa
Divida rápidamente una celda en columnas o filas según el delimitador
|
En Excel, dividir una celda en columnas es tedioso con el Asistente paso a paso. Pero con Kutools for Excel's Células partidas utilidad, puede: 1, convertir una celda en columnas o filas según el delimitador; 2, convierte la cadena en texto y número; 3, convierta la cadena según el ancho específico, con clics. ¡Haga clic para obtener una prueba gratuita de 30 días con todas las funciones! |
Kutools para Excel: con más de 300 prácticos complementos de Excel, prueba gratis sin límite en 30 días. |
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!