¿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!
Las mejores herramientas de productividad para Office
Mejora tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab incorpora la interfaz de pestañas en Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!
Todos los complementos de Kutools. Un solo instalador
El paquete Kutools for Office agrupa complementos para Excel, Word, Outlook y PowerPoint junto con Office Tab Pro, ideal para equipos que trabajan en varias aplicaciones de Office.
- Suite todo en uno: complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un solo instalador, una licencia: configuración en minutos (compatible con MSI)
- Mejor juntos: productividad optimizada en todas las aplicaciones de Office
- Prueba completa de30 días: sin registro ni tarjeta de crédito
- La mejor relación calidad-precio: ahorra en comparación con la compra individual de complementos