¿Cómo dividir una lista larga en grupos iguales en Excel?

Si tienes una lista larga de datos que necesita dividirse en múltiples grupos iguales, como se muestra en la siguiente captura de pantalla, ¿cómo podrías manejar esta tarea rápidamente y de manera sencilla en Excel?

Dividir una lista larga en múltiples grupos iguales con código VBA

Dividir una lista larga en múltiples grupos iguales con Kutools para Excel

Dividir una lista larga en múltiples grupos iguales con código VBA

Además de copiar y pegar los datos uno por uno, el siguiente código VBA también puede ayudarte. Por favor, sigue estos pasos:

1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.

Código VBA: Dividir una lista larga en múltiples grupos iguales

Sub SplitIntoCellsPerColumn()
'updateby Extendoffice
    Dim xRg As Range
    Dim xOutRg As Range
    Dim xCell As Range
    Dim xTxt As String
    Dim xOutArr As Variant
    Dim I As Long, K As Long
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
Sel:
    Set xRg = Nothing
    Set xRg = Application.InputBox("please select data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "does not support multiple selections, please select again", vbInformation, "Kutools for Excel"
        GoTo Sel
    End If
    If xRg.Columns.Count > 1 Then
        MsgBox "does not support multiple columns,please select again", vbInformation, "Kutools for Excel"
        GoTo Sel
    End If
    Set xOutRg = Application.InputBox("please select a cell to put the result:", "Kutools for Excel", , , , , , 8)
    If xOutRg Is Nothing Then Exit Sub
    I = Application.InputBox("the number of cell per column:", "Kutools for Excel", , , , , , 1)
    If I < 1 Then
        MsgBox "incorrect enter", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    ReDim xOutArr(1 To I, 1 To Int(xRg.Rows.Count / I) + 1)
    For K = 0 To xRg.Rows.Count - 1
      xOutArr(1 + (K Mod I), 1 + Int(K / I)) = xRg.Cells(K + 1)
    Next
    xOutRg.Range("A1").Resize(I, UBound(xOutArr, 2)) = xOutArr
End Sub

3. Luego presiona la tecla F5 para ejecutar este código, y en el cuadro emergente, selecciona la columna que deseas dividir en múltiples grupos, ver captura de pantalla:

4. Haz clic en el botón Aceptar, luego selecciona una celda donde deseas ubicar el resultado en el siguiente cuadro de diálogo, ver captura de pantalla:

5. Haz clic en Aceptar, e ingresa el número de celdas que deseas dividir por columna en el cuadro de diálogo, ver captura de pantalla:

6. Finalmente, haz clic en Aceptar para finalizar el código, y la lista de datos seleccionada se habrá dividido en múltiples grupos iguales según lo necesitado, ver captura de pantalla:

Dividir una lista larga en múltiples grupos iguales con Kutools para Excel

Si has instalado Kutools para Excel, con su función Transformar Rango, puedes dividir rápidamente una lista larga en múltiples columnas y filas; además, también puedes combinar múltiples columnas en una sola lista larga.

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

1. Selecciona la lista larga que deseas dividir, y luego haz clic en Kutools > Rango > Transformar Rango, ver captura de pantalla:

2. En el cuadro de diálogo Transformar Rango, selecciona Columna única a rango bajo la sección Tipo de transformación, y luego marca Valor fijo y especifica el número de celdas por fila en el cuadro, ver captura de pantalla:

3. Luego haz clic en Aceptar, y selecciona una celda donde deseas ubicar el resultado en el cuadro de diálogo, ver captura de pantalla:

4. Haz clic en el botón Aceptar, y los datos en la lista se habrán dividido en múltiples grupos iguales según lo necesitado.

¡Descarga y prueba gratis Kutools para Excel ahora!