Como puedo dividir un libro en varios libros por filas, cada 30000 filas
Necesito una macro para poder dividir un libro en varios cada 30000 filas y si no tiene filas que no los guarde.
1 Respuesta
Respuesta de Dante Amor
1
Te paso la macro.
Los libros se van a guardar en la misma carpeta donde pongas el archivo con la macro.
Los libros se van a nombrar como "Libro 1", "Libro 2", etc.
Sub GenearArchivos()
'Por Dante Amor
Dim wb As Workbook
Dim i As Long, j As Long, n As Long
'
Application.ScreenUpdating = False
Application.DisplayAlerts = False
j = 1 'número de libro
n = 30000 'cantidad de filas por libro
'
For i = 1 To Range("A" & Rows.Count).End(3).Row Step n
Range("A" & i).Resize(n).EntireRow.Copy
Set wb = Workbooks.Add
wb.Sheets(1).Range("A1").PasteSpecial xlPasteAll
wb.SaveAs ThisWorkbook.Path & "/" & "Libro " & j
wb.Close False
j = j + 1
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End SubComparte los enlaces con alguien más que quiera desee aprender excel o macros.
