Basta ya de indagar en otros sitios porque has llegado al sitio necesario, contamos con la respuesta que necesitas sin problema.
Ejemplo: agregar una cantidad específica de filas tras filas
Sub insertRows()
Dim i As Long
Dim j As Variant
j = InputBox("How many rows would you like to insert?", "Insert Rows")
If j = "" Then
j = 1
End If
For i = 1 To j
ActiveCell.Rows.EntireRow.Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Next
End Sub
Comentarios y valoraciones
Si entiendes que ha resultado de ayuda nuestro post, te agradeceríamos que lo compartas con más programadores de este modo nos ayudas a dar difusión a este contenido.
¡Haz clic para puntuar esta entrada!
(Votos: 0 Promedio: 0)