¿Cómo dividir una lista larga en varias hojas en Excel?

Dividir una lista larga en varias hojas en Excel puede ser útil para administrar datos grandes o para cumplir con ciertos límites de filas en una hoja. Aquí te muestro cómo puedes hacerlo de forma manual y mediante una macro de VBA.

Método Manual

Abrir el Archivo:

Abre tu archivo de Excel que contiene la lista larga.

Determinar la División:

Decide cuántas filas deseas tener en cada hoja nueva. Por ejemplo, si quieres dividir la lista en hojas de 1000 filas cada una.

Copiar y Pegar:

Copia las primeras X filas (por ejemplo, 1000) de tus datos.
Crea una nueva hoja:
Haz clic en el botón “+” en la parte inferior para agregar una nueva hoja.
Pega los datos copiados en esta nueva hoja.
Repite el proceso hasta que hayas movido todos tus datos a nuevas hojas.

Usando una Macro VBA

Si prefieres automatizar el proceso, puedes usar un script de VBA:

   Sub DividirListaEnHojas()
       Dim ws As Worksheet
       Dim wsNew As Worksheet
       Dim totalRows As Long
       Dim rowsPerSheet As Long
       Dim i As Long
       Dim startRow As Long

       ' Configura la hoja de datos original y el número de filas por hoja
       Set ws = ThisWorkbook.Sheets("Sheet1") ' Cambia "Sheet1" por el nombre de tu hoja
       totalRows = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
       rowsPerSheet = 1000 ' Cambia este valor según necesites

       Application.ScreenUpdating = False

       For i = 1 To Application.WorksheetFunction.RoundUp(totalRows / rowsPerSheet, 0)
           Set wsNew = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
           wsNew.Name = "Parte" & i
           startRow = ((i - 1) * rowsPerSheet) + 1
           ws.Rows(startRow & ":" & startRow + rowsPerSheet - 1).Copy wsNew.Rows(1)
       Next i

       Application.ScreenUpdating = True
   End Sub

Abrir el Editor de VBA:

Presiona `ALT` + `F11` para abrir el Editor de VBA.

Insertar un Módulo:

En el menú de la ventana de VBA, haz clic en “Insertar” > “Módulo”.

Pegar el Código:

Copia el siguiente código en el módulo:

Ajustar el Código:

Asegúrate de reemplazar `»Sheet1″` con el nombre de tu hoja original y ajustar `rowsPerSheet` al número de filas que deseas por hoja.

Ejecutar la Macro:

Presiona `F5` o ejecuta la macro desde el menú para comenzar a dividir tu lista.

Esta macro creará nuevas hojas y las llenará con el número especificado de filas, continuando hasta que todos los datos sean copiados. Asegúrate de guardar tu archivo antes de correr la macro, ya que este tipo de operaciones no pueden deshacerse fácilmente.