Si tiene datos de una columna larga en Excel, será problemático al verlos. Pero ahora, si puede dividir una lista tan larga en varias columnas en Excel, la visualización será conveniente.
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 copia el siguiente código VBA en la ventana emergente:
Sub DividirColumnas()
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 = "Aprendiendo eXcel365"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Selecciona Rango de Datos:", xTitleId, InputRng.Address, Type:=8)
xRow = Application.InputBox("Número de Filas a extraer:", xTitleId)
Set OutRng = Application.InputBox("Posición Celda (Primer Valor):", 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 Aceptar.
- En el siguiente cuadro de diálogo especificaremos cuántas filas en una columna necesita. Para nuestro ejemplo seleccionaremos 5 columnas, luego haga clic en Aceptar.
- Por último, seleccionaremos una celda para generar el resultado.
- El resultado sé mostrar de la siguiente forma.
⭐ Si te gustó este tutorial, por favor regístrate en nuestra Lista de correo y Suscríbete a mi canal de YouTube para que estés siempre enterado de lo nuevo que publicamos.
