Saltar al contenido

cómo insertar varias filas en el ejemplo de código de Excel

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)



Utiliza Nuestro Buscador

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *