Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

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

doc split list para grupos 4

Si tiene que dividir una larga lista de datos en múltiples grupos iguales, como se muestra en la siguiente captura de pantalla, ¿cómo podría manejar esta tarea rápida y fácilmente en Excel?

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

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


Divida una columna o fila en múltiples grupos iguales:

Con Kutools for Excel, Transform Range función, puede convertir rápidamente un rango de celdas en una sola fila o columna, también puede convertir una sola fila o columna en un rango de celdas.

doc split list para grupos 9

Kutools for Excel: con más de 200 útiles complementos de Excel, de prueba sin límite en días 60. Descargar y prueba gratis ahora!



Con la excepción de copiar y pegar los datos uno por uno, el siguiente código VBA también puede hacerte un favor, por favor haz los siguientes pasos:

1. Mantenga presionado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en Módulo Ventana.

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

Sub SplitIntoCellsPerColumn()
'updatebyExtendoffice 20160225
    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. Entonces presione F5 clave para ejecutar este código, y en el cuadro emergente, seleccione la columna que desea dividir en múltiples grupos, vea la captura de pantalla:

doc split list para grupos 1

4. Y haga clic en OK botón, luego seleccione una celda donde desea ubicar el resultado en el siguiente cuadro de diálogo, vea la captura de pantalla:

doc split list para grupos 2

5. Hacer clic OKe ingrese la cantidad de celdas que desea dividir por columna en el cuadro de solicitud, vea la captura de pantalla:

doc split list para grupos 3

6. Por último, haz clic OK para terminar el código, y los datos de la lista seleccionada se han dividido en múltiples grupos iguales según lo que necesita, vea la captura de pantalla:

doc split list para grupos 4


Si tienes instalado Kutools for Excel, Con su Transform Range función, puede dividir rápidamente una larga lista en múltiples columnas y filas, además, también puede combinar múltiples columnas en una larga lista.

Kutools for Excel : con más de 300 útiles complementos de Excel, de prueba sin límite en días 60.

Después de instalar Kutools for Excel, haz lo siguiente:

1. Seleccione la lista larga que desea dividir, y luego haga clic Kutools > Rango > Transform Range, mira la captura de pantalla:

doc split list para grupos 6

2. En la Transform Range cuadro de diálogo, seleccione Una columna a rango bajo la Tipo de transformación sección, y luego verificar Valor fijo y especifique el número de celdas por fila en el cuadro, vea la captura de pantalla:

doc split list para grupos 7

3. Luego haga clic Ok, y seleccione una celda donde desea ubicar el resultado en el cuadro de solicitud, vea la captura de pantalla:

doc split list para grupos 8

4. Y haga clic OK botón, los datos en la lista se han dividido en múltiples grupos iguales según lo que necesita.

Descargue y pruebe de forma gratuita Kutools for Excel Now!


Kutools for Excel: con más de 200 útiles complementos de Excel, de prueba sin límite en días 60. Descargar y prueba gratis ahora!


  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células 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 Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Funciona con Office 2007-2019 y 365, y es compatible con todos los idiomas. Es fácil de implementar en su empresa. Funciones completas de prueba gratuita de 60-day.
pestaña kte 201905
  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics del mouse por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    attom93 · 4 months ago
    I copied the code and Excel 365 says syntax error.
  • To post as a guest, your comment is unpublished.
    LM · 1 years ago
    This comes in very handy! One question: In the VBA code how can I transpose the output? So instead of xRg.Rows.Count / I = number of colums output, the output is generated as xRg.Rows.Count / I = number of rows output with I being the number of columns per row.