¿Copiar un rango de celdas y pegarlas "n" cantidad de veces en Excel?
Como puedo copiar una rango de celdas (A1:¿BU15) y luego pergarlas una fila abajo hasta 15 veces en excel? He intentado mediante códigos en VBA pero no me funcionan.
1 respuesta
Respuesta de jrgces
1
Prueba con algo como:
Sub prueba()
Dim h As Worksheet, r As Range, n As Long
Set h = Worksheets("Hoja1")
Set r = h.Range("A1:BU15")
For n = r.Rows.Count + 1 To r.Rows.Count * 15 + 1 Step r.Rows.Count
r.Copy Destination:=h.Cells(n, 1)
Next n
Application.CutCopyMode = False
Set r = Nothing
Set h = Nothing
End SubSaludos_
