Как вставить пустые строки на основе значений ячеек выше в Excel?

В Excel может возникнуть необходимость вставлять пустые строки под ячейками на основе их числовых значений. Выполнять это вручную может быть очень трудоемко, но с помощью простого макроса VBA вы можете автоматизировать процесс и быстро вставить необходимое количество пустых строк под каждой ячейкой в выбранном диапазоне, как показано ниже.

Вставка строк на основе значений ячеек

Вставка строк на основе значений ячеек

Если вы хотите вставить пустые строки на основе значений ячеек, вы можете использовать код макроса.

1. Откройте нужный лист и нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. Нажмите Вставить > Модуль и вставьте следующий код в скрипт.

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. Нажмите F5 для запуска кода, после чего появится диалоговое окно, напоминающее вам выбрать список для работы. См. скриншот:

4. Нажмите ОК, пустые строки будут вставлены.