Divida los datos en varias hojas de trabajo por recuento de filas en Excel
Dividir de manera eficiente un gran rango de datos en varias hojas de cálculo de Excel en función de un recuento de filas específico puede optimizar la administración de datos. Por ejemplo, dividir un conjunto de datos cada 5 filas en varias hojas puede hacerlo más manejable y organizado. Esta guía ofrece dos métodos prácticos para realizar esta tarea de forma rápida y sencilla.
Divida los datos en varias hojas de trabajo por recuento de filas con código VBA
Divida los datos en varias hojas de trabajo por filas con Kutools para Excel
Divida los datos en varias hojas de trabajo por recuento de filas con código VBA
El siguiente código de VBA puede ayudarlo a dividir las filas en varias hojas de trabajo por recuento de filas, haga lo siguiente:
1. Mantenga pulsado el ALT + F11 clave para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en la ventana del módulo.
VBA: divida datos en hojas de trabajo por recuento de filas en Excel
Sub Splitdatabyrows()
'Updated by Extendoffice
Dim WorkRng As Range
Dim xRow As Range
Dim SplitRow As Integer
Dim xWs As Worksheet
Dim xTRg As Range
Dim xNTRg As Range
Dim xIER
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set xTRg = Application.InputBox("Please select the header row:", xTitleId, "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set WorkRng = Application.InputBox("Please select the data range(exclude the header row):", xTitleId, WorkRng.Address, Type:=8)
If TypeName(WorkRng) = "Nothing" Then Exit Sub
SplitRow = Application.InputBox("Split Row Num", xTitleId, Type:=1)
If SplitRow = 0 Then Exit Sub
Set xWs = WorkRng.Parent
Set xRow = WorkRng.Rows(1)
xIER = WorkRng.Rows.Count
xIER = WorkRng.Row + xIER - 1
Application.ScreenUpdating = False
For i = 1 To WorkRng.Rows.Count Step SplitRow
resizeCount = SplitRow
If (xIER - xRow.Row + 1) < SplitRow Then
resizeCount = (xIER - xRow.Row + 1)
End If
xRow.Resize(resizeCount).Copy
Set xWs = Application.Worksheets.Add(after:=Application.Worksheets(Application.Worksheets.Count))
If xIER > (xRow.Row + SplitRow - 1) Then
xWs.Name = xRow.Row & " - " & (xRow.Row + SplitRow - 1)
ElseIf xIER = xRow.Row Then
xWs.Name = xRow.Row
Else
xWs.Name = xRow.Row & " - " & xIER
End If
Application.ActiveSheet.Range("A1").PasteSpecial
Set xNTRg = Application.ActiveSheet.Range("A1")
xTRg.Copy
xNTRg.Insert
Set xRow = xRow.Offset(SplitRow)
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
3. Entonces presione F5 clave, en el cuadro de diálogo emergente, seleccione la fila del encabezado, vea la captura de pantalla:
4. Luego, haz clic OK, y en el segundo cuadro de solicitud, seleccione el rango de datos que desea dividir por recuento de filas, vea la captura de pantalla:
5. Sigue haciendo clic OK , en el tercer cuadro de solicitud, ingrese el número de filas por las que desea dividir, vea la captura de pantalla:
6. Luego, haz clic OK botón, los datos se han dividido en varias hojas de trabajo según el número de filas, vea la captura de pantalla:
Divida los datos en varias hojas de trabajo por filas con Kutools para Excel
Si cree que el código VBA es complejo, Kutools for Excel ofrece una solución rápida e intuitiva para abordar de manera eficiente el problema de la división de datos. Este Dividir datos La función simplifica el proceso de operación, permitiendo a los usuarios de cualquier nivel dividir fácilmente grandes conjuntos de datos en múltiples hojas de trabajo sin la necesidad de conocimientos profundos de programación, lo que facilita una gestión eficaz de los datos.
Si tienes instalado Kutools for Excel, haga lo siguiente:
1. Seleccione el rango de datos que desea dividir. Luego, haga clic en Kutools Más > Dividir datos, ver captura de pantalla:
3. En la Dividir datos en varias hojas de trabajo caja de diálogo:
- Seleccione Filas fijas en Dividir basado en opción e ingrese el número de filas que desea dividir para cada hoja de trabajo.
- Si sus datos tienen encabezados y desea insertarlos en cada nueva hoja de trabajo dividida, verifique Mis datos tienen encabezados opción. (Consejo: puede ingresar el número de filas de pastores según sus datos).
- Luego, puede especificar los nombres de las hojas de trabajo divididas, bajo el Nombre de la nueva hoja de trabajo sección, seleccione las reglas de nombres de hojas de trabajo de la Reglas lista desplegable, puede agregar el Prefijo or Sufijo para los nombres de las hojas también.
4. Después de especificar la configuración, haga clic en OK, y los datos seleccionados se han dividido en varias hojas de trabajo de un nuevo libro de trabajo cada 5 filas. Y los encabezados se insertan para cada nueva hoja de trabajo. Ver captura de pantalla:
Artículos relacionados:
- Divida los datos en varias hojas de trabajo según la columna
- Supongamos que tiene una hoja de trabajo con filas enormes de datos y ahora necesita dividir los datos en varias hojas de trabajo según la columna Nombre (consulte la siguiente captura de pantalla), y los nombres se ingresan aleatoriamente. Tal vez puedas ordenarlas primero y luego copiarlas y pegarlas una por una en otras hojas de trabajo nuevas. Pero esto necesitará paciencia para copiar y pegar repetidamente. Hoy hablaré de algunos trucos rápidos para solucionar esta tarea.
- Combine filas duplicadas y sume los valores en Excel
- En Excel, es un escenario común encontrar un conjunto de datos con entradas duplicadas. A menudo, es posible que se encuentre con una variedad de datos donde el desafío clave es combinar de manera eficiente estas filas duplicadas y al mismo tiempo resumir los valores en una columna correspondiente, como se muestra a continuación. En este contexto, profundizaremos en varios métodos prácticos que pueden ayudarlo a consolidar datos duplicados y agregar sus valores asociados, mejorando tanto la claridad como la utilidad de sus libros de Excel.
- Fusionar dos o más tablas en una según las columnas clave
- Suponiendo que tiene tres tablas en un libro de trabajo, ahora, desea fusionar estas tablas en una tabla basada en las columnas clave correspondientes para obtener el resultado como se muestra a continuación. Esta puede ser una tarea problemática para la mayoría de nosotros, pero, por favor, no se preocupe, en este artículo, presentaré algunos métodos para resolver este problema.
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!