¿Cómo dividir una lista larga en grupos iguales en Excel?
Si tiene una larga lista de datos que deben dividirse en varios 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 lista larga en varios grupos iguales con código VBA
Divida una lista larga en varios grupos iguales con Kutools para Excel
Divida una lista larga en varios grupos iguales con código VBA
Excepto copiar y pegar los datos uno por uno, el siguiente código VBA también puede hacerle un favor, siga los siguientes pasos:
1. Mantenga pulsado 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 el Módulo Ventana.
Código de VBA: divida una lista larga en varios 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. Entonces presione F5 para ejecutar este código, y en el cuadro emergente, seleccione la columna que desea dividir en varios grupos, vea la captura de pantalla:
4. Y haga clic en OK , luego seleccione una celda donde desea ubicar el resultado en el siguiente cuadro de aviso, vea la captura de pantalla:
5. Hacer clic OK, e ingrese la cantidad de celdas que desea dividir por columna en el cuadro de aviso, vea la captura de pantalla:
6. Por último, haz clic OK para terminar el código, y los datos de la lista seleccionada se han dividido en varios grupos iguales según lo necesite, vea la captura de pantalla:
Divida una lista larga en varios grupos iguales con Kutools para Excel
Si tienes instalado Kutools for Excel, Con su Transformar rango función, puede dividir rápidamente una lista larga en varias columnas y filas, además, también puede combinar varias columnas en una lista larga.
Kutools for Excel : con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. |
Después de instalar Kutools for Excel, haga lo siguiente:
1. Seleccione la lista larga que desea dividir y luego haga clic en Kutools > Gama de Colores > Transformar rango, ver captura de pantalla:
2. En la Transformar rango cuadro de diálogo, seleccione Columna única para rango bajo el Tipo de transformación sección, y luego verifique Valor fijo y especifique el número de celdas por fila en el cuadro, vea la captura de pantalla:
3. Luego haga clic Oky seleccione una celda donde desea ubicar el resultado en el cuadro de aviso, vea la captura de pantalla:
4. Y haga clic OK , los datos de la lista se han dividido en varios grupos iguales según sea necesario.
¡Descargue y pruebe Kutools para Excel ahora!
Demostración: divida una lista larga en varios grupos iguales con Kutools para Excel
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!