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.
2 Respuestas
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