Como pegar un bloque de filas n veces hacia abajo rápidamente
Tengo un bloque de información de 800 registros y necesito pegarlo 300veces hacia abajo. Uno tras otro. ¿Cómo se puede hacer?
Respuesta de James Bond
Si tus datos no tienen encabezados esta es la macro que ocupas, solo cambia el a1 por la fila donde comiencen tus datos.
Sub copiar_datos()
Set datos = Range("a1").CurrentRegion
With datos
filas = .Rows.Count
For i = 1 To filas
fila = Range("a1").CurrentRegion.Rows.Count
.Rows(fila + 1).Resize(300, .Columns.Count).Value = .Rows(i).Value
Next i
End With
Set datos = Nothing
End Sub
