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?
1 Respuesta
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
