Dividir un excel de 400.000 filas en bloques de 10.000 y que la primera fila siempre sea la misma, es posible?
Necesito dividir un excel de 400.000 filas en bloques de 10.000 y que la primera fila siempre sea la misma.
¿Es posible?
El caso es que tengo una base de datos que debo dividir y necesito que la primera fila siempre sea la misma porque es el titulo de las columnas.
Seria crear una macro con estas funciones si se puede claro.
Respuesta de James Bond
1
Prueba esta macro, cuenta las filas y las divide entre 10000, usando el resultado para crear n cantidad de hojas donde ira colocando 10000 filas en cada una junto con los títulos, solo cambia la referencia a1 y a2 según tus necesidades
Sub separa()
Set datos = Sheets("hoja1").Range("a1").CurrentRegion
With datos
f = .Rows.Count
c = .Columns.Count
Set tabla = .Rows(2).Resize(f - 1, c)
filas = 10000
hojas = (f - 1) / filas
For i = 2 To hojas
On Error Resume Next
Sheets("hoja" & i).Select
If Err.Number > 0 Then
Sheets.Add After:=Sheets(Sheets.Count)
End If
On Error GoTo 0
If i = 2 Then Set tabla2 = tabla.Resize(f - 1, c)
If i > 2 Then Set tabla2 = tabla2.Rows(filas + 1).Resize(filas, c)
tabla2.Copy: Range("a2").PasteSpecial
tabla.Rows(0).Copy: Range("a1").PasteSpecial
Next i
End With
Set tabla = Nothing: Set tabla2 = Nothing
End Sub
