Dividir datos en varias hojas de cálculo por recuento de filas en Excel

Dividir un rango de datos grande en varias hojas de cálculo de Excel basándose en un número específico de filas puede agilizar la gestión de datos. Por ejemplo, dividir un conjunto de datos cada 5 filas en múltiples hojas puede hacer que sea más manejable y organizado. Esta guía ofrece dos métodos prácticos para realizar esta tarea rápidamente y con facilidad.

Dividir datos en varias hojas de cálculo por recuento de filas con código VBA

Dividir datos en varias hojas de cálculo por recuento de filas con Kutools para Excel

Dividir datos en varias hojas de cálculo por recuento de filas con código VBA

El siguiente código VBA puede ayudarte a dividir las filas en varias hojas de cálculo según el recuento de filas, sigue los siguientes 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.

VBA: Dividir datos en hojas de cálculo 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. Luego, presiona la tecla F5, en el cuadro de diálogo emergente, selecciona la fila del encabezado, ver captura de pantalla:

4. Luego, haz clic en Aceptar, y en el segundo cuadro de diálogo, selecciona el rango de datos que deseas dividir por el recuento de filas, ver captura de pantalla:

5. Continúa haciendo clic en el botón Aceptar, en el tercer cuadro de diálogo, ingresa el número de filas por el cual deseas dividir, ver captura de pantalla:

6. Luego, haz clic en el botón Aceptar, los datos se han dividido en varias hojas de cálculo basadas en el número de filas, ver captura de pantalla:

Dividir datos en varias hojas de cálculo por recuento de filas con Kutools para Excel

Si consideras que el código VBA es complejo, Kutools para Excel ofrece una solución rápida e intuitiva para abordar eficientemente el problema de dividir datos. Esta función Dividir Datos simplifica el proceso de operación, permitiendo a usuarios de cualquier nivel de habilidad dividir grandes conjuntos de datos en múltiples hojas de cálculo sin necesidad de conocimientos profundos de programación, facilitando una gestión de datos efectiva.

Si has instalado Kutools para Excel, por favor sigue los siguientes pasos:

1. Selecciona el rango de datos que deseas dividir. Luego, haz clic en Kutools Plus > Dividir Datos, ver captura de pantalla:

3. En el cuadro de diálogo Dividir Datos en Múltiples Hojas de Cálculo:

• Selecciona Filas fijas desde la opción Basado en, e ingresa el número de filas que deseas dividir para cada hoja de cálculo.
• Si tus datos tienen encabezados y deseas insertarlos en cada nueva hoja de cálculo dividida, por favor marca la opción Mis datos tienen encabezados. (Consejo: puedes ingresar el número de filas del encabezado basándote en tus datos).
• Luego puedes especificar los nombres de las hojas de cálculo divididas, bajo la sección Nombre de las nuevas hojas de cálculo, selecciona las reglas para los nombres de las hojas de cálculo desde la lista desplegable Reglas, también puedes agregar el Prefijo o Sufijo para los nombres de las hojas.

4. Después de especificar la configuración, luego haz clic en Aceptar, y los datos seleccionados se han dividido en múltiples hojas de cálculo de un nuevo libro cada 5 filas. Y los encabezados se han insertado para cada nueva hoja de cálculo. Ver captura de pantalla:

Artículos Relacionados: