Macro para dividir en varias hojas
Tengo una hoja en xml en excel 2013 que tiene 350000 filas y 3 columnas la cual me es imposible exportar por el limite que posee excel.. Es por ello que solo me queda dividir la hoja en varias de 64000. Habría un macro que pudiera hacer lo que necesito
1 Respuesta
Respuesta de Dante Amor
1
Te anexo la macro, cambia n = 64000 por el número de filas que quieras en cada hoja
Cambia "hoja1" por el nombre de tu hoja que contiene los datos.
Sub DividirEnHojas()
'Por.Dante Amor
n = 64000
Set h1 = Sheets("Hoja1")
For i = 1 To h1.Range("A" & Rows.Count).End(xlUp).Row Step n
Set h2 = Sheets.Add(after:=Sheets(Sheets.Count))
h1.Range("A" & i & ":C" & i + n - 1).Copy h2.[A1]
Next
End SubSaludos.Dante Amor
