Dividir Datos en Múltiples Hojas de Cálculo por número de filas en Excel
Dividir eficazmente un amplio rango de datos en varias hojas de cálculo de Excel según un número específico de filas optimiza la gestión de la información. Por ejemplo, fragmentar un conjunto de datos cada 5 filas en distintas hojas lo hace más manejable y organizado. Esta guía presenta dos métodos prácticos para llevar a cabo esta tarea de forma rápida y sencilla.
Dividir Datos en Múltiples Hojas de Cálculo por número de filas con código VBA
Dividir Datos en Múltiples Hojas de Cálculo por número de filas con Kutools para Excel
Dividir Datos en Múltiples Hojas de Cálculo por número de filas con código VBA
El siguiente código VBA le permitirá dividir las filas en varias hojas de cálculo según el número de filas. Siga estos pasos:
1. Mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo y pegue el siguiente código en la ventana del módulo.
VBA: Dividir Datos en hojas de cálculo por número 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. A continuación, pulse la tecla F5; en el cuadro de diálogo que aparece, seleccione la fila de encabezado (véase la captura de pantalla):
4. Luego, haga clic en Aceptar y, en el segundo cuadro emergente, seleccione el rango de datos que desea dividir por número de filas (véase la captura de pantalla):
5. Siga haciendo clic en el botón Aceptar; en el tercer cuadro emergente, introduzca el número de filas por el que desea dividir (véase la captura de pantalla):
6. A continuación, haga clic en el botón Aceptar; los datos se habrán dividido en varias hojas de cálculo según el número de filas (véase la captura de pantalla):
Dividir Datos en Múltiples Hojas de Cálculo por número de filas con Kutools para Excel
Si le parece que el código VBA es complejo, Kutools para Excel ofrece una solución rápida e intuitiva para abordar eficazmente el problema de dividir datos. Su función Dividir Datos simplifica el proceso operativo, permitiendo a usuarios de cualquier nivel dividir fácilmente grandes conjuntos de datos en múltiples hojas de cálculo sin necesidad de conocimientos profundos de programación y facilitando así una gestión eficaz de los datos.
Si ha instalado Kutools para Excel, proceda del siguiente modo:
1. Seleccione el rango de datos que desea dividir. A continuación, haga clic en KUTOOLS PLUS > Dividir Datos (véase la captura de pantalla):
3. En el cuadro de diálogo Dividir Datos en Múltiples Hojas de Cálculo:
- Seleccione la opción Valor fijo de Criterio de División e introduzca el número de filas que desea dividir en cada hoja de cálculo.
- Si sus datos incluyen encabezados y desea incluirlos en cada hoja de cálculo dividida, active la opción Incluir títulos. ()Consejo: puede indicar el número de filas de encabezado según sus datos.)
- A continuación, puede especificar las reglas de división del nombre de la hoja de cálculo en la sección Nombre de las hojas de cálculo creadas, seleccionando las reglas de nombre de hoja de cálculo en la lista desplegable Reglas y añadiendo también un prefijo o sufijo para los nombres de las hojas.
4. Tras especificar la configuración, haga clic en Aceptar; el cuadro Seleccionar Datos se dividirá en varias hojas de cálculo de un nuevo libro de trabajo cada 5 filas, incluyendo los encabezados en cada hoja nueva (véase la captura de pantalla):
Artículos relacionados:
- Dividir Datos en Múltiples Hojas de Cálculo según la columna
- Supongamos que tiene una hoja de cálculo con una gran cantidad de filas de datos y necesita dividirla en varias hojas según la columna **Nombre** (véase la siguiente captura de pantalla), donde los nombres aparecen en orden aleatorio. Podría ordenarlos primero y luego copiar y pegar manualmente cada grupo en una hoja nueva, pero este proceso exige mucha paciencia debido a la repetición constante de operaciones. Hoy le mostraré algunos trucos rápidos para resolver esta tarea de forma eficiente.
- Combinar Fila duplicada y sumar los valores en Excel
- En Excel, es habitual encontrarse con conjuntos de datos que contienen entradas duplicadas. A menudo, tendrá un rango de datos en el que el principal reto consiste en combinar eficazmente estas filas duplicadas mientras suma al mismo tiempo los valores de una columna correspondiente, tal como se muestra en la siguiente captura de pantalla. En este contexto, exploraremos varios métodos prácticos que le ayudarán a consolidar los datos duplicados y a agregar sus valores asociados, mejorando así la claridad y utilidad de su libro de Excel.
- Combinar dos o más tablas en una según Columna clave
- Supongamos que tiene tres tablas en un libro y desea combinarlas en una única tabla según las Columna clave correspondientes para obtener el resultado que se muestra en la siguiente captura de pantalla. Esta puede ser una tarea complicada para la mayoría de nosotros, pero no se preocupe: en este artículo presentaré algunos métodos para resolver este problema.
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos