Como inserir linhas em branco com base nos valores das células acima no Excel?

No Excel, pode ser necessário inserir linhas em branco abaixo de células com base em seus valores numéricos. Fazer isso manualmente pode ser demorado, mas com uma macro VBA simples, você pode automatizar o processo e rapidamente inserir o número necessário de linhas em branco abaixo de cada célula em um intervalo selecionado, conforme mostrado abaixo.

Inserir linhas com base nos valores das células

Inserir linhas com base nos valores das células

Se você deseja inserir linhas em branco com base nos valores das células, pode usar um código de macro.

1. Ative a planilha que você está usando e pressione as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o código abaixo no 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. Pressione F5 para executar o código, e uma caixa de diálogo aparecerá para lembrá-lo de selecionar uma lista para trabalhar. Veja a captura de tela:

4. Clique em OK, as linhas em branco terão sido inseridas.