¿Cómo insertar filas en blanco basadas en los valores de las celdas superiores en Excel?

En Excel, es posible que necesites insertar filas en blanco debajo de las celdas según sus valores numéricos. Hacer esto manualmente puede llevar mucho tiempo, pero con una sencilla macro VBA, puedes automatizar el proceso e insertar rápidamente el número necesario de filas en blanco debajo de cada celda en un rango seleccionado, como se muestra a continuación.

Insertar filas basadas en los valores de las celdas

Insertar filas basadas en los valores de las celdas

Si deseas insertar filas en blanco basadas en los valores de las celdas, puedes usar un código de macro.

1. Activa la hoja que estás utilizando y presiona las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en el script.

Sub Insert()
'UpdatebyExtendoffice20170926
    Dim xRg As Range
    Dim xAddress As String
    Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range to use(single column):", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    xLastRow = xRg(1).End(xlDown).Row
    xFstRow = xRg.Row
    xCol = xRg.Column
    xCount = xRg.Count
    Set xRg = xRg(1)
    For I = xLastRow To xFstRow Step -1
        xNum = Cells(I, xCol)
        If IsNumeric(xNum) And xNum > 0 Then
            Rows(I + 1).Resize(xNum).Insert
            xCount = xCount + xNum
        End If
    Next
    xRg.Resize(xCount, 1).Select
    Application.ScreenUpdating = True
End Sub

3. Presiona F5 para ejecutar el código, y aparecerá un cuadro de diálogo recordándote que selecciones una lista con la que trabajar. Ver captura de pantalla:

4. Haz clic en Aceptar, y las filas en blanco se habrán insertado.