Macro en excel para pegar rango de una fila 23 veces debajo
Hola a todos,
En un fichero excel tengo un rango de datos (F2 a P2) que quiero pegar 23 veces debajo, es decir pegar en F3 a P3, F4 a P4 hasta llegar a F25 a P25.
Después hacer lo mismo para el rango (F26 a P26) hasta llegar a F49 a P49 y así sucesivamente.
Por favor, me puede ayudar alguien con esta macro? Si es muy complicada, al menos necesitaría una macro en la que al seleccionar manualmente un rango (por ej. F2 a P2), pegue esas celdas activas 23 veces debajo.
Muchas gracias por adelantado
1 Respuesta
Respuesta de Luis Mondelo
1
Te mando mi solución con esta macro:
Sub ejemplo()
'por luismondelo
Range("f2").Select
Do While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
For x = 1 To 23
ActiveCell.EntireRow.Insert
Next
Range(ActiveCell.Offset(-1, 0), ActiveCell.Offset(-1, 0).End(xlToRight)).Copy
Range(ActiveCell, ActiveCell.Offset(22, 0)).PasteSpecial Paste:=xlValues
ActiveCell.Offset(23, 0).Select
Loop
End Subrecuerda finalizar la consulta
