¿Cómo dividir una columna larga en múltiples columnas en Excel?

Si tienes una columna larga de datos en Excel que puede ser difícil de visualizar, pero ahora si puedes dividir esa lista larga en múltiples columnas en Excel, hará que la visualización sea más conveniente.
Dividir una columna larga en múltiples columnas con VBA
Dividir una columna larga en múltiples columnas con Kutools para Excel

Dividir una columna larga en múltiples columnas con VBA

1. Presiona las teclas Alt + F11 juntas para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo y copia el siguiente código VBA en la ventana emergente.

VBA: Dividir una columna larga en múltiples 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. Haz clic en el botón Ejecutar o presiona la tecla F5 para ejecutar el VBA, y aparecerá un cuadro de diálogo para seleccionar la lista de datos; luego haz clic en Aceptar para especificar cuántas filas necesitas en una columna en el siguiente cuadro de diálogo, haz clic en Aceptar nuevamente y selecciona una celda para mostrar el resultado. Ver capturas de pantalla:

4. Haz clic Aceptar, entonces podrás ver que la columna larga se ha dividido en múltiples columnas y cada columna tiene 15 celdas.

Dividir una columna larga en múltiples columnas con Kutools para Excel

Quizás algunos de ustedes no les guste usar código VBA, afortunadamente, pueden usar la utilidad Transformar Rango de Kutools para Excel para convertir rápidamente y fácilmente una columna larga en un número fijo de columnas.

Después de instalar Kutools para Excel, por favor sigue los siguientes pasos:

1. Selecciona los datos de la columna que deseas dividir, luego haz clic en Kutools > Rango > Transformar Rango. Ver captura de pantalla:

2. En el cuadro de diálogo emergente, marca Columna única a rango opción, luego marca Valor fijo opción y escribe el número de columnas que necesitas en el cuadro de texto. Ver captura de pantalla:

3. Haz clic en Aceptar y selecciona una sola celda para colocar los datos divididos. Ver captura de pantalla:

4. Haz clic en Aceptar 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 la utilidad Transformar Rango, puedes convertir una fila en un rango, un rango en una fila o en una columna.