Dividir excel en varias filas
Hace unos días pedí una macro para dividir un excel en filas, en concreto era de 400000 y quería en tramos de 10000, ahora necesito hacer de los 10000 tramos de 200 y no me esta funcionando porque me sale error 9 en tiempo de ejecución, subíndice fuera del intervalo.
Decir que yo solo modificaba los 10000 por 200, el compañero que me la creo me comento que modificara a1 y a2 según mis necesidades pero estoy un poco verde y no se a que se refería.
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
1 Respuesta
La macro que te pase no te sirve para lo que quieres, cuando mencione lo de cambiar los rangos quize decir que si tus datos estaban en otra columna B o C por ejemplo solo ajustabas poniendo b1 o C1 en vez de A1, la macro que ocupas es esta
Sub separa_filas()
Set h1 = Worksheets("hoja1")
Set datos = h1.Range("a2").CurrentRegion
matriz = datos
With datos
f = .Rows.Count: filas = 10000: tramos = 200
hojas = f / filas + 1: cantidad = filas / tramos
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
For j = 1 To cantidad
If j = 1 Then
Set tabla = .Resize(tramos, 1)
Set tabla2 = Range("c2").Resize(tramos, 1)
End If
If j > 1 Then
Set tabla = tabla.Rows(tramos + 1).Resize(tramos, 1)
Set tabla2 = tabla2.Rows(tramos + 3).Resize(tramos, 1)
End If
tabla.Copy: tabla2.PasteSpecial
Next j
On Error GoTo 0
Next i
Set tabla = Nothing: Set tabla2 = Nothing
End With
End Sub
